С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Метод сортировки выбором http://www.cyberforum.ru/pascal/thread895671.html
Нужно создать программу при помощи которой 1)заполнить масив А(40) случайными числами из диапазона 100 до 999 2)вывести елементы масива в одну строчку 3)упорядочить масив учитывая такие критерии ...
Pascal Разработать программу сложения и вычитания двух матриц Даны натуральные числа n, m и две матрицы разрядности nхm целочисленных элементов, где n,m≤10. Разработать программу сложения и вычитания двух матриц. %-) Помогите очень прошу! :wall: http://www.cyberforum.ru/pascal/thread895657.html
Pascal Представление математическим выражением
Доброго времени суток, дано выражение: X+9/(3*X/A)+Sqr(Cos(X))/2/Sqrt(X)+1.0E-5*Exp(9*Ln(X)) Собственно сам не могу решить задачу так как не могу точно сказать где начинается знаменатель, и...
Создать текстовый файл, который содержит 1000 случайных целых чисел Pascal
Создать текстовый файл, который содержит 1000 случайных целых чисел. Числа в файле должны быть разбиты на 50 строк по 20 чисел в строке. После создания этого файла вывести его на экран.
Pascal Ряд Маклорена http://www.cyberforum.ru/pascal/thread895499.html
Помогите решить,в PascalABC
Pascal Midlet Pascal: поле чудес Нужна в помощь в написании игры Помогите пожалуйста написать игру "поле чудес" ...Но с минимум визуализацией...Можно чуть чуть графики... Вопрос и ответ,которые уже заранее написанные в файле... подробнее
Roxanne
0 / 0 / 0
Регистрация: 04.06.2013
Сообщений: 5
0

Сохранить бинарное дерево в файл

08.06.2013, 22:17. Просмотров 1086. Ответов 7
Метки (Все метки)

Подскажите, пожалуйста, как сохранить бинарное дерево в файл?
Суть задачи: необходимо создать бинарное дерего, добавить к нему листы, просмотреть его, а так же напечатать все элементы каждого листа. Все это должно сохраняться и считываться из файла. При попытке сохранить выдает exit code 103.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
type zap=record 
         nomer:string[5];
         st_otp:string[15];
         st_pr:string[15];
         vr_otp:string[5];
         vr_pr:string[5];
         stoim:string[10];
         end;
 
     TreePtr=^Tree; 
          Tree=record
          Data:zap;
          Left,Right:TreePtr;
          end;
 
var top:TreePtr;
    Z:zap;
    i: integer;
    number: integer;
    f: file of zap;
Сама процедура:
Pascal
1
2
3
4
5
6
7
8
9
10
11
procedure sohr(top:treeptr);
 
  begin
   rewrite(f);
   while top<>nil do
   begin
    write(f,top^.data);
    end;
   readln;
  close(f);
  end;


Вернуться к обсуждению:
Сохранить бинарное дерево в файл
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.06.2013, 22:17
Готовые ответы и решения:

бинарное дерево
как сделать бинарное дерево???

Бинарное дерево
кто нибудь!!!!!!!!!!! помогите!!!!! мне нужно к зачету сдать задачу, а как с...

Бинарное дерево
Привет, соседи! Столкнулся со следующей задачей: Написать программу, которая...

Бинарное дерево
Создать простое бинарное дерево с именем, кто сможет помоч?

Бинарное дерево
Отобразить с помощью бинарного дерева предложение: &quot;Боженко Роксолана изучает...

7
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru