люди нужна помощь Опции

[Partiynuy]

люди пожалуйста помогите мне завтра курсовую здавать и мне нужно 20 простых статических рисунков на Паскале
если у вас чтото такое есть скиньте пожалуйста на <...>

М

на форуме запрещается: 12. просить ответить на какой-либо e-mail... e-mail адреса вырезаются. Уважайте собеседников - вы пришли на форум а не на доску объявлений...

Сообщение отредактировано: klem4 - 29.12.2006 13:01

[Jekaterina]

Uses Graph;
Var gd, gm, k: Integer; 
Procedure PutCar(x,y,m: Integer); 
begin	{ Uzzīmēt mašīnu }
   SetFillStyle(1,14); Bar(x-3*m,y-m,x+m,y+m);
   SetFillStyle(1,12); Bar(x+m,y-2*m,x+3*m,y+m);
   SetFillStyle(1,7); FillEllipse(x-2*m,y+m,m,m);
   FillEllipse(x+2*m,y+m,m,m);
end;  {PutCar}
begin {Main}
    gd:=Detect; InitGraph(gd,gm,'');
    PutCar(100,100,10);  PutCar(300,200,7);  
    For k:=1 To 5 Do  PutCar(k*100,300,5);  
    Readln; CloseGraph;
end.

Это машинки, если тебе нужно

Извиняюсь за оформление, с тегами не разобралась