Задание:
Прошу помогите, задача должна быть на языке ПАСКАЛЬ, Составить программу рисования 18 прямоугольников синего цвета, координаты которых определяетсяслучайным образом, а стороны равны а=140, b=40.
Решение:
Uses GraphABC; CONST a=140; b=40; n=18; varx1,x2,y1,y2,i: integer; procedure Paint; beginx1: =random (WindowWidth-a); x2: =x1+a; y1: =random (WindowHeight-b); y2: =y1+b; SetBrushColor (clblue); rectangle (x1,y1,x2,y2); end; beginrandomize; for i: =1 to n do Paint; end. Вроде вот так, если есть какие-то замечания, то пиши — исправим
Знаете другой ответ?