Графика. Паскаль.

[b1otekk]

1. Нарисовать челнок.
2. Нарисовать автомобиль, который движется.
p.s. только не нада тяжёлыми методами

[alex_fcsm]

Вот здесь и здесь почитайте

[b1otekk]

ну же... хоть какуето задачю, плз

[Razorishe]

Поясните что такое челнок?

[b1otekk]

човник, байдарка, лодочька..

[DeKot]

Набери в поиске "Иллюстрированный самоучитель по Дельфи".Там отличный пример - рисуется целый пароход (теплоход) с объяснением всех методов.

[b1otekk]

та нету времени просто все это дело писать...
мне нада все на завтра.. мне еще сидеть сейчас отчеты писать

[Stilet]

Вот тебе модель Короллы 1:1.
Меняй координаты и она поедет.

uses graph;
var m,d:integer;
procedure car(x,y:integer);
begin
 circle(x,y,10);circle(x+50,y,10);
 moveto(x-15,y);linerel(0,-10);
 linerel(30,0);linerel(10,-20);
 linerel(20,0);linerel(10,20);

end;

begin
d:=detect;
initgraph(m,d,'');
car(100,100);
readln;
closegraph;
end.

[b1otekk]

спс большое....

[Razorishe]

1:

uses graph;
var gd,gm:integer;
begin
 initgraph(gd,gm,'');
 setcolor(7);
 line(200,300,420,300);
 line(200,300,150,250);
 line(400,270,420,260);
 line(200,270,400,270);
 line(150,250,200,270);
 line(420,300,420,260);
 rectangle(300,150,305,270);
 arc(306,190,100,260,40);
 line(0,290,190,290);
 line(420,290,640,290);
 circle(580,50,30);
 setfillstyle(1,14);
 floodfill(580,50,7);
 setfillstyle(1,1);
 floodfill(2,300,7);
 setfillstyle(1,9);
 floodfill(1,1,7);
 setfillstyle(2,6);
 floodfill(210,280,7);
 setfillstyle(1,6);
 floodfill(303,160,7);
 readln
end.

Я себе так лодочку представляю..