Помогите написать прогу, которая рисует ракету!если не сложно
Автор Царевна Будур, 30.10.2009, 14:59
#4
Отправлено 30.10.2009, 15:21:56
Код не мой, не гарантирую правильную работу:
Program raketa;
uses graph;
var gd,gm:integer;
begin
detectgraph (gd,gm);
initgraph (gd,gm,'C:\tp7 ');
line (300,60,240,120);
line (240,120,240,360);
line (360,120,360,360);
line (240,360,360,360);
line (300,60,360,120);
line (240,210,210,240);
line (210,240,240,240);
line (360,210,390,240);
line (390,240,360,240);
circle (300,150,15);
circle (300,210,15);
circle (300,270,15);
Bar (270,300,240,360);
line (240,360,180,450);
line (180,450,420,450);
line (420,450,360,360);
line (330,450,330,370);
line (300,450,300,365);
line (270,450,270,370);
line (240,330,180,330);
line (180,330,90,450);
line (172,330,80,445);
line (300,60,300,30);
readln
end.
Program raketa;
uses graph;
var gd,gm:integer;
begin
detectgraph (gd,gm);
initgraph (gd,gm,'C:\tp7 ');
line (300,60,240,120);
line (240,120,240,360);
line (360,120,360,360);
line (240,360,360,360);
line (300,60,360,120);
line (240,210,210,240);
line (210,240,240,240);
line (360,210,390,240);
line (390,240,360,240);
circle (300,150,15);
circle (300,210,15);
circle (300,270,15);
Bar (270,300,240,360);
line (240,360,180,450);
line (180,450,420,450);
line (420,450,360,360);
line (330,450,330,370);
line (300,450,300,365);
line (270,450,270,370);
line (240,330,180,330);
line (180,330,90,450);
line (172,330,80,445);
line (300,60,300,30);
readln
end.
#16
Отправлено 03.11.2009, 15:54:25
Да - помню приходила одна такая с КБТУ - мне мол говорит экзамен надо сдать через 3 дня по паскалю - вобщем мы все программы переписывали и сдавали, только я сама их никогда не писала. И вообще у меня мол танцы - потому у меня есть завтра и послезавтра по 2 часа - вобщем мне надо подготовиться к сдаче экзамена чтобы не вылететь с КБТУЯ чо то не поняла, что за сарказм и стеб, уважаемые?! Есть вопросы, велком в личку, расскажу, о чем думает Царевна
Модераторы, прошу Вас закрыть тему. Необходимость в ней отпала. Спасибо.
Вобщем я ее отправил танцевать дальше Эта похоже тоже гламурная программистка
#17
Отправлено 04.11.2009, 09:29:38
Щастье, мой тебе совет, если заигрываешь, иди до конца. Если хочется узнать подробно о моей жизни и деятельности, пиши в лс, а лучше в аську А то я смотрю, тебе все не уймется.
по теме: я писала самые легкие программы эдак, года 4 назад, в колледже, знания улетучились, и сейчас мне срочно понадобилось написать эту программу. А под рукой Паскаля нет. И естественно, не помню уже ничего. Решила восстановить память. Вопросы есть?
по теме: я писала самые легкие программы эдак, года 4 назад, в колледже, знания улетучились, и сейчас мне срочно понадобилось написать эту программу. А под рукой Паскаля нет. И естественно, не помню уже ничего. Решила восстановить память. Вопросы есть?
#18
Отправлено 09.11.2009, 06:45:59
#19
Отправлено 09.11.2009, 12:00:50
что то в 2 разных темах одно и то же. какая то девочка нездоровая.Всё решение вашей проблемы сдесь
http://letitbit.net/...deo_12.zip.html
Количество пользователей, читающих эту тему: 1
пользователей: 0, неизвестных прохожих: 1, скрытых пользователей: 0