if counter=0 then writeln ( Запис не знайдено );// Якщо лічильник 0, то виводимо повідомлення з результатом-його відсутністю
readln; counter:=0;// обнуляем лічильник
end;
if (operation=2) then//якщо операція 2
begin
Writeln ( Введіть прізвище студента );// пошук за прізвищем
readln (s);
for i:=1 to NumberOfRecords do if Base [i] .surename=s then//якщо шукана і обрана рівні, то виводимо
begin
Writeln (Base [i] .number, , base [i] .Surename + + base [i] .NameGroup);
counter:=counter + 1;// лічильник +1
end;
if counter=0 then writeln ( Запис не знайдено );// якщо нічого не знайдено
readln; counter:=0;// обнуляем все
end ;; FindINTREE;// Процедура виведення на екран результату функції пошуку
var
numberbook: integer;
begin
writeln ( Введіть номер заліковки );
readln (numberbook);
if FindInTree (MyTree, numberBook)//пошук в дереві
then writeln ( Даний елемент у дереві знайдений )
else writeln ( Даний елемент у дереві не знайдений );
readln ;; AddInBase;// процедура додавання в базу
m: integer;
s: string [50];
assign (input, base.txt );// приєднуємо текстовий файл
append (input);// відкриваємо для додавання записів в кінець
writeln (input);// перехід на новий рядок у файлі
Writeln ( ласка, введіть номер заліковки );
readln (m);// читаємо номер заліковки
write (input, m);
Writeln ( ласка, введіть прізвище студента );
readln (s);// читаємо прізвище
write (input, + s + );
Writeln ( ласка, введіть номер групи );
readln (s);// читаємо номер групи
write (input, s);
Writeln ( Додавання пройшло успішно. );
Writeln ( Запис додасться в базу після виходу з програми. );
readln;
close (input);:=initializate ();
For i:=1 to NumberOfRecords do Insert (MyTree, Base [i] .Number) ;;
procedure obhod (p: ttree);
Begin
if p lt; gt; nil then
begin
obhod (p ^ .left);
writeln (p ^ .value);
obhod (p ^ .right);
end;
end;
procedure Print;
var
i: integer;
begin
if (NumberOfRecords=0) then
writeln ( У базі немає жодного запису )
else begin
writeln ( Всього записів в базі: , NumberOfRecords: 3);
for i:=1 to NumberOfRecords do begin
writeln (base [i] .number, raquo ;, base [i] .Surename, raquo ;,
base [i] .namegroup);
end;
end ;;//ТІЛО ПРОГРАМИ:=initializate ();// виконуємо ініціалізацію (функція)
For i:=1 to NumberOfRecords do Insert (MyTree, Base [i] .Number);// СПОРУДА ДЕРЕВА
r:=1;
while (r gt;=1) and (r lt;=5) do begin
clrscr;
Writeln ( Введіть: );
writeln ( 1 - для пошуку елемента в базі );// ОТРІСОВKА МЕНЮ
writeln ( 2 - для додавання нового елементу в базу );
writeln ( 3 - для пошуку елемента в дереві );
writeln ( 4 - для друку вмісту бази даних );
writeln ( 5 - для друку вмісту дерева );
writeln ( 6 (або інше число) - для виходу з програми );
readln (r);// читання дії
case r of
: FindInBase;// запуск функції пошуку в базі
2: addinbase;// запуск функції додавання в базу
3: FindINTREE;// пошук в дереві
4: print;// Друк з бази
