Составить программу (паскаль) построения на экране n прямоугольников разного цвета, расположенных хаотично.
118
231
Ответы на вопрос:
uses graph; var n,i,x,y,height,width: integer; procedure init; var gd,gm: integer; begin gd: =vga; gm: =vgahi; initgraph (gd,gm,''); end; procedure error; begin closegraph; writeln ('error! '); end; begin write ('n = '); readln (n); randomize; init; if graphresult = 0 then begin for i: =1 to n do begin
setcolor (random(14)+1); x: =random(640); y: =random(480); height: =random(91)+10; width: =random(101)+20; rectangle (x,y,x+width,y+height); end; end else error; end.
Популярно: Информатика
-
безумныйученик28.03.2023 16:04
-
КИРА2801200719.05.2023 02:02
-
sorunbaevp00gzg24.05.2023 19:27
-
noname363610.07.2021 23:24
-
7hakep7p0739i22.11.2022 07:22
-
guzaliyakildi27.03.2023 17:56
-
azizplay0718.03.2021 22:01
-
lour119.06.2021 21:50
-
максимка228929.07.2020 00:56
-
Marshall12307.09.2021 02:04