игра в слова...

@deathart · Регистрация: 07.11.2011

Студворк — интернет-сервис помощи студентам

Помогите решить....

Игра в слова.Программа выбирает слово и рисует на экране столько прочерков, сколько букв в этом слове. Отгадать какое слово задумано.В каждый ход играющий указывает одну букву.Если названа буква, входящая в состав слова, то она подставляется вместо соответствующего прочерка.В противном случае играющий теряет одно очко. На начало момента игры у играющего 15 очков.

@Вася1q · 29.11.2011, 17:36

Pascal

program Project2;
 
uses
 SysUtils;
var points, i:integer;
word:string;
selected:set of char;
ch:char;
flag:boolean;
begin
points:=15;
word:='this_is_the_word';
selected:=[];
while (points>0) do
begin
 for i:=1 to length(word) do
 if word[i] in selected then
 write(word[i])
 else
 write('-');
 writeln('');
 writeln('Enter letter');
 readln(ch);
 flag:=false;
 for i:=1 to length(word) do
 if word[i]=ch then flag:=true;
 
 if flag=false then
 begin
 points:=points-1;
 writeln('Wrong. Your points = ', points);
 end
 else
 begin
 writeln('Correct. Your points = ', points);
 selected:=selected+[ch]
 end;
end;
end.

@deathart · 29.11.2011, 17:39 **[ТС]**

Вася1q, спасибо, поясни пожалуйста код программы (желательно поподробнее)....

@Вася1q · 29.11.2011, 17:43

deathart, извини, сейчас нет времени все разъяснять тебе..думаю форумчане тебе помогут =)

@deathart 1 / 1 / 0 Регистрация: 07.11.2011 Сообщений: 11
		1
	игра в слова... 29.11.2011, 17:34. Показов 1791. Ответов 3 Метки нет (Все метки) Помогите решить.... Игра в слова.Программа выбирает слово и рисует на экране столько прочерков, сколько букв в этом слове. Отгадать какое слово задумано.В каждый ход играющий указывает одну букву.Если названа буква, входящая в состав слова, то она подставляется вместо соответствующего прочерка.В противном случае играющий теряет одно очко. На начало момента игры у играющего 15 очков. 0

@deathart 1 / 1 / 0 Регистрация: 07.11.2011 Сообщений: 11
	29.11.2011, 17:39 [ТС]	3
	Вася1q, спасибо, поясни пожалуйста код программы (желательно поподробнее).... 1

@Вася1q 21 / 21 / 3 Регистрация: 13.09.2011 Сообщений: 314
	29.11.2011, 17:43	4
	deathart, извини, сейчас нет времени все разъяснять тебе..думаю форумчане тебе помогут =) 0

Опции темы