Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Свободное общение _ люди нужна помощь

Автор: Partiynuy 29.12.2006 2:40

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

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



Автор: Bokul 29.12.2006 2:46


Что такое "статический рисунок"? blink.gif

Автор: мисс_граффити 29.12.2006 3:18

а почему в "свободном общении"?

Автор: arhimag 29.12.2006 3:18

наверное рисунок который не двигаеться

Автор: Bokul 29.12.2006 5:01

Цитата
наверное рисунок который не двигаеться

Тогда при чем здесь паскаль? blink.gif

Автор: Jekaterina 29.12.2006 6:13

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.

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

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

Автор: volvo 30.12.2006 4:49

Jekaterina, это - динамический рисунок... Автор просил статику...

Автору: В поиск, по слову Graph, например...