Написать программу в которой пользователь должен будет ввести радиус окружности после чего на экране возникнет окружность с этим радиусом. Работа в паскале.
Написать программу в которой пользователь должен будет ввести радиус окружности после чего на экране возникнет окружность с этим радиусом. Работа в паскале.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program Circle;
uses Graph;
var
radius: integer;
gd, gm: smallint;
begin
gd := Detect;
InitGraph(gd, gm, '');
writeln('Enter the radius of the circle: ');
readln(radius);
SetColor(15);
Circle(GetMaxX div 2, GetMaxY div 2, radius);
readln;
CloseGraph;
end.