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

 
 Ответить  Открыть новую тему 
> Помогите, пожалуйста, с созданием первой игры!
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Мужской
Реальное имя: Алексей

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


помогите пожалуйста! Хочу создать простую игру,но у меня не получилось!

помогите пожалуйста!! на паскале програмировать начал недавно. Пробовал писать графические игры-но ничего не получилось! mega_chok.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Знаток
****

Группа: Пользователи
Сообщений: 466
Пол: Мужской
Реальное имя: Федосеев Павел

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


Тут народ даёт хорошие советы.
Я когда-то пробовал текстовый Сокобан.
А самой первой была попытка клонировать с Рапиры (АГАТ) на BASIC (PC) текстовую игрушку "Королевство Зерна". Мы с одноклассником её за один вечер смогли почти закончить. Вся прелесть была в том, что тогда каждый BASIC - свой непохожий диалект, а IBM PC мы видели почти впервые и Internet отсутствовал. Если оператор не компилировался - мы перебирали варианты его использования (воспользоваться справкой, почему-то, не догадались). Но силы нас переполняли - мы уже 3 или 4 недели в школе и на УПК учили разные BASIC'и!

Попробуй с чего-то текстового.

Дерзай!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Мужской
Реальное имя: Алексей

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


Спасибо за совет!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Мужской
Реальное имя: Алексей

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


ура получилось!!! chore.gif

uses crt;
var a,d,g:integer;
begin
clrscr;
a:=1;
d:=2;
g:=3;
while g=a+d do
begin
randomize;
a:=random(10);
d:=random(10);
write(a,'+',d);
readln(g);
end;

end.


Добавлено через 7 мин.
маленький upgrade

uses crt;
var a,d,g,ff:integer;
begin
clrscr;
writeln('до какого числа можно мне выдавать числа?');
readln(ff);
a:=1;
d:=2;
g:=3;
while g=a+d do
begin
randomize;
a:=random(ff);
d:=random(ff);
write(a,'+',d);
readln(g);
end;

end.


Сообщение отредактировано: OCTAGRAM -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 




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