Question

Усовершенствуйте программу ТablMul таким образом, чтобы в результате выводилась оценка, поставленная ученику. Критерии для выставления оценок придумайте сами. Помогите пожалуйста!!! Буду очень рада!)) Используйте: 1. Цикл с предусловием (цикл-пока): While < логическое выражение > Do < оператор > 2. Цикл с постусловием (цикл-до): Repeat < оператор > Until < логическое выражение >

Answer 1

Program TablMul;

Const Size = 7;

Var
Ball: array[1..Size] of real;
Ocenka: array[1..Size] of integer;
Counter: integer;

Begin

Counter := 1;

while (Counter <= Size) do
begin
Write('Введите балл ', counter, ' ученика: ');
Readln(Ball[Counter]);
Counter := Counter + 1;
end;

Counter := 1;

Repeat
if (Ball[Counter] > 90) then
Ocenka[Counter] := 5

else if (Ball[Counter] >= 75) and (Ball[Counter] < 90) then
Ocenka[Counter] := 4

else if (Ball[Counter] >= 50) and (Ball[Counter] < 75) then
Ocenka[Counter] := 3

else
Ocenka[Counter] := 2;

Counter := Counter + 1;

Until (Counter > Size);

Writeln();

for var i := 1 to Size do
Writeln('Оценка ', i, ' ученика: ', Ocenka[i]);

End.

Answer 2

Для усовершенствования программы ТablMul и добавления оценки ученику, можно воспользоваться циклами с предусловием (цикл-пока) и с постусловием (цикл-до). Предположим, что критерии оценок следующие:

• Отлично: если результат умножения чисел равен 100.
• Хорошо: если результат умножения чисел больше или равен 50, но меньше 100.
• Удовлетворительно: если результат умножения чисел больше или равен 30, но меньше 50.
• Неудовлетворительно: если результат умножения чисел меньше 30.

Вот улучшенный код программы ТablMul с учетом оценок:

pythonCopy code
program TablMul;
var
  num, i, result: integer;
begin
  Write('Введите число для таблицы умножения: ');
  ReadLn(num);
  i := 1;
  result := 0;
  while i <= 10 do
  begin
    result := num * i;
    WriteLn(num, ' * ', i, ' = ', result);
    i := i + 1;
  end;

  // Выставление оценки
  if result = 100 then
    WriteLn('Ваша оценка: Отлично')
  else if (result >= 50) and (result < 100) then
    WriteLn('Ваша оценка: Хорошо')
  else if (result >= 30) and (result < 50) then
    WriteLn('Ваша оценка: Удовлетворительно')
  else
    WriteLn('Ваша оценка: Неудовлетворительно');
end.

Обратите внимание, что внутри цикла while мы обновляем значение переменной result при каждой итерации. После завершения цикла, мы проверяем значение result и выставляем соответствующую оценку ученику в соответствии с критериями оценок.

Теперь программа будет выводить таблицу умножения выбранного числа и выставлять оценку на основе результата последнего умножения.