Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Delphi > Форум Delphi для начинающих
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Старый 12.06.2009, 17:42   #1
Stockholm Syndrome
Новичок
 
Регистрация: 22.05.2009
Сообщений: 9
Репутация: 0 (0)
ИГРА УГАДАЙ СЛОВО / Delphi для начинающих

Программа случайным образом загадывает слово. Ивыводит столько прочерков стколько букв в этом слове. Если буква указана правильно то она подставляется вместо соответствующего прочерка.К очкам игрока прибавляется +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.
Другие темы раздела Форум начинающих программистов Delphi. Вопросы начинающих по Delphi. Помощь студентам и школьникам в решении задач.
Построение графика в Delphi Delphi
Суть вопроса состоит в том что мне надо написать работу в Delphi: "Построение графиков exp(x) и ln(x) в Delphi" Кто может помогите буду очень благодарен
Анимация Delphi
Помогите с заданием: Надо изобразить прямоугольник с тенью. Обеспечить перемещение прямоугольника по диагонали из левого верхнего в правый нижний угол. Заранее Спасибо. Добавлено через 16 часов 24 минуты 46 секунд Все, спасибо, сам справился. можно удалить тему
Старый 12.06.2009, 17:42
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
Бета-тестирование Игра: Угадай сходства.
Игра написана на C#. Цель: угадать одинаковые числа. В игре три режима. i86t-xTe-cI
Доктор Гордон
PHP для начинающих Игра угадай число
Помогите написать программу...уже целый день мучаюсь - никак не допрут, но мысли какие-то есть) Написать игру, где вы загадываете число от 0 до 1000, а компьютер угадывает за 10 ходов, задавая вам следующий вопрос: - Верно ли, что задуманное число больше такого-то числа? Программа должна...
The1Phoenix
Delphi для начинающих Угадай число игра
Народ. Надо сделать игру:Пользователь загадывает трехзначное число. Если последние цифры чисел совпали, то он получает 10 очков, если две последние цифры - 100 очков, если все три цифры - 1000 очков. Одновременно программа должна определять вероятность угадывания для каждого из трех вариантов....
teres
C# Windows Forms Игра угадай число
Нужен только часть кода для этой игры. Есть загаданное число, а пользователь вводит в текстбох числа, если введенное число по сравнению с предыдущим ближе к загаданному то фон становится красным(т.е. теплее), если дальше то синим т.е. холоднее. Полчается нужно сравнивать числа которые вводяться в...
IsoOmena
Музыка Форумная игра-Угадай мелодию
Собственно правила простые-один небольшим кусочком текста загадывает любую песню, а кто угадает исполнителя и*(или) название продолжает игру и загадывает свою)))) P.S. Только не гуглим, на совесть) Начну: "Реальность распадается на части, здрасти, спутились масти, разыгрались страсти, пасти...
Komunizm
Опции темы

Текущее время: 13:13. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.