написанные программы / лаба № 4 с отчетом — 1 / Отчет по информатике 41

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

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

Вариант № 1

Студента:

Гр.

Факультета:

ОИСТ.

2006.

Текст задания:

Составить блок-схему и программу для вычисления

W=B+A/(C+1)

Где 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]);

a:=0;

b:=z[1];

c:=1;

for i:=1 to n do begin

if z[i]>0 then a:=a+z[i];

if b>z[i] then b:=z[i];

if i mod 2<>0 then c:=c*z[i];

end;

w:=b+(a/(c+1));

writeln('Otvet');

writeln('Summa pologitelnih elementov');

writeln('a = ',a:9:2);

writeln('Minimalni element massiva');

writeln('b = ',b:9:2);

writeln('Proizvedenie Elementov massiva s nechetnimi nomerami');

writeln('c = ',c:9:2);

writeln('Rezultat vichislenia formuli');

writeln('w = ',w:9:2);

readln;

end.

Блок-схема:

a:=0;b:=z[1];c:=1;

T F

a:=a+z[i];

T F

b:=z[i];

c:=c*z[i];

w:=b+(a/(c+1));