Нарисовать паровоз, который движется по рельсам, из трубы идет дым

@wivern23 · Регистрация: 03.11.2013

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

Нужно на завтра программу:
Паровоз движется по рельсам, из трубы идет дым.

Помогите пожалуйста, буду очень благодарен!

@Arigato · 30.12.2013, 19:23

Хотя бы на бумаге нарисуйте, как это должно выглядеть, и тут скан приложите.

@wivern23 · 08.01.2014, 22:11 **[ТС]**

Что то типа такого.

@wivern23 · 12.01.2014, 15:03 **[ТС]**

Сделал.
Может кому то нужно будет:

Pascal

uses graphabC;
var x,y,ky: integer;
 
procedure Paravoz (x,y: integer);
begin
rectangle(x+30,y+130,x+115,y+175);
moveto(x+80,y+110);
lineto(x+100,y+110);
lineto(x+90,y+130);
lineto(x+90,y+130);
lineto(x+80,y+110);
rectangle(x+0,y+105,x+50,y+175);
rectangle(x+5,y+115,x+45,y+150);
circle(x+10,190,15);
circle(x+40,190,15);
circle(x+70,190,15);
circle(x+100,190,15);
 
ellipse(x+25,y+55,x+50,y+70);
ellipse(x+40,y+70,x+65,y+85);
ellipse(x+50,y+75,x+75,y+90);
ellipse(x+70,y+85,x+100,y+100);
end;
 
Begin
setwindowsize(800,200);
lockdrawing;
y:=0;
ky:=1;
repeat
x:=-50;
while x<=800 do
    begin
    clearwindow(clskyblue);
    Paravoz (x,y);
    y:=y+ky;
    if (y<10) or (y<10) then ky:=ky*(-1);
    redraw;
    inc(x,1);
    end;
until false;
End.

Новичок · 14.01.2014, 01:01

Не по теме:

Редкий человек форума,который решив проблему сам,отписался...

@Syrax · 14.01.2014, 19:12

Не по теме:

Мог бы решить сам -- ответил бы.

@wivern23 4 / 3 / 2 Регистрация: 03.11.2013 Сообщений: 32
		1
	Нарисовать паровоз, который движется по рельсам, из трубы идет дым 30.12.2013, 01:02. Показов 3875. Ответов 5 Метки нет (Все метки) Нужно на завтра программу: Паровоз движется по рельсам, из трубы идет дым. Помогите пожалуйста, буду очень благодарен! 0

@Arigato Программист 307 / 182 / 176 Регистрация: 05.12.2013 Сообщений: 683 Записей в блоге: 5
	30.12.2013, 19:23	2
	Хотя бы на бумаге нарисуйте, как это должно выглядеть, и тут скан приложите. 1

@wivern23 4 / 3 / 2 Регистрация: 03.11.2013 Сообщений: 32
	08.01.2014, 22:11 [ТС]	3
	Что то типа такого. Миниатюры 0

Новичок
	14.01.2014, 01:01 #5
	Не по теме: Редкий человек форума,который решив проблему сам,отписался... 0

@Syrax
	14.01.2014, 19:12 Нарисовать паровоз, который движется по рельсам, из трубы идет дым #6
	Не по теме: Мог бы решить сам -- ответил бы. 0

Нарисовать паровоз, который движется по рельсам, из трубы идет дым

Решение