Question

Написать модуль который находит сумму и разность квадратов двух чисел


ЛАЗАРУС!!!!!

Answer 1

Модуль

modul.pas

Unit modul;

Interface

   function sqr_sum(a, b:real): real;

   function sqr_diff(a, b:real): real;

Implementation

   function sqr_sum(a, b:real): real;

   begin

       sqr_sum := sqr(a) + sqr(b);

   end;

   function sqr_diff(a, b:real): real;

   begin

       sqr_diff := sqr(a) - sqr(b);

   end;

end.

Тестирующая программа:

main.pass

program main;

uses modul;

var a, b: real;

begin

   writeln('Введите два числа: ');

   readln(a, b);

   writeln('Сумма квадратов двух чисел: ', sqr_sum(a, b):4:4);

   writeln('Разность квадратов двух чисел: ', sqr_diff(a, b):4:4);

end.