Андрей Романюк

Составить программу, организующую работу с пользователем в диалоговом режиме: программа запрашивает слово с заданным числом слогов, проверяет правильность ввода такого слова и выводит следующий запрос. Окончание работы – ввод пустой строки. Программа также должна подсчитывать количество правильных ответов и выводить, сколько баллов набрал пользователь и количество попыток.

вот моя программа, но она не работает....в чем ошибка? я не могу разобраться(

program romanuk_6_2;
uses crt;
var a:string;
z: set of char;
n,n1,i,x,c:integer;
begin
textbackground(black);
clrscr;
z:=[' а','е','ё','и','о','у','ы','э','ю','я'];
x:=3;
randomize;
c:=random(5)+2;
textcolor(white);
writeln('введите слово из ',c,' слогов ');
textcolor (white);
read(a);
repeat
for i:= 1 to length(a) do
begin
if a[i] in z then
begin
n:=n+1;
end;
end;
n1:=n1+n;
x:=x-1;
if n=c then
begin
textcolor(green);
writeln('правильно! вы набрали',n1,' бала(ов)');
writeln('у вас осталось',x,' попытки(ок)');
end
else
begin
textcolor(red);
writeln('неверно!');
writeln('у вас осталось ',x,' попытки(ок)');
end;
if x<=0 then
begin
textcolor(green);
writeln('кол-во попыток = 0!игра закончена ');
writeln('вы набрали ',n1,'бала(ов) ');
break
end;
until a='';
READLN;
end.

Vladimir_S

Черт, трудно мне проверять из-за этого изобилия кириллицы, но кое-что видно сразу, а именно
Чтение строковой переменной осуществляется ТОЛЬКО оператором Readln. Read для этого не годится.
Исправьте - дальше посмотрим.

Андрей Романюк

ну вот, уже чуть-чуть лучше, но у него не работает генератор чисел( точнее на протяжении "игры" он просит вводить слова с одинаковым кол-ом слогов)) и после первой попытки(которая работает нормально), вторая и третья всегда выдают ошибку.

Андрей Романюк

и что с кириллицей? лучше на латыне это писать?

Vladimir_S

Нет-нет, это мои заморочки: у меня DOS-Паскаль, а там кодировки другие. Поэтому для меня возня с кириллицей - головная боль. Ладно, сейчас попробую отладить.

Vladimir_S

Попробуйте такой вариант:
Исправлены ошибки (в т.ч. грамматические: "балл" как оценка, в отличие от танцевального вечера, пишется с двумя "л"). Из наиболее грубых - в первую очередь пробел перед 'а' в перечислении элементов множества: абсолютно недопустимо!

Андрей Романюк

огромное спасибо)))все отлично работает))
а за грамматические ошибки я извиняюсь,у меня такое бывает)

Андрей Романюк

правда еще один вопрос, как работает переменная b?я ее убрал, понял что без нее никак, но почему так, не понимаю)

Vladimir_S

Да... очень просто. Если играющий набрал слово с правильным числом слогов, то она становится true, а если она стала true, то дальнейшие попытки уже не нужны. Флажок такой.

Андрей Романюк

окей ,спасибо большое)))) теперь все понятно)