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

Похожие темы
Тема Раздел Автор Дата
Turbo Pascal Игра Угадай число
Здравствуйте!Я только начинающий поэтому прошу сильно не бросаться камнями в мою сторону.Прошу вашего дельного совета то бишь помощи.Смысл проблемы- есть задача и есть решение( возможно слегка корявое) нужно - подсказать как оптимизировать код (если возможно) или как можно решить по другому.Буду...
Turbo Pascal ZarinZomanu4 11.07.2013 23:53
C++ Игра Угадай Слово ошибка в коде
Здравствуйте,проблема в том, что программа работает не корректно. А именно в начале программы при вводе "да" игра закрывается, хотя наоборот должна начаться. Помогите пожалуйста. Собственно вот код : #include <iostream> #include <string> #include <cstdlib> #include <ctime> #include <cctype>...
С++ для начинающих hotborsh 13.05.2013 19:52
Документация к курсовому проекту "Игра "угадай слово"" - Заказать диплом, курсовую работу
Мне надо написать документацию (пояснительную записку) к программе "угадай слово". Программу я сделал на языке VB 2008 (ну это непринципиально), но уже второй день ломаю голову с документацией. Есть образец трёх работ. Кто может написать документацию (по образцу), к программе пожалуйста напишите...
Заказать диплом, курсовую работу Лёха_ 07.04.2013 13:05
Игра: Угадай сходства. - Бета-тестирование
Игра написана на C#. Цель: угадать одинаковые числа. В игре три режима. i86t-xTe-cI
Бета-тестирование Доктор Гордон 13.04.2012 19:33
Delphi Угадай число игра
Народ. Надо сделать игру:Пользователь загадывает трехзначное число. Если последние цифры чисел совпали, то он получает 10 очков, если две последние цифры - 100 очков, если все три цифры - 1000 очков. Одновременно программа должна определять вероятность угадывания для каждого из трех вариантов....
Delphi для начинающих teres 01.12.2011 03:41
Опции темы


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