|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
27.11.2014, 23:52 | #1 |
Регистрация: 24.11.2014
Сообщений: 8
|
#Паскаль турбо
нужно сделать чтобы человечек этот стоял и прыгал. помогите пожалуйста
uses graph,crt; var x,y:longint; device,i,mode:integer; ch:char; Begin device:=0; initgraph(device,mode,''); setwritemode(1); setcolor(white); x:=0; y:=200; while x<=getmaxX do begin setcolor(white); circle(x,y,30); circle(x+15,y-10,6); circle(x+34,y,4); line(x,y,x+Round(30*Sqrt(3)/2),y+Round(30/2)); for i:=0 to 20 do begin setcolor(4); line(x+Round(30*Cos(Pi/4+Pi/20*i)+10),y-Round(30*Sin(Pi/4+Pi/20*i)), x+Round(100*Cos(Pi/4+Pi/20*i)-20),y-Round(50*Sin(Pi/4+Pi/20*i))); setcolor(white); line(x,y+50,x,y+250); end; if x mod 2=0 then begin setcolor(white); line(x,y+60,x-60,y+100); line(x,y+60,x+60,y+100); line(x-60,y+100,x-40,y+140); line(x+60,y+100,x+100,y+60); line(x,y+250,x-60,y+300); line(x,y+250,x+60,y+300); line(x-60,y+300,x-120,y+250); line(x+60,y+300,x+60,y+370); end else begin line(x,y+250,x,y+390); end; delay(100); line(x,y+50,x,y+250); if x mod 2=0 then begin line(x,y+60,x-600,y+180); line(x,y+60,x+60,y+100); line(x-60,y+100,x-40,y+140); line(x+60,y+100,x+100,y+60); line(x,y+250,x-60,y+300); line(x,y+250,x+60,y+300); line(x-60,y+300,x-120,y+250); line(x+60,y+300,x+60,y+370); end else begin line(x,y+250,x,y+390); end; setcolor(black); circle(x,y,30); circle(x+5+15,y-5-10,6); circle(x+5+34,y-5,4); line(x+5,y-5,x+5+Round(30*Sqrt(3)/2),y-5+Round(30/2)); for i:=0 to 20 do line(x+5+Round(30*Cos(Pi/4+Pi/20*i)),y-5-Round(30*Sin(Pi/4+Pi/20*i)), x+5+Round(40*Cos(Pi/4+Pi/20*i)),y-5-Round(40*Sin(Pi/4+Pi/20*i))); cleardevice; x:=x+13; end; closegraph; readln; end. end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как можно в Паскаль АВС (Паскаль-Турбо) вставлять в результаты печати программы графики, таблицы, схемы, набранные формулы, выраже | IZOPGRAM | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 11.06.2012 10:54 |
турбо паскаль | Degster | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 03.05.2011 18:35 |
турбо паскаль | RenFAn | Фриланс | 10 | 18.03.2010 09:27 |
Турбо Паскаль | kmzd | Помощь студентам | 6 | 07.02.2010 09:58 |
Турбо паскаль | MacFly | Помощь студентам | 1 | 22.12.2009 16:23 |