Лабораторная работа: Разработка форматов хранения программ. Структурирование

На этом программа завершает свою работу.

Пункт №5 Описание подпрограмм.

В этом пункте мы рассмотри все используемые процедуры и функции в программе их действия

Созданные подпрограммы:

Процедура max_kvan это процедура использующая аргумент А файл типа tochka (новый тип данных типа запись) каждый элемент файла имеет два поля Х и У вещественого типа. Процедура находит растояние от начала координат до заданной точки паралельно деля точки по квадрантам в конце программы аргументам b, c, d, e присваивается номер ячейки файла по которому потом можно обратится к файлу за координатами точки. В процедуре используется ключевое слово var перед аргументами процедуры что позволяет изменять эти аргумент в ходе процедуры.

Процедура vivod выводит точки максимально удаленные от начала координат и ответ на вопрос задачи (для этого используется функция otvet которая будет описана ниже).

Функция kvan_zapoln делает проверку на наличие точек в каждом квадранте аргументы файл с координатами точек. Функция логического типа соответственно сама функция показывает на наличие или отсутствия точек в квадрантах.

Функция otvet функция логического типа проверяет условие существования четырехугольника построенного по выбранным из множества точкам как параллелограмма. Аргументы это координаты точек.

Пункт № 6 Листинг программы.

program Laba_var_5 ;

type

tochka = record

x,y: real;

end;

var

s:array [1..100] of tochka;

g,n:integer;

t:tochka;

istin:boolean;

r:string;

io:real;

i,max1,max2,max3,max4:integer;

procedure max_kvan(var b,c,d,e:integer; j,q:integer;var a:array of tochka);

begin

b:=0;

d:=0;

c:=0;