Оператор множественного выбора: оценка за тест из 15 вопросов - Pascal ABC

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

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

Составить программу, которая определяет оценку за тест из 15 вопросов, если вводится количество верных ответов студента. Критерии оценок: 90%-100% - оценка «отлично», 71%-89% - оценка «хорошо», 50%-70% - оценка «удовлетворительно», ниже 50% - оценка «неудовлетворительно».

Решение задачи: «Оператор множественного выбора: оценка за тест из 15 вопросов»

textual
Листинг программы
const n=15;
var k,v:integer;
begin
repeat
write('Введите количество верных ответов от 0 до ',n,' k=');
readln(k);
until k in [0..n];
v:=round(k/n*100);
case v of
90..100:write('отлично');
71..89:write('хорошо');
50..70:write('удовлетворительно');
else write('неудовлетворительно');
end;
end.

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

  1. Переменная n инициализируется значением 15.
  2. Затем объявляются две переменные k и v типа integer.
  3. В цикле repeat-until выполняется следующая последовательность действий:
    • Выводится сообщение 'Введите количество верных ответов от 0 до ', n, ' k='.
    • Считывается значение переменной k с помощью функции readln.
    • Переменная k приводится к типу integer.
    • Переменная v инициализируется округленным значением k, деленного на n, умноженным на 100.
  4. Далее выполняется case-структура, которая проверяет значение переменной v:
    • Если v находится в диапазоне от 90 до 100, выводится сообщение 'отлично'.
    • Если v находится в диапазоне от 71 до 89, выводится сообщение 'хорошо'.
    • Если v находится в диапазоне от 50 до 70, выводится сообщение 'удовлетворительно'.
    • В противном случае выводится сообщение 'неудовлетворительно'.
  5. Цикл repeat-until продолжается до тех пор, пока значение переменной k не будет находиться в допустимом диапазоне (0..n).

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

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