Помогите решить задачу на паскале. - есть ответ

Ответы:

Надо в цикле вычислять начало линии, конец линии (очевидно, что это диаметр окружности, x^2+y^2 = r^2), потом функцией line рисовать.

Без имени

uses CRT, Graph;
var
Driver, Mode, l, a: Integer;
Key: Char;
begin
a := 0;
Write('l = '); ReadLn(l);
InitGraph(Driver, Mode, '');
while True do
begin
ClearDevice;
SetColor(Random(15) + 1);
Line(GetMaxX div 2, GetMaxY div 2,
GetMaxX div 2 + Round(l * Cos(a * (Pi / 180))),
GetMaxY div 2 + Round(l * -Sin(a * (Pi / 180))));
Key := ReadKey;
if Key = #27 then Break
else a := a - 5;
end;
end.

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.