Различия между изменённой записью 64755 оставленной Гость 25.02.2025 в 10:46 и
оригинальной записью 64754 оставленной Гость 25.02.2025 в 10:45
Показать старую версию | новую версию | обе версии
| 1 | 1 | program kv; | |
| 2 | 2 | uses graph,crt; | |
| 3 | 3 | var gd,gm,x1,y1,c,a:integer; | |
| 4 | 4 | begin | |
| 5 | 5 | c lrscr; | |
| 6 | 6 | randomize; | |
| 7 | 7 | gd: =0; | |
| 8 | 8 | initgraph(gd,gm,'c:\bp\bgi'); | |
| 9 | 9 | x1:=310; y1:=230; a:=20; | |
| 10 | 10 | repeat | |
| 11 | 11 | c:=random(15); | |
| 12 | 12 | setcolor(c); | |
| 13 | 13 | rectangle (x1,y1,x1+a,y1-a); | |
| 14 | 14 | x1:=x1-10; y1:=y1+10; a:=a+20; | |
| 15 | 15 | until a>400; | |
| 16 | 16 | readkey; | |
| 17 | 17 | closegraph; | |
| 18 | 18 | end. |