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

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


  begin {ввод исходных данных}
    str3(3,4,1+4,y1); {первое обращение к процедуре}
     str3(3,4,6-1,y2); {второе обращение к процедуре}
     write(y1+y2);
     readln;
  end.

  IV. Функция
  program F4(input,output);
  var AB,CD,BC,DA,AC:real;
  function triangl(a,b,c:real):real;{заголовок функции с возвращаемым зна-
чением типа REAL}
  var p:real;
  begin
    p:=(a+b+c)/2;
    triangl:=sqrt(p*(p-a)*(p-b)*(p-c));
  end;
  begin
    readln(AB,BC,CD,DA,AC);
    write(triangl(AB,BC,AC)+triangl(CD,DA,AC));
    readln;
  end.




  Лабораторная работа № 13
                                Файлы
  1) Дан файл f, компонентами которого являются действительные чис-
      ла. Найти:
  а) сумму компонент файла;
  б) произведение компонент файла;
  в) сумму квадратов компонент файла;
  г) модуль суммы и квадрат произведения компонент.

  2) Дан файл f, компонентами которого являются целые числа. Найти:
  а) количество четных чисел среди компонент;
  б) количество удвоенных нечетных чисел среди компонент;
  в) количество нечетных чисел среди компонент.



                                    49