0 / 0 / 0
Регистрация: 18.06.2014
Сообщений: 17
1

ПОМОГИТЕ с комментариями

20.05.2008, 17:25. Показов 1149. Ответов 1
Метки нет (Все метки)

прокомментируйте плиз прогу, я прост в паскале не силен......желательно подробно.....спс.... вот код type
TreeLink = ^Tree;
Tree = record
Data: string;
Left, Right: TreeLink;
end;

procedure InsTree(var t:TreeLink; Num, NumNode : integer; S:String);
var PNum, LNum, k : integer;
begin
if t = nil then begin
new(t);
with t^ do begin
Left := nil;
Right := nil;
Data := S;
end;
end else begin
{ По текущему номеру узла можно определить номер
узлов, которые справа и слева от него }
k := 1; PNum := NumNode;
While PNum > k do begin
PNum := PNum - k;
k := k * 2;
end;
{ PNum - номер узла внутри уровня от 1 }
{ LNum - номер левого узла от текущего }
LNum := (PNum-1)*2 + NumNode - PNum + 1 + k;
if (LNum = Num) or (t^.Left <> nil)
then InsTree(t^.left , Num, LNum, S);

if (LNum+1 = Num) or (t^.Right <> nil)
then InsTree(t^.Right, Num, LNum+1, S)
end;
end;

Procedure PrintTree(var S:String; t:TreeLink);
begin
if t <> nil then begin
PrintTree(S, t^.left);
PrintTree(S, t^.right);
S := S + t^.data + ',';
end;
end;

var txtfile : text;
S, S1 : String;
kd: TreeLink;
N, i:integer;
begin
kd := nil;
Assign(txtfile, 'out.txt');
Reset(txtfile);
s := '';
while not eof(txtfile) do begin
Readln(txtfile, S1);
if S1[length(s1)] <> ',' then s1 := s1 + ',';
s := s + s1;
end;
Close(txtfile);

N := 1; // Номер узла
for i := 1 to length(s) do begin
while (Pos(',', s) > 0) do begin
S1 := copy(s, 1, Pos(',', S) - 1);
delete(s, 1, Pos(',', S));
insTree(kd, N, 1, S1);
inc(N);
end;
end;

s := '';
PrintTree(s, kd);

Assign(txtfile, 'in.txt');
Rewrite(txtfile);
writeln(txtfile, s);
Close(txtfile);

readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2008, 17:25
Ответы с готовыми решениями:

Помогите с комментариями
using System; using System.Collections.Generic; using System.Linq; class Program { ...

Помогите С Комментариями
Ребят помогите написать подробные комментарии! Очень надо! Просто позарез! зарание спасибо! вот...

Помогите с комментариями к программе
Очень прошу помочь сделать подробные комментарии к уже готовой программе, написанной в билдере! Это...

Хочу разобраться в коде. Помогите с комментариями
Здравствуйте. Имеется программа реверса текстового файла. Так как только учусь программировать на...

1
13207 / 6595 / 1041
Регистрация: 10.01.2008
Сообщений: 15,069
20.05.2008, 20:22 2
Учимся оформлять код соответствующим тегом.
Код
type
    TreeLink = ^Tree;
    Tree = record
        Data: string;
        Left, Right: TreeLink;
    end;
 
procedure InsTree(var t:TreeLink; Num,NumNode:integer; S:String);
var PNum, LNum, k :integer;
begin
    if t = nil then begin
        new(t);
        with t^ do begin
            Left := nil;
            Right := nil;
            Data := S;
        end;
    end else begin
        { По текущему номеру узла можно определить номер
          узлов, которые справа и слева от него }
        k := 1; PNum := NumNode;
        While PNum > k do begin
            PNum := PNum - k;
            k := k * 2;
        end;
        { PNum - номер узла внутри уровня от 1 }
        { LNum - номер левого узла от текущего }
        LNum := (PNum-1)*2 + NumNode - PNum + 1 + k;
        if (LNum = Num) or (t^.Left <> nil) then InsTree(t^.left , Num, LNum, S);
        if (LNum+1 = Num) or (t^.Right <> nil) then InsTree(t^.Right, Num, LNum+1, S)
    end;
end;
 
Procedure PrintTree(var S:String; t:TreeLink);
begin
    if t <> nil then begin
        PrintTree(S, t^.left);
        PrintTree(S, t^.right);
        S := S + t^.data + ',';
    end;
end;
 
var txtfile : text;
    S, S1 : String;
    kd: TreeLink;
    N, i:integer;
 
begin
    kd := nil;
    Assign(txtfile, 'out.txt');
    Reset(txtfile);  { открываем файл для чтения }
    s := '';
    while not eof(txtfile) do begin  { считываем из него все строки }
        Readln(txtfile, S1);
        if S1[length(s1)] <> ',' then s1 := s1 + ',';  { добавляем "," в конец строки }
        s := s + s1; { объелиняем все строки в одну, разделенную "," }
    end;
    Close(txtfile);  { закрываем файл }
    N := 1; // Номер узла
    for i := 1 to length(s) do begin  { перебираем всю строку }
        while (Pos(',', s) > 0) do begin  { ищем "," }
            S1 := copy(s, 1, Pos(',', S) - 1);  { копируем все до "," }
            delete(s, 1, Pos(',', S));  { удаляем из исходной строки все вместе с "," }
            insTree(kd, N, 1, S1);  { добавляем ветвь дерева }
            inc(N);
        end;
    end;
    s := '';
    PrintTree(s, kd);  { записываем содержимое дерева в s }
    Assign(txtfile, 'in.txt');
    Rewrite(txtfile);  { открываем файл для записи }
    writeln(txtfile, s);  { записываем содержимое дерева }
    Close(txtfile);  { и закрываем файл }
    readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.05.2008, 20:22
Помогаю со студенческими работами здесь

Желательно с комментариями.)
1. Тема &quot;Записи&quot;. Решение задач с применением пользовательского типа Запись Багаж пассажира...

Блок с комментариями
Добрый день программисты!)) Возник вопрос, у меня есть текстовое поле &lt;div...

Убрать над комментариями
Не могу понять где ковырять в шаблоне или нет . Над комментариями высвечивается вот такое . ...

Постраничный вывод с комментариями
Здравствуйте. Решил создать на своем сайте страницу, которая бы постранично выводила записи из базы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru