Задания для самостоятельного выполнения.

Методы сортировки:

1. “Пузырька”;

2. Вставками;

3. Выбором.

4. Быстрая сортировка (рекурсивный алгоритм).

Тема 15. Модули.

Оформить в виде модуля подпрограммы, разработанные при выполнении заданий по предыдущим темам. Обратиться к этим подпрограммам из главной программы. Исходные данные ввести с клавиатуры в главной программе. Результаты вывести на экран монитора в главной программе.

Пример 1.Разработать модуль, реализующий операции с комплексными числами.

unit cmplx;

interface

type complex = record

re, im: real

end;

{сложение}

procedure addc(x, y: complex; var z: complex);

{разность}

procedure subc(x, y: complex; var z: complex);

{умножение}

procedure mulc(x, y: complex; var z: complex);

{деление}

procedure divc(x, y: complex; var z: complex);

implementation

procedure addc;

begin

z.re:= x.re + y.re;

z.im:= x.im + y.im

end;

procedure subc;

begin

z.re:= x.re - y.re;

z.im:= x.im - y.im

end;

procedure mulc;

begin

z.re:= x.re*y.re - x.im*y.im;

z.im:= x.re*y.im + x.im*y.re

end;

procedure divc;

var zz: real;

begin

zz:= sqr(y.re) + sqr(y.im);

z.re:= (x.re*y.re - x.im*y.im)/zz;

z.im:= (x.re*y.im - x.im*y.re)/zz

end

end.

program pr15;

uses crt, cmplx;

var a, b, c: complex;

begin clrscr;

a.re:= 1.; a.im:= 1.;

b.re:= 1.; b.im:= 2.;

writeln('Исходные числа:');

writeln('a = ', a.re:5:2,' + i',a.im:5:2);

writeln('b = ', b.re:5:2,' + i',b.im:5:2);

writeln('Результат:');

addc(a,b,c);

writeln('a + b = ',c.re:5:2,' + i',c.im:5:2);

subc(a,b,c);

writeln('a - b = ',c.re:5:2,' + i',c.im:5:2);

mulc(a,b,c);

writeln('a * b = ',c.re:5:2,' + i',c.im:5:2);

divc(a,b,c);

writeln('a / b = ',c.re:5:2,' + i',c.im:5:2);

readkey

end.