IPB
ЛогинПароль:

> люди нужна помощь
Partiynuy
сообщение 28.12.2006 22:40
Сообщение #1


Гость






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

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




Сообщение отредактировано: klem4 - 29.12.2006 9:01
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Jekaterina
сообщение 29.12.2006 2:13
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 61
Пол: Женский
Реальное имя: Jekaterina Lauce

Репутация: -  0  +


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.

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

Извиняюсь за оформление, с тегами не разобралась
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 11:48
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"