Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.12.2018, 01:56   #1
aidar2018
Новичок
Джуниор
 
Регистрация: 10.12.2018
Сообщений: 1
По умолчанию не работает список, не могу понять почему

Код:
program ex7;
type 
     U=^Dlin;
      dlin=record
       name:string;
       next:u;
      end;

var
    f,g:text;
    go,one:u;
 
procedure readfile(var one :u; var f:text);
var 
    go, m:u;
    
begin
   new(go);
   m:=go;
   go^.name := '';
   go^.next := nil;
   one:=go;
   While not eof(f) do 
    begin
     new(go);
     readln(f,go^.name);
     go^.next := m;
     m^.next:=go;
     m := go;
    end;
    new(go);
    m^.next := go;
    go^.next := m;
    go^.next := nil;
    go^.name := ''; 
end;


procedure logic(var one:u);
var
 t,l,m,go,c:u;
 k:byte;
 
 begin
  go:=one^.next;
  while go <> nil do   
   begin 
    l:=one;
    c:=go;
    t:=go^.next;
    while l<>go do 
     begin 
      m:=l^.next;
      if (length(t^.name)> length(l^.name)) and (length(t^.name)< length(m^.name)) then 
       begin 
        l^.next:=t;
        t^.next:=m;
        c^.next:=t^.next;
        l:=go;
       end else l:=l^.next;
      end;
     go:=go^.next;
     k:=k+1;
    end;
   end;
        
   

begin

 assign(f,'C:\Users\e6530\Desktop\Program\1-2\input.inp');
 reset(f);
 readfile(one, f);
 close(f);
 logic(one);
 go:=one;
 while go<> nil do
  begin
   writeln(go^.name);
   go:=go^.next;
  end;
end.
_____
Код программы нужно выделять (форматировать) тегами [CODE] [/CODE] (читать FAQ)
Модератор

Последний раз редактировалось Serge_Bliznykov; 10.12.2018 в 22:35.
aidar2018 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не могу понять почему не работает программа на С. NO ONE Общие вопросы C/C++ 2 13.12.2017 17:23
Не могу понять почему не работает Valeriy_136 Помощь студентам 2 15.10.2017 08:10
Почему не работает...хм....понять не могу! Артур Иваныч Microsoft Office Excel 9 01.12.2009 17:58