Нужна помощь. Надо сделать так, чтобы если игрок введет число больше 10 и меньше 1 или букву, то выдавало ошибку "Ошибка.Введите число от 1 до 10"
program game2;
uses crt;
var comp, igrok, n : integer;
BEGIN
clrscr;
Randomize;
comp:=Random(9)+1;
writeln('€Ја "“Ј ¤ © зЁб®" ');
writeln('Љ®¬ЇмовҐа "§ ¤г¬ «" зЁб«® ');
writeln('“Ј ¤ © ҐЈ® б 3 Ї®Їлв®Є ');
writeln('‚ўҐ¤ЁвҐ зЁб«® Ё ¦¬ЁвҐ Enter');
repeat
n:=n+1;
write(' -> ');
read(igrok);
if (comp<>igrok) then writeln('ЌҐв, Ї®Їа®Ўг©вҐ Ґйс а §.')
else write(' -> ');
until (n=3) or (comp=igrok);
if (comp=igrok) then writeln('‚л ўлЁЈа «Ё!!!')
else write(' ');
if (n=3) then writeln('‚л Їа®ЁЈа «Ё! Љ®¬ЇмовҐа § Ј ¤ «',comp)
else writeln(' ');
readln;
readln;
END.
Примечание:
заранее спасибо)
Примечание:
НЕ ЗАМЕТИЛ, СЕЙЧАС БУДЕТ ОТРЕДАКТИРОВАННЫЙ КОД.
program game2;
uses crt;
var comp, igrok, n : integer;
BEGIN
clrscr;
Randomize;
comp:=Random(9)+1;
writeln('Игра "угадай число" ');
writeln('бла-бла ');
writeln('бла бла ');
writeln('бла-бла');
repeat
n:=n+1;
write(' -> ');
read(igrok);
if (comp<>igrok) then writeln('Нет, попробуйте ещё раз.')
else write(' -> ');
until (n=3) or (comp=igrok);
if (comp=igrok) then writeln('Вы выиграли!!!')
else write(' ');
if (n=3) then writeln('Вы проиграли, компьютер загадал, comp)
else writeln(' ');
readln;
readln;
END.
Примечание:
функцию организую, case тоже, но вот как мне все буквы алфавита сделать, причем можно и русского и англ.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.