Форум программистов, компьютерный форум 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    ИГРА УГАДАЙ СЛОВО
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.06.2009, 17:42    ИГРА УГАДАЙ СЛОВО

Посмотрите здесь:

Delphi СТРОКИ. заменить слово А1 на слово А2

Delphi Найти,слово встречающиеся в каждом предложений или сообщить что такого слово нет

Delphi Угадай число игра

Delphi DELPHI 7!? Одна небольшая регулярка, напр. слово 24.-aurum , как разгруппировать на слово и на (не буквы)?

Delphi Программа угадай число

Delphi Угадай число

Delphi Угадай число

Delphi Дан символьный файл f. Найти самое длинное слово в файле.(слово − произвольная последовательность символов, разделенная пробелами)

Delphi В заданном тексте везде заменить слово A1 на слово A2

Delphi Угадай слово

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

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