Вопрос по информатике:
Усовершенствуйте программу ТablMul таким образом, чтобы в результате выводилась оценка, поставленная ученику. Критерии для выставления оценок придумайте сами.
Помогите пожалуйста!!! Буду очень рада!))
Используйте:
1. Цикл с предусловием (цикл-пока):
While < логическое выражение > Do
< оператор >
2. Цикл с постусловием (цикл-до):
Repeat
< оператор >
Until < логическое выражение >
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 09.08.2015 05:24
- Информатика
- remove_red_eye 15658
- thumb_up 44
Ответы и объяснения 1
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.
- 01.01.1970 00:00
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.