Question

Программа в паскаль которая выбирает рандомно одну из надписей.

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  Randomize;
  case Random(1,3) of
  1:Writeln('Скоро каникулы!');
  2:Writeln('Надоела мне учеба!');
  3:Writeln('Не хочу заниматься информатикой!')
  end
end.

Answer 2

Конечно, вот пример программы на Pascal, которая выбирает рандомно одну из заданных строк:

pascalCopy code
program RandomMessage;

uses
  SysUtils;

var
  Messages: array[1..5] of string = ('Привет!', 'Как дела?', 'Что нового?', 'До свидания!', 'Удачного дня!');
  RandomIndex: Integer;

begin
  Randomize; // инициализация генератора случайных чисел

  // генерация случайного индекса в диапазоне от 1 до 5
  RandomIndex := Random(5) + 1;

  // вывод случайно выбранного сообщения на экран
  WriteLn(Messages[RandomIndex]);

  ReadLn;
end.

В этом примере используется массив строк Messages, содержащий пять надписей. Функция Randomize инициализирует генератор случайных чисел, а функция Random(5) + 1 генерирует случайное число в диапазоне от 1 до 5. Это число используется как индекс для выбора случайной строки из массива Messages. Результат выводится на экран с помощью процедуры WriteLn.