Сравнение максимальных элементов массива pascal

Отчет по лабораторной работе №9

Студент-Мильченко

Группа  Б3112б

Преподаватель-Фершалов

Задание:

Формальная постановка задачи:

1)используем простой  алгоритм перебора массива для  нахождения максимального элемента  и опишем его в виде подпрограммы  «maxx»

2)сравним максимальные  эл-ты каждого массива с помошью оператора «if»

 

 

Текст программы на языке pascal:

program lab9;

var i,s:integer;

    a: array[1..6] of real;

    b: array[1..6] of real;

function maxx(x:array[1..6]of real):real;

         var max:real;

         z:integer;

         begin

         max:=x[1];

         for z:=2 to 6 do

             begin

             if x[z]>max then max:=x[z];

             end;

         maxx:=max;

         end;

 

begin

a[1]:=-5.2;a[2]:=8;a[3]:=1.3;a[4]:=-6 ;

b[1]:=-4.7;b[2]:=-3; b[3]:=2.6;b[4]:=7;b[5]:=13;b[6]:=1;

if maxx(a)=maxx(b) then s:=0

else begin

     if maxx(a)>maxx(b) then s:=-1

     else s:=1;

     end;

writeln (s);

end.

 

 

 

 

 

 

 

 

 

Блок-схема