Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Stockholm Syndrome
Новичок
0 / 0 / 0
Регистрация: 22.05.2009
Сообщений: 9
12.06.2009, 17:42     ИГРА УГАДАЙ СЛОВО
  #1
Программа случайным образом загадывает слово. Ивыводит столько прочерков стколько букв в этом слове. Если буква указана правильно то она подставляется вместо соответствующего прочерка.К очкам игрока прибавляется +1 очко.Если же буква угадана игроком не првильно,то у него отнимается 1 оччко.В начале у игрока 15 очков.
Прогу написала,но она косячно работает..
И я не могу понять как угаданную букву подставить вместо соответствующего прочерка.Нужна помощь!!

Вот мой код:
type mas=array[1..10] of string;//массив их строк//
var
slovo:mas;//массив из строк//
i,j,nomer_zb:byte;//для пробежки по элементам массива//
procherk:char;
zagad_slovo,pr_str:string;
bukva_igroka:char;
ochki_igroka:integer;

begin

slovo[1]:='text'; //Задаем массив из строк//
slovo[2]:='excel';
slovo[3]:='acsses';
slovo[4]:='powerpoint';
slovo[5]:='onenote';
slovo[6]:='publisher';
slovo[7]:='infopath';
slovo[8]:='groove';
slovo[7]:='sharepoint';
slovo[8]:='frontpage';
slovo[9]:='outlook';
slovo[10]:='picturemanager';

randomize;
i:=random(10)+1;
zagad_slovo:=slovo[i];
procherk:='-';
ochki_igroka:=15;
nomer_zb:=1;
pr_str[j]:=procherk;

for j:=1 to length(zagad_slovo) do
writeln(procherk);


Writeln('Dobro pozalovat v igru ugadai slovo!');
Writeln('_______________________________________________');
Writeln('Pravila igri sleduyushie:zagadiaetsya slovo i na display poyavlaetsa stolko procherkov,skolko bukv v slove.Vi dolzni ugadat slovo.');
Writeln('__________________________________________________________________________________________________________________________________');
Writeln('V nachale u vas 15 ochkov.Za kazdi hod vi mozhete ugadat 1 bukvu.Esli bukva nazvana neverno vash schet umenshaetsa na odno ochko.');
Writeln('_________________________________________________________________________________________________________________________________');
Writeln('Kogda vashi ochki stanut ravni 0 vi proigraete');
Writeln('___________________________________________________________________________________');
Writeln('Tema slov:Microsoft Office.Zagadanie slova yavlyayutsa prilozgenia Microsoft Office');
readln;
readln;

while (pos(procherk,pr_str)=0) and (ochki_igroka<>0) do
begin
begin
writeln('_____________________________________________________________________');
writeln('Vvedite bukvy');
readln(bukva_igroka);
for j:=1 to length(zagad_slovo) do
if zagad_slovo[j]=bukva_igroka then
begin
nomer_zb:=j;
ochki_igroka:=ochki_igroka+1;
writeln('Vi pravilno ugadali bukvu');
break;
end


else nomer_zb:=0;
if nomer_zb=0 then
ochki_igroka:=ochki_igroka-1;
writeln('Vi nepravilno ugadali bukvu');
readln;
writeln(ochki_igroka);
if ochki_igroka<=0 then break;
end;


if ochki_igroka=0 then writeln('You Lost.Vashi ochki ravni 0');
readln;
end;
end.
AdAgent
Объявления
12.06.2009, 17:42
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Ответов Автор Дата
Delphi Угадай слово
Разработать приложение для угадывания слов. В текстовое поле вводится не более чем одна буква. При щелчке на слове Ok если введенная в текстовое поле буква совпадает с загаданной буквой, то ее цвет...
Delphi для начинающих 3 Danonya2 27.12.2013 13:53
Delphi В заданном тексте везде заменить слово A1 на слово A2
в заданном тексте везде заменить слово A1 на слово A2(длины слов не совпадают)
Delphi для начинающих 1 fan1995 25.12.2013 13:20
Delphi Угадай число
Как вы поняли из названия темы я написал код на игру 'Угадай число' . Но есть проблема . Каждый раз когда я нажимаю на Button1 ,генерируется другое случайное число. Как сделать так чтобы оно не...
Delphi для начинающих 11 KelleR 06.07.2013 23:10
Delphi Угадай число
«Угадай число» . Программа с помощью датчика случайных чисел выбирает число из диапазона от 0 до 9. Отгадать это число за три попытки. После каждой попытки сообщается, больше или меньше названное...
Delphi для начинающих 4 Dregan 16.05.2013 18:48
Delphi Программа угадай число
Необходимо создать программу угадай число, знаю на форуме по ней информации много, но программа нужно немного другая, небходимо чтобы 1 пользователь загадывает число, не рандомно, а чтобы...
Delphi для начинающих 11 tema2434 29.01.2013 15:33
Delphi DELPHI 7!? Одна небольшая регулярка, напр. слово 24.-aurum , как разгруппировать на слово и на (не буквы)?
В общем есть много таких слов, которые начинаются не символами, а допустим как я уже приводил пример 33.-test, так вот как разгруппировать (33.-)(test), вот так, т.е. то что идет до слова test нужно...
Delphi для начинающих 13 Schtrich 20.01.2012 11:42
Delphi Угадай число игра
Народ. Надо сделать игру:Пользователь загадывает трехзначное число. Если последние цифры чисел совпали, то он получает 10 очков, если две последние цифры - 100 очков, если все три цифры - 1000 очков....
Delphi для начинающих 9 teres 01.12.2011 03:41
Delphi Найти,слово встречающиеся в каждом предложений или сообщить что такого слово нет
Помогите написать программу да Delphi которая: Найти,слово встречающиеся в каждом предложений или сообщить что такого слово нет Заранее Благодарю за помощь!!
Delphi для начинающих 3 Чингисхан 29.11.2010 20:15
Опции темы

Текущее время: 19:40. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.