Практикум по решению задач на ЭВМ. Тарова И.Н - 47 стр.

                                 Практикум по решению задач на ЭВМ


        begin
           for j:=1 to n do
              b[i,j]:=a[i,j]/max;
        end;
     writeln;
     writeln('Новый массив: ');
     for i:=1 to m do
        begin
           for j:=1 to n do
              write(b[i,j]:4);
              writeln(' ');
        end;
     writeln;
writeln('Максимальный элемент массива равен:', max);
     readln;
  end.




   Лабораторная работа № 12
                       Использование процедур
1) Даны действительные числа s,t. Получить
                                                             2a − b − sin c
f (t ,−2s,1.17) + f (2.2, t , s − t ), где   f (a, b, c) =
                                                                5+ c
2) Даны действительные числа a,b,c. Получить max(a, a + b) + max(a, b + c)
                                                                              1 + max(a + bc,1.15)

3) Составить программу для вычисления площади выпуклого четырех-
угольника, заданного длинами 4-х сторон и диагональю (определить про-
цедуру для вычисления площади).

   I. Процедура без параметров
   program F1(input,output);
   uses CRT;
   var
      AB,BC,CD,AC,DA:real;
      a,b,c,p,s1,s:real;


                                                         47