Текстовые игры - Turbo Pascal

Формулировка задачи:

Здравствуйте , друзья ! Последнее время я начал замечать на разных форумах вопросы "как написать 2d игру на паскаль" и другие похожие вопросы. Обычно это пишут те, кто только начал учить язык и им уже интересно создать свою игру. Конечно, нельзя написать игру, зная лишь, что такое if и else, но можно написать простую текстовую прикольную игру которой можно похвастаться пред друзьями. Эта тема специально для таких людей. Начнем с вопроса "Какую игру написать проще всего ?" - ответ прост : текстовую и простую. А какую именно ? Я думаю для начала сойдет "угадайка". Угадайка - это простоя игра где надо угадать число. Алгоритм прост : 1. создаем random число и пишем его в переменную 2.даем юзеры ввести переменную 3.входим в цикл (повторять пока не отгадаем) 4. проверяем переменная юзера = random переменной? если = , то юзер выиграл 5.если < , то выводим "бери больше" 6. если > , то выводим "бери меньше" У такой игры есть свои плюсы и минусы. Хочу рассказать сначала про плюсы , но как говорила Масяня "Сначало про всех козлов",поэтому: минусы : 1.игра очень проста и в ней нельзя проиграть 2.игра без графики плюсы : 1.лекго написать 2.создание игры помогает практиковать свои знания 3.ну и конечно же-игрой можно хвастаться пред друзьями) Начнем писать ...

uses crt;
var
v : boolean; { чтоб узнать когда выиграем}
i : integer;{Для рандомного числа от 0 до 10 }
u:integer;
begin
randomize;
i:=Random(10);
v:=false;
repeat
clrscr;
readln (u);
if u = i then v:= true; {если угадали}
if u < i then write ('бери больше');
if u > i then write ('бери меньше');
readln;
until v = true;
end.

это моя 1 тема - урок (строго не судите) если тема наберет >20 спасибок ,то я добавлю исходник игры "поле чудес для двоих игроков".

Решение задачи: «Текстовые игры»

Листинг программы

uses crt;
var
 comp, my, help : string;
 i, n, j, i2, j2, buffalo, cow, kol: integer;
 i3,j3, a : integer;
 basa: string;
 label vihod;
begin
clrscr;
randomize;
a:=0;
comp:='0000';
my:='0000';
basa:='1234567890';
for i:= 1 to 4 do
begin
n:=1+random(Length(basa)-1);
comp[i]:=basa[n];
Delete(basa,n,1);
end;
 
Write('ГЏГ®ГЄГ*Г§Г*ГІГј ГЇГ®Г¤Г±ГЄГ*Г§ГЄГі(y/n)');
ReadLn(help);
 
