Методические указания по программированию на языке Pascal. Юшков С.А - 7 стр.

UptoLike

ВУЗ: 

СамГУПС | Самара

Составители: 

Рубрика: 

4. Текст программы.
Program OCEN;
{составил ...}
var Oc : array[1..40] of integer;
Sum,i : integer;
Sr : real;
begin
for i:=1 to 40 do { Выполняется цикл(повтор) одного оператора, стоящего за
управляющим словом do. Количество повторений равно разности между
значениями переменной цикла после слова to и слова for, увеличенной
на единицу. При каждом повторении переменная цикла изменяется с
шагом +1.}
begin
repeat
write (‘введи оценку ’);
readln (Oc[i]);
until (Oc[i]>0) and (Oc[i]<=5);
end;
Sum:=0;
for i:=40 down to 1 do {Выполняется цикл(
повтор) одного оператора,
стоящего за управляющим словом do. Количество повторений равно
разности между значениями переменной цикла после слова for и слова
downto, увеличенной на единицу. При каждом повторении переменная
цикла изменяется с шагом –1.}
Sum:=Sum+Oc[i];
SR:=Sum/40;
Write (‘средняя оценка=’,Sr:4:2);
end.
Другие варианты:
1.Накапливающее умножение
Р - произведение
…………………….
p:=1;
for i:=1 to 40 do
p:=p
∗ Oc[i];
2.Подсчёт количества
........................
kol:=0;
for i:=1 to 40 do
begin
if St>175 then
kol:=kol+1;
end;
write (‘kol=’,kol);

Страницы