Помогите, пожалуйста.
Нужно составить программу ( на паскаль) которая рисует отрезок с концами (100,100),(100,200), если введено чётное число и рисует окружность (200,100) радиус 50, если введено нечётное число
Ответы
Ответ дал:
0
Ответ:
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.
Объяснение:
пожалуйста сделай ответ лучшим)
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
1 год назад
1 год назад
7 лет назад