Курсовая работа: Некоторые способы разбиения множеств

2) переменные f, pot типа k; f – указывает на первое понятие, то есть на простое понятие *; pot – текущее понятие;

3) массив str1 типа k – будет содержать ссылки на каждое понятие в составном понятии;

program dyscretics_optimisation(input,output);

uses crt;

const

max=12;

r:byte=0;

type

k=^el;

El=record

S: string;

P: 1..Max-1;

Next: k

End;

Label met;

Var

Pot, f, l: k;

Str1: array[1..Max]of k;

Pow: 2..Max;

K1, i, j, ll: 1..Max;

Sum: 0..Max;

Fil: text;

Ki : string [2];

begin

Readln ( POW ); {вводим количество простых понятий }

Str(POW, ki);

Assign ( fil , ki +'. mvp '); {получившиеся понятия будем записывать в файл, содержащий в своём имени количество элементов множества и с расширением «. mvp » }

Rewrite ( fil );

New ( f ); {выделяем память под первое понятие }