Нарисовать на экране компьютера закрашенные прямоугольники - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

помогите решить задачки) 1.Нарисовать на экране компьютера закрашенные прямоугольники с координатами X1=100; Y1=20; X2=500,450,...,150; Y2=40,50,...,200. 2.Нарисовать на экране компьютера окружности, расположенные следующим образом: 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 Благодарю)

Решение задачи: «Нарисовать на экране компьютера закрашенные прямоугольники»

textual
Листинг программы
uses graph;
var x,y,r,dy,dx:integer;
begin
initgraph(x,y,'');
dy:=20;
r:=(getmaxY-5*dy)div 8;
dx:=(getmaxX-10*r) div 6;
for y:=1 to 4 do
for x:=1 to 5 do
circle(x*dx+(2*x-1)*r,y*dy+(2*y-1)*r,r);
readln
end.

Оцени полезность:

11   голосов , оценка 4.273 из 5
Похожие ответы