Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
dashka_tutk
0 / 0 / 0
Регистрация: 23.04.2013
Сообщений: 11
#1

Игра "Угадай число" - Pascal ABC

28.05.2013, 17:09. Просмотров 1223. Ответов 0
Метки нет (Все метки)

В общем, нужно написать программу на паскале
один игрок загадывает число от 1 до 1001, а другой должен его угадать с помощью 10 попыток
с кодом самой игры траблов нет, но надо ещё сделать проверку на то, что вводится изначально именно от 1 до 1001, и когда второй игрок угадывает... не "20055", не "алала", не "!!!", а именно от 1 до 1001.
помогите как можно быстрее, пожааааалуйста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
var i,n,x:integer;
ch:char;
begin
repeat
   writeln('загадай число');
   readln(n);
until (n>0)and(n<1002);
clrscr;
i:=0;
repeat
   inc(i);
   writeln('угадай число');
   readln(x);
   if x>1001 then writeln('слишком большое число')
      else if x<1 then writeln('слишком маленькое число')
         else if x>n then writeln('загаданное число меньше')
            else if x<n then writeln('загаданное число больше')
               else writeln('позравляю');
until (i=10)or(x=n);
if x<>n then writeln('не угадал, загаданное число было ',n,'. Заново? (y/n)') else
 writeln('Заново? (y/n)');
readln(ch);
until ch='n';
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.05.2013, 17:09
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Игра "Угадай число" (Pascal ABC):

Написать программу "Угадай число". В программе задается число. С ним она сравнивает числа, вводимые с клавиату - Pascal ABC
с помощью GOTO

Игра "Угадай букву" - Pascal ABC
Заставьте компьютер случайным образом загадать букву латинского (русского) алфавита. Предложите пользователю отгадать загаданную букву,...

Сделать уровни сложности в игре "Угадай число" - Pascal ABC
Написал программу: program ugadai; uses crt; var a, b, i:integer; begin while true do begin a:= random(5);

"Угадай число" - вывести количество попыток - Pascal ABC
&quot;Угадай число&quot;. Компьютер загадывает число от 1 до 100. Пользователь вводит с клавиатуры некоторое число и получает один из ответов: &quot;Мое...

Сократите код игры "Угадай число" - Pascal ABC
Недавно начал изучать паскаль. Написал небольшую программу. Помогите сократить код, если это возможно. uses crt; var a,b:integer; ...

Повтор игры "Угадай число" - Pascal ABC
Помогите! Не зная почти ничего о PascalABC написал это: var c1,c2: integer; begin c2 := Random(10)+1; writeln('Угадай цифру от 1...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2013, 17:09
Привет! Вот еще темы с ответами:

Написать программу "Угадай число" - Pascal ABC
С использованием датчика случайных чисел в программе загадывается число от 0 до 20. На отгадывание числа дается 10 попыток. После ввода...

Составить программу, которая бы выводила на экран заданное число и подпись в зависимости от числа "год", "года" или "лет" - Pascal ABC
Здравствуйте. Дано натуральное число N&lt;101, определяющее возраст человека( в годах). Составить программу, которая бы выводила на экран...

Вывести его строку-описание вида: "четное двузначное число", "нечетное трехзначное число" - Pascal ABC
Дано целое число , от 1 до 999. Вывести его строку-описание вида: &quot;четное двузначное число&quot;, &quot;нечетное трехзначное число&quot;,...

Из слова "клоун" путем "вырезок" и "склеек" его букв получить слова "уклон","кулон" и "колун" - Pascal ABC
Из слова &quot;клоун&quot; путем &quot;вырезок&quot; и &quot;склеек&quot; его букв получить слова &quot;уклон&quot;,&quot;кулон&quot; и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru