Помогите, пожалуйста.
Нужно составить программу ( на паскаль) которая рисует отрезок с концами (100,100),(100,200), если введено чётное число и рисует окружность (200,100) радиус 50, если введено нечётное число
Нужно составить программу ( на паскаль) которая рисует отрезок с концами (100,100),(100,200), если введено чётное число и рисует окружность (200,100) радиус 50, если введено нечётное число
More Questions From This User See All
Answers & Comments
Verified answer
Ответ:
program draw_shape;
uses Graph;
var
gd, gm, x, y, radius, number: Integer;
begin
Write('Enter a number: ');
Readln(number);
gd := detect;
initgraph(gd, gm, '');
if (number mod 2 = 0) then
begin
x := 100;
y := 100;
line(x, y, x, y + 100);
end
else
begin
x := 200;
y := 100;
radius := 50;
circle(x, y, radius);
end;
readln;
closegraph;
end.
Объяснение:
пожалуйста сделай ответ лучшим)