Задачи на применение подпрограмм.

5.1. Даны координаты вершин двух треугольников. Написать программу, позволяющую определить, площадь которого из них больше, используя для этого подпрограмму вычисления площади треугольника.

5.2. Вычислите наименьшее общее кратное двух чисел, используя подпрограмму нахождения наибольшего делителя.

5.3. Напишите программу решения биквадратного уравнения, используя подпрограмму решения квадратного уравнения.

5.4. Написать программу определения наибольшего из четырех чисел, используя подпрограмму определения наибольшего из двух чисел.

Примеры решения

С применением процедуры

program maks;

uses crt;

var c,d,e,x,y,m,n: integer;

procedure MaxNumber(a,b: integer; var max: integer);

begin

   if a>b then max:=a else max:=b;

end;

begin

   write('Введите четыре числа через пробел' );

   readln(x,y,c,d);

   MaxNumber(x,y,m);

   MaxNumber(c,d,n);

   MaxNumber(m,n,e);

   writeln('max=',e);

end.

 

С применением функции

program maks;

uses crt;

var x,y,c,d,e,m,n: integer;

function MaxNumber(a,b: integer): integer;

   var max: integer;

begin

   if a>b then max:=a else max:=b;

   MaxNumber := max;

end;

begin

   write('Введите четыре числа через пробел ');

   readln(x,y,c,d);

   m := MaxNumber(x,y);

   n := MaxNumber(c,d);

   e := MaxNumber(m,n);

   writeln('max= ',e);

end.