как оживить: телефонный диск крутится

@Ilgam program · Регистрация: 14.05.2013

Author24 — интернет-сервис помощи студентам

Pascal

Program P1;
Uses GraphABC;
Var gd,gm,i:integer;
begin
gd:=0;
for i:=1 to 100 do
begin
gd:=0;
SetWindowSize(500,500);circle(240,240,120);
SetWindowSize(500,500);circle(240,240,40);
SetWindowSize(500,500);circle(280,320,20);
SetWindowSize(500,500);circle(220,320,20);
SetWindowSize(500,500);circle(170,300,20);
SetWindowSize(500,500);circle(160,250,20);
SetWindowSize(500,500);circle(180,200,20);
SetWindowSize(500,500);circle(240,170,20);
SetWindowSize(500,500);circle(300,200,20);
SetWindowSize(500,500);circle(320,250,20);
SetWindowSize(500,500);line(400,300,360,360);
SetWindowSize(500,500);line(360,360,240,240);
SetWindowSize(500,500);line(400,300,240,240);
 
end;
end.

@Striker · 22.05.2013, 08:37

Тык сюда

@Striker SausageFlat 242 / 221 / 154 Регистрация: 19.08.2012 Сообщений: 499 Записей в блоге: 1
	22.05.2013, 08:37	2
	Тык сюда 0