IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> деревья, проверьте и исправьте плиз
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской
Реальное имя: коля

Репутация: -  0  +


создать структуру "бинарное дерево" (информационное поле -рядок текста) по первому сиволу рядка из елементов
текстового файла. напечатать информацию всех елементов дерева - листов

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils
const n=24;
type tree=^elem;
elem=record
info:char;
left:tree;
right:tree;
end;
var a:array[1..n] of char;
beg:tree; //nachalo dereva
r:byte;
x,i:char; //ukozateli dlja dvijenija

//процедура вставки елементов дерева
procedure insert(x:char; var beg:tree);
var p,p1,p2:tree; //ukozateli

begin
{ TODO -oUser -cConsole Main : Insert code here }
New (p);
p^.info:=x;
p^.left:=nil;
p^.right:=nil;
if (beg=nil) then beg:=p
else
begin
p1:=beg;
while p1<>nil do
begin
p2:=p1;
if x<p1^.info then
p1:=p1^.left

else
p1:=p1^.right;
end;
if x<p2^.info then
p2.left:=p
else
p2^.right:=p;
end;
end;

begin
randomize ;
beg:=nil;
writeln;
writeln('spisok - Tree');
writeln;
for r:=1 to n do
begin
x:=chr(random(255));
insert(x,beg);
write(x,' ');
readln; readln;
end;




end.



Сообщение отредактировано: B&M -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Знаток
****

Группа: Пользователи
Сообщений: 324
Пол: Мужской
Реальное имя: maksim

Репутация: -  1  +


извени хоть я плохо пишу но стараюсь на русском писать а тут на каком то другом языке попытайся исправить на русский язык и тогда поможем наверное с задачей


--------------------
Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 32
Пол: Мужской

Репутация: -  0  +


Есть предложение посетить раздел FAQ. Там есть почти вся учебная информация по созданию и обходу деревьев.

Сообщение отредактировано: passat -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 15:01
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name