|
Pascal(помогите написать игру)
| |
| Danielka | Дата: Воскресенье, 2011-05-29, 10:34 PM | Сообщение # 16 |
Бакалавр
Группа: Проверенные
Сообщений: 127
Репутация: 1
Замечания: 0%
Статус: Offline
| KaDeaT, я туплю конкретно...последний раз в графе 2 года назад работала...
----------------------
Нелегка жизнь студента...:(
|
| |
| |
| KaDeaT | Дата: Воскресенье, 2011-05-29, 10:36 PM | Сообщение # 17 |
Нобелевский лауреат
Группа: Проверенные
Сообщений: 11169
Репутация: 1446
Замечания: 0%
Статус: Offline
| Danielka, меня это мало тревожит, пробуй, пиши учись. Я тебе говорю на это надо 20 минут.
Обучение программированию
|
| |
| |
| Danielka | Дата: Воскресенье, 2011-05-29, 10:43 PM | Сообщение # 18 |
|
Бакалавр
Группа: Проверенные
Сообщений: 127
Репутация: 1
Замечания: 0%
Статус: Offline
| KaDeaT, вот сижу...ищу(
----------------------
Нелегка жизнь студента...:(
|
| |
| |
| KaDeaT | Дата: Воскресенье, 2011-05-29, 10:45 PM | Сообщение # 19 |
|
Нобелевский лауреат
Группа: Проверенные
Сообщений: 11169
Репутация: 1446
Замечания: 0%
Статус: Offline
| Не пытайся пробить во мне жалость, за тебя я в любом случае не стану писать =)
что ты ищешь? Учебник по паскалю?
Обучение программированию
|
| |
| |
| Danielka | Дата: Воскресенье, 2011-05-29, 10:51 PM | Сообщение # 20 |
|
Бакалавр
Группа: Проверенные
Сообщений: 127
Репутация: 1
Замечания: 0%
Статус: Offline
| KaDeaT, нет,
uses crt, graph;
var
grDriver,grMode:integer;
x1,y1,x2,y2:integer;
BEGIN
grDriver:=Detect;
InitGraph(grDriver,grMode,'');
x1:=30;
y1:=30;
x2:=100;
y2:=100;
rectangle(x1,y1,x2,y2);
readln;
CloseGraph;
end.
и ничего не выводит(
----------------------
Нелегка жизнь студента...:(
|
| |
| |
| KaDeaT | Дата: Воскресенье, 2011-05-29, 11:17 PM | Сообщение # 21 |
|
Нобелевский лауреат
Группа: Проверенные
Сообщений: 11169
Репутация: 1446
Замечания: 0%
Статус: Offline
| InitGraph(grDriver,grMode,'');
А кто вместо тебя будет писать в кавычках путь к файлу драйвера ? =)Добавлено (2011-05-29, 11:17 PM)
---------------------------------------------
Я сделал так
program test;
uses crt, graph;
var
grDriver,grMode:integer;
x1,y1,x2,y2:integer;
BEGIN
grDriver:=Detect;
InitGraph(grDriver,grMode,'D:\TP\BGI');
x1:=30;
y1:=30;
x2:=100;
y2:=100;
rectangle(x1,y1,x2,y2);
readln;
CloseGraph;
end.
и у меня нарисовался квадратик =)
Обучение программированию
Сообщение отредактировал KaDeaT - Воскресенье, 2011-05-29, 11:03 PM |
| |
| |
| Noxwell | Дата: Воскресенье, 2011-05-29, 11:18 PM | Сообщение # 22 |
Академик
Группа: Проверенные
Сообщений: 1085
Репутация: 213
Замечания: 0%
Статус: Offline
| Quote (KaDeaT) Noxwell, а что сложного в написании этой игры, фигня же, нет? 
|
| |
| |
| Danielka | Дата: Воскресенье, 2011-05-29, 11:20 PM | Сообщение # 23 |
|
Бакалавр
Группа: Проверенные
Сообщений: 127
Репутация: 1
Замечания: 0%
Статус: Offline
| KaDeaT, да я как то скидывала в корень файл...если он есть там..то писать не надо..)а его не оказалось)))спасибо на этом хотя бы) Добавлено (2011-05-29, 11:19 PM)
---------------------------------------------
uses crt, graph;
var
grDriver,grMode:integer;
x1,y1,x2,y2:integer;
BEGIN
grDriver:=Detect;{®ЇаҐ¤Ґ«ҐЁҐ вЁЇ Ја дЁзҐбЄ®Ј® ¤а ©ўҐа }
InitGraph(grDriver,grMode,'egavga.bgi');{ЁЁжЁ «Ё§ жЁп Ја дЁЄЁ}
if GraphResult<>grOk then {Ґб«Ё Їа®Ё§®и« ®иЁЎЄ Halt ЁЁжЁ «Ё§ жЁЁ
б Ї®¬®ймо ўл室Ё¬ Ё§ Їа®Ја ¬¬}
writeln(GraphErrorMsg(graphresult))
else
begin
x1:=30;
y1:=30;
x2:=100;
y2:=100;
bar(x1,y1,x2,y2);
readln;
CloseGraph
end
end.
работает))) Добавлено (2011-05-29, 11:20 PM)
---------------------------------------------
прямоугольник)
----------------------
Нелегка жизнь студента...:(
|
| |
| |
| KaDeaT | Дата: Воскресенье, 2011-05-29, 11:22 PM | Сообщение # 24 |
|
Нобелевский лауреат
Группа: Проверенные
Сообщений: 11169
Репутация: 1446
Замечания: 0%
Статус: Offline
| пока делай что я тебе сказал, до четверга ты еще успеешь написать эту легкую фигню.=) Добавлено (2011-05-29, 11:22 PM)
---------------------------------------------
молодец, теперь закрась его еще беленьким чтобы было понятно что это бумажка.
Потом когда все будет в елочку, делай следующие две мини-программы.
Обучение программированию
|
| |
| |
| Danielka | Дата: Воскресенье, 2011-05-29, 11:35 PM | Сообщение # 25 |
|
Бакалавр
Группа: Проверенные
Сообщений: 127
Репутация: 1
Замечания: 0%
Статус: Offline
| подобие камня
uses crt, graph;
var
grDriver,grMode:integer;
x,y,fi1,fi2,rx,ry:integer;
BEGIN
grDriver:=Detect;{®ЇаҐ¤Ґ«ҐЁҐ вЁЇ Ја дЁзҐбЄ®Ј® ¤а ©ўҐа }
InitGraph(grDriver,grMode,'egavga.bgi');{ЁЁжЁ «Ё§ жЁп Ја дЁЄЁ}
if GraphResult<>grOk then {Ґб«Ё Їа®Ё§®и« ®иЁЎЄ Halt ЁЁжЁ «Ё§ жЁЁ
б Ї®¬®ймо ўл室Ё¬ Ё§ Їа®Ја ¬¬}
writeln(GraphErrorMsg(graphresult))
else
begin
x:=150;
y:=150;
rx:=70;
ry:=50;
setfillstyle(1,7);
fillellipse(x,y,rx,ry);
readln;
CloseGraph
end
end.
----------------------
Нелегка жизнь студента...:(
|
| |
| |
| KaDeaT | Дата: Воскресенье, 2011-05-29, 11:42 PM | Сообщение # 26 |
|
Нобелевский лауреат
Группа: Проверенные
Сообщений: 11169
Репутация: 1446
Замечания: 0%
Статус: Offline
| Сойдет. Дальше =)
Обучение программированию
|
| |
| |
| Danielka | Дата: Понедельник, 2011-05-30, 0:01 AM | Сообщение # 27 |
|
Бакалавр
Группа: Проверенные
Сообщений: 127
Репутация: 1
Замечания: 0%
Статус: Offline
| ножницы)))
uses crt, graph;
var
grDriver,grMode:integer;
x1,y1,x2,y2,r,x3,x4,x5,x6,y3,y4,y5,y6:integer;
BEGIN
grDriver:=Detect;{®ЇаҐ¤Ґ«ҐЁҐ вЁЇ Ја дЁзҐбЄ®Ј® ¤а ©ўҐа }
InitGraph(grDriver,grMode,'egavga.bgi');{ЁЁжЁ «Ё§ жЁп Ја дЁЄЁ}
if GraphResult<>grOk then {Ґб«Ё Їа®Ё§®и« ®иЁЎЄ Halt ЁЁжЁ «Ё§ жЁЁ
б Ї®¬®ймо ўл室Ё¬ Ё§ Їа®Ја ¬¬}
writeln(GraphErrorMsg(graphresult))
else
begin
x1:=50;
y1:=50;
x2:=50;
y2:=100;
r:=10;
circle(x1,y1,r);
circle(x2,y2,r);
x3:=58;
x4:=100;
y3:=58;
y4:=100;
line(x3,y3,x4,y4);
x5:=58;
x6:=100;
y5:=95;
y6:=50;
line(x5,y5,x6,y6);
readln;
CloseGraph
end
end.
----------------------
Нелегка жизнь студента...:(
|
| |
| |
| KaDeaT | Дата: Понедельник, 2011-05-30, 0:15 AM | Сообщение # 28 |
|
Нобелевский лауреат
Группа: Проверенные
Сообщений: 11169
Репутация: 1446
Замечания: 0%
Статус: Offline
| нормально =)))
теперь пиши новую программу. с функциями работала?
Обучение программированию
|
| |
| |
| Danielka | Дата: Понедельник, 2011-05-30, 0:18 AM | Сообщение # 29 |
|
Бакалавр
Группа: Проверенные
Сообщений: 127
Репутация: 1
Замечания: 0%
Статус: Offline
| KaDeaT, 2 года назад)
процедуры ведь тоже самое что функции???
----------------------
Нелегка жизнь студента...:(
|
| |
| |
| KaDeaT | Дата: Понедельник, 2011-05-30, 0:33 AM | Сообщение # 30 |
|
Нобелевский лауреат
Группа: Проверенные
Сообщений: 11169
Репутация: 1446
Замечания: 0%
Статус: Offline
| ну почти =)))
есть различие, одно не возвращает ничего, а другое возвращает =)))
короче напиши программу в которой будет три функции которые выводят на экран камень ножницы и бумагу.
формат примерно такой.
stoun(x,y); где х и у это координаты центра фигуры.( ну или для ножниц координаты какого нибудь колечка. Типа точка относительно которой будет рисоваться фигурка. чтобы разделять ходы игрока и компа.=)
Чтобы ты знала, сейчас мы занимаемся т.н. снизу вверх. от малого к большому. Сначала сделали небольшие програмки ответственные за прорисовку, потом сделаем их функциями, потом сделаем саму игру в текстовом виде, потом добавим графики и все.Добавлено (2011-05-30, 0:31 Am)
---------------------------------------------
Есть так же и обратная стратегия. Сначала основу программы пишешь, с функциями-заглушками, т.е. просто имена, но они ничего не делают, как скелет. А потом каждую по отдельности прорабатываешь.Я таким пользуюсь на олимпиадах. Добавлено (2011-05-30, 0:33 Am)
---------------------------------------------
Кстати, кто пишет ЕГЭ по инфе С4 тоже так надо делать!
Обучение программированию
Сообщение отредактировал KaDeaT - Понедельник, 2011-05-30, 0:28 AM |
| |
| |
|
|
|
RSS: