Нарисовать на экране компьютера закрашенные прямоугольники - 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.