написанные программы / лаба № 4 с отчетом — 2 / Отчет по информатике 4
.doc
Лабораторный отчет по информатике
«Работа с массивами».
Вариант № 28
Студента:
Гр.
Факультета:
ОИСТ.
2006.
Текст задания:
Составить блок-схему и программу для вычисления
W=А*В/(C+2),
Где A – наибольший элемент массива
В – произведение элементов массива с четными номерами
С – сумма отрицательных элементов массива
Код программы:
program lab4;
uses crt;
const n=10;
var z:array[1..n] of real;
i:integer;
a,b,c,w:real;
begin
clrscr;
writeln('vvedite massiv');
for i:=1 to n do
readln(z[i]);
b:=1;
a:=z[1];
c:=0;
for i:=1 to n do begin
if z[i]>a then a:=z[i];
if i mod 2=0 then b:=b*z[i];
if z[i]<0 then c:=c+z[i];
end;
w:=a*b/(c+2);
writeln('Otvet');
writeln('naibolshii element massiva');
writeln('a = ',a:9:2);
writeln('proizvedenie elementov massiva s chetnimi #');
writeln('b = ',b:9:2);
writeln('summa otritsatelnih elementov massiva');
writeln('c = ',c:9:2);
writeln('Rezultat vichislenia formuli');
writeln('w = ',w:9:2 );
readln;
end.
Блок-схема:
b:=1;
a:=z[i]; c:=0
T F
a:=z[i];
T F
b:=b*z[i];
T F
c:=c+z[i];
w:=a*b/(c+2);