Помогите, пожалуйста, с задачей на Паскале
Составить программу, организующую работу с пользователем в диалоговом режиме: программа запрашивает слово с заданным числом слогов, проверяет правильность ввода такого слова и выводит следующий запрос. Окончание работы – ввод пустой строки. Программа также должна подсчитывать количество правильных ответов и выводить, сколько баллов набрал пользователь и количество попыток.
вот моя программа, но она не работает....в чем ошибка? я не могу разобраться( 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. |
Черт, трудно мне проверять из-за этого изобилия кириллицы, но кое-что видно сразу, а именно
Чтение строковой переменной осуществляется ТОЛЬКО оператором Readln. Read для этого не годится. Исправьте - дальше посмотрим. |
ну вот, уже чуть-чуть лучше, но у него не работает генератор чисел( точнее на протяжении "игры" он просит вводить слова с одинаковым кол-ом слогов)) и после первой попытки(которая работает нормально), вторая и третья всегда выдают ошибку.
|
и что с кириллицей? лучше на латыне это писать?
|
Цитата:
|
Попробуйте такой вариант:
Код:
uses crt; |
огромное спасибо)))все отлично работает))
а за грамматические ошибки я извиняюсь,у меня такое бывает) |
правда еще один вопрос, как работает переменная b?я ее убрал, понял что без нее никак, но почему так, не понимаю)
|
Цитата:
|
Цитата:
|
Часовой пояс GMT +4, время: 04:42. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.