Текст задания
Необходимо рассчитать уровень У выполнения плана розничного товарооборота по формуле:
Расчет уровня У выполнения плана розничного товарооборота:
где n - количество месяцев;
Fi - фактический розничный товарооборот в i - том месяце;
Pi - план розничного товарооборота в i - том месяце.
Список идентификаторов
1. n – количество месяцев, тип integer;
2. i – счетчик месяцев, тип integer;
3. Sumf – сумма фактического розничного товарооборота за период, тип real;
4. sump – сумма планируемого розничного товарооборота за период, тип real;
5. F – массив для хранения помесячной выручки, тип array [1..100] of real;
6. P – массив для хранения плана розничного товарооборота, тип array [1..100] of real;
Блок-схема алгоритма
Исходный код программы
Program Plan;
var
i,n:integer;
sumf,sumP:real;
F: array [1..100] of real;
P: array [1..100] of real;
begin
Write('n=');{вводим количество месяцев}
Readln(n);
for i:=1 to n do{вводим данные за все месяца}
begin
Write('F[',i,']=');
Readln(F[i]); {фактический товарооборот за i –й месяц }
Write('P[',i,']=');
Readln(P[i]); {планируемый товарооборот за i –й месяц}
end;
For i:=1 to n do {считаем суммы}
begin
sumF:=sumF+F[i]; {сумму фактического товарооборота}
sumP:=sumP+P[i]; {сумму планируемого товарооборота}
end;
Writeln('Y=',sumF/sumP*100:2:2); {выводим процент выполнения плана}
Readln;
end.