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

 
 Ответить  Открыть новую тему 
> ПОМОГИТЕ С НАПИСАНИЕМ ИГРЫ
alex 10
сообщение 12.12.2014 19:09
Сообщение #1


Новичок
*

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

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


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


Бывалый
***

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

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


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

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

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


Новичок
*

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

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


Спасибо за совет!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
alex 10
сообщение 18.12.2014 11:27
Сообщение #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.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 



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