19.02.2011, 19:21 | #1 (permalink) |
Технарёнок
Регистрация: 30.12.2010
Сообщений: 77
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, надо улучшить программу
Код:
uses graphabc; var i,n:integer; begin lockdrawing; n:=random(600)+100; for i:= 1 to n do begin clearwindow; setpenwidth(3); setpencolor(clblack); Pie(700,350,213,160-i,160-i); line(489,350,910,350); line(700,138,700,560); line(550,200,850,500); line(550,500,850,200); circle(700,350,20); floodfill (500,320,clred); floodfill (550,380,clPurple); floodfill (600,490,clGreen); floodfill (750,490,clYellow); floodfill (750,370,clBlue); floodfill (750,310,clFuchsia); floodfill (750,270,clTeal); floodfill (680,270,clBrown); floodfill (700,350,clSilver); SetFontSize(20); textout(550,280,'10'); textout(620,200,'20'); textout(740,200,'30'); textout(800,280,'40'); textout(800,380,'50'); textout(740,450,'60'); textout(620,450,'70'); textout(550,380,'80'); redraw; end;end. |
19.02.2011, 19:21 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Участники форума ранее решали похожую проблему Хочу MP3 установить на скутер, а к MP3 надо сделать колонки Помогите с Паскалем Можно ли улучшить компьютер? |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|