Написать программу на Pascal, которая по введённому числу от 1 до 10 выводит соответствующую оценку по шкале

Предмет: Информатика
Раздел: Программирование на языке Pascal (операторы ветвления, циклы)

Задание:

Написать программу на Pascal, которая по введённому числу от 1 до 10 выводит соответствующую оценку по шкале:

• [1–3] — «неудовлетворительно»
• [4–6] — «удовлетворительно»
• [7–8] — «хорошо»
• [9–10] — «отлично»

Требуется:

• Использовать оператор case
• Предусмотреть обработку ошибки ввода
• Использовать циклическую конструкцию (например, для повторного ввода при ошибке)

Решение:

program GradeDescription;

uses crt;

var
  grade: integer;
  valid: boolean;

begin
  clrscr;
  repeat
    writeln('Введите оценку от 1 до 10:');
    readln(grade);
    valid := true;

    case grade of
      1..3: writeln('Неудовлетворительно');
      4..6: writeln('Удовлетворительно');
      7..8: writeln('Хорошо');
      9..10: writeln('Отлично');
    else
      writeln('Ошибка ввода! Введите число от 1 до 10.');
      valid := false;
    end;

  until valid;
end.

Пояснение:

• Цикл repeat ... until используется для повторного запроса ввода, если пользователь ввёл неверное число.
• Оператор case позволяет удобно обработать диапазоны значений.
• Переменная valid позволяет контролировать корректность ввода.

Если будут дополнительные требования (например, многократный ввод до выхода), можно модифицировать программу.