if help = 'y' then
begin
WriteLn('ГЉГ®Г¬ГЇГјГѕГІГҐГ° ГЈГҐГ*ГҐГ°ГЁГ°ГіГҐГІ ГІГ*Г©Г*Г®ГҐ 4-Г§Г*Г*Г·Г*Г®ГҐ Г·ГЁГ±Г«Г® Г± Г*ГҐГЇГ®ГўГІГ®Г°ГїГѕГ№ГЁГ¬ГЁГ±Гї Г¶ГЁГґГ°Г*Г¬ГЁ.');
WriteLn('Г€ГЈГ°Г®ГЄ Г¤ГҐГ«Г*ГҐГІ ГЇГ®ГЇГ»ГІГЄГі Г®ГІГЈГ*Г¤Г*ГІГј Г·ГЁГ±Г«Г®.');
WriteLn('ГЏГ®ГЇГ»ГІГЄГ* — ГЅГІГ® 4-Г§Г*Г*Г·Г*Г®ГҐ Г·ГЁГ±Г«Г® Г± Г*ГҐГЇГ®ГўГІГ®Г°ГїГѕГ№ГЁГ¬ГЁГ±Гї Г¶ГЁГґГ°Г*Г¬ГЁ.');
WriteLn('ГЉГ®Г¬ГЇГјГѕГІГҐГ° Г±Г®Г®ГЎГ№Г*ГҐГІ Г±ГЄГ®Г«ГјГЄГ® Г¶ГЁГґГ° ГіГЈГ*Г¤Г*Г*Г® ГЎГҐГ§ Г±Г®ГўГЇГ*Г¤ГҐГ*ГЁГї Г± ГЁГµ ГЇГ®Г§ГЁГ¶ГЁГїГ¬ГЁ Гў ГІГ*Г©Г*Г®Г¬');
WriteLn('Г·ГЁГ±Г«ГҐ ГЁ Г±ГЄГ®Г«ГјГЄГ® ГіГЈГ*Г¤Г*Г*Г® ГўГЇГ«Г®ГІГј Г¤Г® ГЇГ®Г§ГЁГ¶ГЁГЁ Гў ГІГ*Г©Г*Г®Г¬ Г·ГЁГ±Г«ГҐ.');
WriteLn('ГЏГ®ГЎГҐГ¤Г* Гў ГІГ®Г¬ Г±Г«ГіГ·Г*ГҐ ГҐГ±Г«ГЁ ГўГ» ГіГЈГ*Г¤Г*ГҐГІГҐ Г·ГЁГ±Г«Г® Г± 10 ГЇГ®ГЇГ»ГІГ®ГЄ.');
WriteLn('Г‚ГўГҐГ¤ГЁГІГҐ exit ГҐГ±Г«ГЁ ГўГ*Г¬ Г*Г*Г¤Г®ГҐГ«Г® ГЁГЈГ°Г*ГІГј!');
WriteLn('Г€ГЈГ°Г* ГЎГіГ¤ГҐГІ ГЇГ°Г®Г¤Г®Г«Г¦Г*ГІГјГ±Гї 10 ГµГ®Г¤Г®Гў ГЁГ«ГЁ Г¤Г® ГЇГ®ГЎГҐГ¤Г»!!');
end;
 
repeat
buffalo:=0;
cow:=0;
Write('Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г®: ');
ReadLn(my);
 
kol:= Length(my);
 
 
if my = 'exit' then
goto vihod;
 
if a = 10 then
goto vihod;
 
for j:= 1 to 4 do
if comp[j] = my[j] then buffalo:=buffalo+1;
 
for j2:= 1 to 4 do
for i2:= 1 to 4 do
if (comp[i2] = my[j2]) and (comp[i2] <> my[i2]) then cow:=cow+1;
 
if kol=4 then begin WriteLn('ГЃГ»ГЄГ®Гў: ',buffalo,'. ГЉГ®Г°Г®Гў: ',cow); a:=a+1; end;
if kol<>4 then begin writeln ('ГЋГёГЁГЎГЄГ*, Г*ГҐГЇГ°Г*ГўГЁГ«ГјГ*Г®ГҐ ГЄГ®Г«ГЁГ·ГҐГІГўГ® ГўГўГ®Г¤ГЁГ¬Г»Гµ Г¶ГЁГґГ°: Г*ГіГ¦Г*Г® 4'); end;
if a = 10 then goto vihod;
until (comp = my);
 
WriteLn('Г‚Г» Г±Г¤ГҐГ«Г*Г«ГЁ ', a, ' ГµГ®Г¤Г®Гў!');
WriteLn('ГЉГ®Г¬ГЇГјГѕГІГҐГ° Г§Г*ГЈГ*Г¤Г*Г«: ',comp);
ReadLn;
vihod: writeln ('Г“ ГўГ*Г± Г§Г*ГЄГ®Г*Г·ГЁГ«ГЁГ±Гј ГµГ®Г¤Г»!'); writeln ('Г‡Г*ГЈГ*Г¤Г*Г*Г®ГҐ Г·ГЁГ±Г«Г®: ',comp);
 
end.

Объяснение кода листинга программы

Этот код написан на Turbo Pascal и представляет собой текстовую игру. Он использует случайное перемешивание символов в строке basa для создания уникального кода. Затем он проверяет, совпадает ли этот код с введенным пользователем. Если да, то выводится сообщение о победе и новый код. Если нет, то выводится сообщение о поражении и старый код. Код продолжается до тех пор, пока не будет достигнут требуемый результат.