Скачиваний:
131
Добавлен:
08.05.2014
Размер:
52.22 Кб
Скачать

Лабораторный отчет по информатике

«Работа с массивами».

Вариант № 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);

Соседние файлы в папке лаба № 4 с отчетом — 2