Динамические структуры данных (стр. 2 из 2)
writeln (' 4 - po faily stroit derevo');
writeln (' 0 - vuxod iz programmu');
write (' vash vubor: '); readln (b);
case b of
1: begin
write ('vvedite element: '); readln (e);
writeln ('nayavnost elementa-',find (tree,e));
writeln ('press any key');
readkey;
end;
2: begin
{printtree (tree); } writeln ('Zapisano v file OUTPUT. TXT'); writeln;
assign (output,'c: \output. txt');
rewrite (output);
write (output,s);
s: ='';
close (output);
writeln ('press any key');
readkey;
end;
3: begin
write ('vvedite element: '); readln (e);
insiter (tree,e);
end;
4: begin
s: ='';
assign (input,'c: \input. txt');
reset (input);
read (input,s);
close (input);
writeln (s);
writeln ('press any key');
readkey;
end;
0: goto 2;
end;
goto 1;
2: writeln ('press any key');
readkey;
end.
Екран результату
Контрольні розрахунки
Контрольними розрахунками містяться в самій програмі. Отримані результати легко перевірити, що підтверджує вірність роботи програми.
Висновок
Динамічні структури даних дозволяють гнучкіше та ширше використовувати можливості програмування. Дуже зручним у використанні є тип даних Паскаля Pointer та його комбінація з типом Record, що дає змогу реалізовувати списки та будь-які деревовидні структури даних. Середовище Турбо Паскаль та Делфі дозволяє вільно працювати з цими структурами.
Список літературних джерел
1. Т. Рюттен, Г. Франкен. Турбо Паскаль 6.0. Торгово-издательское бюро BHV. Грифон. - К.: 1992. - 235 с.
2. Т.П. Караванова. Основи алгоритмізації та програмування. Форум. - К.: 2002. - 286 с.
3. І. Скляр. Вивчаємо мову программування PASCAL. http://distance. edu. vn. ua/metodic/pascal/
4. Будникова Н.А. Обучающий комплекс по программированию на языке ПАСКАЛЬ http://petrsu.ru/Chairs/IMO/pascal/