Усовершенствуйте программу tablmul таким образом чтобы в результате выводилась оценка

Содержание

От нашего клиента с логином BDKhukUf на электронную почту пришел вопрос: «Усовершенствуйте программу TablMul таким образом, чтобы в результате выводилась оценка, поставленная ученику. Критерии для» это здание мы отнесли к разделу ЕГЭ (школьный). Так как клиент является зарегистрированным пользователем нашего сайта, то мы бесплатно предоставим ответ.

ЕГЭ (школьный) — довольно сложный раздел, здесь действительно попадаются вопросы, которые даже у специалиста с законченным высшим образованием поставят в тупик при подготовке правильного ответа. Но мы известны тем, что сложности нас не останавливают, а наоборот развивают и расширяют наши знания.

Вы спрашивали Усовершенствуйте программу TablMul таким образом, чтобы в результате выводилась оценка, поставленная ученику. Критерии для? — отвечаем:

Const Size = 7;
Var
Ball: array[1..Size] of real;
Ocenka: array[1..Size] of integer;
Counter: integer;
Begin
Counter := 1;
while (Counter begin

Информационная энтропия (видео 14) | Теория информации | Программирование

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.

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

28 December 2020
Ответ оставил: ЯковПервый

Program TablMul;

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

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

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

Анализ программ с помощью трассировочных таблиц. Видеоурок 10. Информатика 11 класс

Ocenka[Counter] := 3

else
Ocenka[Counter] := 2;

Counter := Counter + 1;

Until (Counter > Size);

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

Нравится —> 0

НЕ НАШЛИ ОТВЕТ?

Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
На сегодняшний день (18.06.2023) наш сайт содержит 16353 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

Нажимая на кнопку «Ответить на вопрос», я даю согласие на обработку персональных данных
Ответить на вопрос