Прошу помогите, задача должна быть на языке ПАСКАЛЬ…

Question

Прошу помогите, задача должна быть на языке ПАСКАЛЬ, Составить программу рисования 18 прямоугольников синего цвета, координаты которых определяетсяслучайным образом, а стороны равны а=140, b=40.

Answer 1

59

larets

20 февраля 2023

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. Вроде вот так, если есть какие-то замечания, то пиши — исправим

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: