Список: Составить программу, которая по исходному списку строит два новых списка

08.06.2013, 19:48. **Показов** 639. **Ответов** 0

Author24 — интернет-сервис помощи студентам

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

Delphi

type pn=^dp;
     dp=record
     i:integer;
     p:pn
     end;
var  t,r,q,s:pn;x,j:Integer; f:TextFile;
   begin
    AssignFile(f,'f1.txt');
Reset(f);
r:=nil;
j:=0;
repeat j:=j+1;
new(q);
 read(f,q^.i);
 q^.p:=r;
  r:=q
until eof(f);
CloseFile(f);
 
    repeat q:=q^.p;
         Mmo1.Lines.Add(IntToStr(q^.i));
    until q^.p=nil;
    repeat q:=q^.p;
      if q^.i>0 then    //Тут ругается и не говорит даже в чем дело о_О
      begin
         t^.i:=q^.i;
         Mmo2.Lines.Add(IntToStr(t^.i));
         end;
   until q^.p=nil;
    repeat q:=q^.p;
     if q^.i=0 then       //тут такая же проблема
     begin
         s^.i:=q^.i;
         Mmo3.Lines.Add(IntToStr(s^.i));
         end;
    until q^.p=nil;
 
end;

	08.06.2013, 19:48

Опции темы