Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Помогите нарисовать рисунок и создать программу в паскале

Дима Гузаиров Ученик (113), на голосовании 1 месяц назад
Голосование за лучший ответ
Gg Gg Профи (801) 2 месяца назад
А ты уверен что в городе такой трактор встретить мало вероятно?
Дима ГузаировУченик (113) 2 месяца назад
Да, уверен. Делай
GGG Просветленный (27062) 2 месяца назад
 program Buldozer; 

uses graphABC;

const
ScreenWidth = 640;
ScreenHeight = 480;

var
Driver, Gm, Window, Pipe, Wheel : array[1..2] of integer;

begin
// Инициализация
InitGraph(Driver, Gm, '');
SetGraphMode(ScreenWidth, ScreenHeight);
SetColor(Green);

// Координаты кабины
Window[1] := 200; Window[2] := 100;
Pipe[1] := 100; Pipe[2] := 100;
Gm[1] := 100; Gm[2] := 200;

// Рисование кабины
Rectangle(Gm[1], Gm[2], Gm[1]+200, Gm[2]+150);
Rectangle(Window[1], Window[2], Window[1]+80, Window[2]+50);

// Рисование двигателя
Rectangle(Pipe[1], Pipe[2], Pipe[1]+50, Pipe[2]+50);
Rectangle(Pipe[1], Pipe[2]-50, Pipe[1]+20, Pipe[2]);

// Рисование гусениц
for i := 1 to 6 do
begin
Wheel[1] := 100 + 50 * i;
Wheel[2] := 350;
Circle(Wheel[1], Wheel[2], 25);
end;
Line(100, 350, 400, 350);

// Завершение
Readkey;
CloseGraph;
end.
Похожие вопросы