Отгадать целое число, которое «загадал» компьютер в определенном диапазоне.
a – число, «загаданное» компьютером;
b – очередное число, вводимое пользователем.
Алгоритм решения задачи:
Программа генерирует псевдослучайное число, которое записывается в
Пока число a не совпадет с числом b, пользователю будет предлагаться ввести очередное число. При этом, если b > a, то на экран будет выдаваться сообщение «Много». Иначе будет проверяться условие b < a. При его положительном значении появится сообщение «Мало», иначе сообщение «Угадал».
Не трудно понять, что если b не больше и не меньше a, то значит оно равно a. В таком случае логическое выражение при while вернет false, и цикл прервется.
Программа на языке Паскаль:
while a <> b do begin
Угадать число всегда можно не более чем через 6-7 попыток, если делить каждый оставшийся диапазон пополам.
Перевод римских чисел в арабские. Пример автоматного распознавателя
Можно использовать вложенные операторы case. Это удобно, например, при реализации автоматных распознавателей, которые дают способ наглядной записи алгоритмов распознавания текстов.
Простая игра «Угадай число» на Pascal
Представленная таблица предназначена для перевода римских чисел, составленных из цифр X, V, I.
Алгоритм решения задачи:
n := n + 10; state := 2
n := n + 5; state := 3
n := n + 1; state := 6
n := n + 1; state := 4
n := n + 1; state := 5
n := n + 1; state := 7
n := n + 8; state := 7
n := n + 3; state := 7
n := n + 1; state := 5
Первый столбец (цифры от 1 до 7) – это состояния (state).
Для расшифровки XIV начинаем с состояния 1. Первый символ – ‘X’, поэтому смотрим столбец ‘X’ и находим n := 10; state := 2. Итак, полагаем n равным 10 и сдвигаем стрелку на вторую строку. Теперь смотрим столбец, определяемый вторым символом, т.е. ‘I’, и находим n := n + 1; state := 6. Значение n, таким образом, становится 10 + 1 = 11. Сдвигаем стрелку к строке 6. Теперь в столбце ‘V’ находим n := n + 3; state := 7. Значение n становится равным 11 + 3 = 14. Сдвигаем стрелку на строку 7 и замечаем, что любая следующая цифра ‘X’, ‘V’ или ‘I’ будет теперь ошибкой (чисел XIVX, XIVV, XIVI не может быть).
Эта таблица позволяет декодировать римскую запись чисел, содержащих любое количество цифр X (в начале) и цифры V, I, записанные по обычным правилам:
I, II, III, IV, V, VI, VII, VIII, IX, X, XI и т.д.
Вместе с тем такое число как IIII будет воспринято как ошибочное и переменная ok примет значение false. Для работы с цифрами M, D, C и L таблицу можно расширить.
Программа на языке Паскаль:
n, state: integer;
while not eoln do begin
if ((symbol = ‘X’) or (symbol = ‘V’) or (symbol = ‘I’)) then
1: case symbol of
‘X’: begin n := 10; state := 2 end;
‘V’: begin n := 5; state := 3 end;
‘I’: begin n := 1; state := 6 end
Программа на Паскале Угадай число. Переменные, случайные числа, условные переходы
2: case symbol of
‘X’: begin n := 10; state := 2 end;
‘V’: begin n := n + 5; state := 3 end;
‘I’: begin n := n + 1; state := 6 end
3: case symbol of
‘I’: begin n := n + 1; state := 4 end
4: case symbol of
‘I’: begin n := n + 1; state := 5 end
5: case symbol of
‘I’: begin n := n + 1; state := 7 end
6: case symbol of
‘X’: begin n := n + 8; state := 7 end;
‘V’: begin n := n + 3; state := 7 end;
‘I’: begin n := n + 1; state := 5 end
Источник: studfile.net
Программа которая угадывает число паскаль
Новое в библиотеке
- Проблемы изучения математики в 3 кла.
- Проверить будет ли число простым — P.
- Сумма цифр числа в Python
- Пузырьковая сортировка в Python
- Алгоритм Эвклида для НОД в Python
- Все материалы библиотеки
Лучшее на сайте
- Онлайн-решебник задач
- MathPad -математический блокнот
- LaTeX+MarkDown редактор формул
- Универсальный калькулятор
- Числовой калькулятор
- Сфоткай и добавь свою задачу
- Решения задач из Сканави
- Характеристика студента онлайн
- Диаграммы и графики онлайн
- Конструктор программ на Паскале
- Самые популярные материалы
- Доска почета: лучшие пользователи
Анекдоты и фразы
«Senior Developer поступает в университет учиться на программиста. «
На сайте всего: 6
Источник: primat.org
Разработчику о работе с 1С:Предприятие, Pascal, Паскаль
Решение вопросов, возникающие при автоматизации учета с помощью 1С:Предприятие. Паскаль.
Программа угадай число, паскаль.
21.05.2017 | 
Автор Дмитрий
Программа угадай число, паскаль.
program Task_1; var b_Comp, b_User: byte; begin randomize; b_Comp := random(8); Writeln(‘программа угадай число от 0 до 8.’); Writeln(‘Введите число:’); Read(b_User); while b_Comp <> b_User do begin Write(‘Введите число: ‘); Readln(b_User); if b_User > b_Comp then Writeln(‘Много’) else if b_User b_Comp then Writeln(‘Мало’) else Writeln(‘Угадал’); end; //завершение работы программы WriteLn(‘Нажмите , чтобы выйти.’); ReadLn(); end.
Программа угадай число, паскаль.
Рубрика: Pascal (Паскаль) — задачи и решения
Источник: info1c.com