Написать программу в которой пользователь должен будет ввести радиус окружности после чего на экране возникнет окружность с этим радиусом. Работа в паскале.

Question

Информатика

Макбет

5 января, 19:30

Написать программу в которой пользователь должен будет ввести радиус окружности после чего на экране возникнет окружность с этим радиусом. Работа в паскале.

+2

Ответы (1)

Знаете ответ на вопрос?

Джаззар · Answer 1

uses graphabc;

var radius:integer;

begin

Writeln ('Введите радиус окружности') ;

if (radius>245) then writeln ('ошибка, введите радиус меньше') ;

readln (radius) ;

setwindowsize (640,480) ;

setpencolor (clgreen) ;

setpenwidth (4) ;

circle (340,280, radius) ;

end.