Полная версия: ПОМОГИТЕ С НАПИСАНИЕМ ИГРЫ
помогите пожалуйста!! на паскале програмировать начал недавно. Пробовал писать графические игры-но ничего не получилось!
Тут народ даёт хорошие советы.
Я когда-то пробовал текстовый Сокобан.
А самой первой была попытка клонировать с Рапиры (АГАТ) на BASIC (PC) текстовую игрушку "Королевство Зерна". Мы с одноклассником её за один вечер смогли почти закончить. Вся прелесть была в том, что тогда каждый BASIC - свой непохожий диалект, а IBM PC мы видели почти впервые и Internet отсутствовал. Если оператор не компилировался - мы перебирали варианты его использования (воспользоваться справкой, почему-то, не догадались). Но силы нас переполняли - мы уже 3 или 4 недели в школе и на УПК учили разные BASIC'и!
Попробуй с чего-то текстового.
Дерзай!
Я когда-то пробовал текстовый Сокобан.
А самой первой была попытка клонировать с Рапиры (АГАТ) на BASIC (PC) текстовую игрушку "Королевство Зерна". Мы с одноклассником её за один вечер смогли почти закончить. Вся прелесть была в том, что тогда каждый BASIC - свой непохожий диалект, а IBM PC мы видели почти впервые и Internet отсутствовал. Если оператор не компилировался - мы перебирали варианты его использования (воспользоваться справкой, почему-то, не догадались). Но силы нас переполняли - мы уже 3 или 4 недели в школе и на УПК учили разные BASIC'и!
Попробуй с чего-то текстового.
Дерзай!
Спасибо за совет!
ура получилось!!! 
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.
Код
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.