Форум программистов, компьютерный форум CyberForum.ru

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 24, средняя оценка - 5.00
Stockholm Syndrome
0 / 0 / 0
Регистрация: 22.05.2009
Сообщений: 9
#1

ИГРА УГАДАЙ СЛОВО - Delphi

12.06.2009, 17:42. Просмотров 2979. Ответов 0
Метки нет (Все метки)

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

Угадай число игра - Delphi
Народ. Надо сделать игру:Пользователь загадывает трехзначное число. Если последние цифры чисел совпали, то он получает 10 очков, если две...

Игра «Угадай число» - Delphi
Здравствуйте! Помогите мне, пожалуйста. Нужно написать игру «Угадай число». Программа с помощью датчика случайных чисел выбирает число в...

Угадай слово - Delphi
Разработать приложение для угадывания слов. В текстовое поле вводится не более чем одна буква. При щелчке на слове Ok если введенная в...

Создать игру 'Угадай слово' - Delphi
Нужно создать игру Угадай слово Суть игры чтоб по четырем картинкам пользователь мог угадать слово. Почти так же как на картинки

Разработка игры 'Угадай слово' - Delphi
Здравствуйте! Помогите пожалуйста создать игру Угадай слово за 4 картинками. Я в программировании новичок, поэтому возникли некоторые...

Разработка игры "Угадай слово" - Delphi
Всем здравствуйте. Прошу помочь с этой задачей: &quot;Разработать программу-игру «Угадай слово». Компьютер «задумывает» слово (слова можно...

игра 4 картинки 1 слово - Delphi
В текстовом документе(.txt) написаны буквы в столбик. Как присвоить каждую букву из текстового документа к отдельной кнопке? for i:=0 to...

Игра 4 фото 1 слово на делфи - Delphi
Каким образом можно реализовать игру 4 фото 1 слово на делфи? можете ли вы скинуть исходник одного слово(типа не полная игра а только 1...

Угадай число - Delphi
«Угадай число» . Программа с помощью датчика случайных чисел выбирает число из диапазона от 0 до 9. Отгадать это число за три попытки. ...

Угадай число - Delphi
Как вы поняли из названия темы я написал код на игру 'Угадай число' . Но есть проблема . Каждый раз когда я нажимаю на Button1...

Программа угадай число - Delphi
Необходимо создать программу угадай число, знаю на форуме по ней информации много, но программа нужно немного другая, небходимо чтобы 1...

Составить игровую программу Угадай число - Delphi
Есть задание: Составить игровую программу «Угадай число». Программа “задумывает” число, используя функцию генерации случайного числа. ...


Искать еще темы с ответами

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru