Если число нечётное и его удвоение не приведет к выходу за 32767, удвоить его - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

помогите пожалуйста неполучается 1)Дано натуральное число n. Если число нечётное и его удвоение не приведет к выходу за 32767 (двухбайтовое целое число со знаком), удвоить его, иначе – оставить без изменения. Чтобы удовлетворить условию удвоения, число n должно быть нечетным и меньше 16384. 1. Ввести число n 2. Если число n нечетное и меньше 16384, то n := n * 2 3. Вывод n 4. Конец 2)Программа случайного предсказания одного из десяти вариантов ближайшего будущего с вероятностью 1/20, в остальных случаях – Вы «неудачник».

Решение задачи: «Если число нечётное и его удвоение не приведет к выходу за 32767, удвоить его»

textual
Листинг программы
Var N:byte;
Begin
 WriteLn('Предсказание будущего!');
 Randomize;N:=Random(20)+1;  {N-случайное число от 1 до 20}
 WriteLn; Write('Вас ожидает_');
  Case N of
  1: WriteLn('счастье');  6: WriteLn('здоровье');
  2: WriteLn('пятерка');  7: WriteLn('деньги');
  3: WriteLn('дорога'); 8: WriteLn('любовь');
  4: WriteLn('двойка'); 9: WriteLn('встреча');
  5: WriteLn('болезнь'); 10: WriteLn('мама')
Else WriteLn('неудача') end;
WriteLn('Нажми клавишу Enter');
ReadLn
END.

Объяснение кода листинга программы

В данном коде на языке Pascal ABC происходит следующее:

  1. Выводится сообщение Предсказание будущего!
  2. С помощью функции Randomize и переменной N инициализируется генератор случайных чисел.
  3. Выводится сообщение Вас ожидает_.
  4. С помощью оператора Case происходит проверка значения переменной N и вывод соответствующего сообщения.
  5. Если значение N равно 1, выводится сообщение счастье.
  6. Если значение N равно 2, выводится сообщение здоровье.
  7. Если значение N равно 3, выводится сообщение дорога.
  8. Если значение N равно 4, выводится сообщение любовь.
  9. Если значение N равно 5, выводится сообщение болезнь.
  10. Если значение N равно 6, выводится сообщение деньги.
  11. Если значение N равно 7, выводится сообщение встреча.
  12. Если значение N равно 8, выводится сообщение любовь.
  13. Если значение N равно 9, выводится сообщение встреча.
  14. Если значение N равно 10, выводится сообщение мама.
  15. Если значение N не входит в диапазон от 1 до 10, выводится сообщение неудача.
  16. Выводится сообщение Нажми клавишу Enter.
  17. С помощью функции ReadLn происходит чтение ввода пользователя.
  18. Код завершается.

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы