Реферат: Программирование на языках высокого уровня

Да

Нет

Нет Да Да

Нет

L:=L^.p;

Нет

Да

			st:=st+ch;
				New(FEst); FEst^.s:=L^.s; FEst^.k:=L^.k; FEst^.p:=nil;

Да

Нет

L:=L^.p; Est:=FEst;

Нет

Да

		PEst:=Est; Est:=Est^.p;

Да

L^.k:=L^.k+1; st:=''; b:=true; L:=L^.p;

Нет

New(temp); temp^.s:=L^.s; temp^.k:=L^.k; temp^.p:=nil; PEst^.p:=temp;

Да

Нет

New(temp); temp^.s:=L^.s; temp^.k:=L^.k; temp^.p:=Est; PEst^.p:=temp;

Да

Нет

Да

Нет

Да

Нет

3 ТЕКСТ ПРОГРАММЫ

Program Project1;

{$APPTYPE CONSOLE}

Uses SysUtils;

type spisok=^Recspisok;

Recspisok=record

s:String; k:word; p:spisok; end;

var a,b,c,e:boolean; ch:char; st:string;

L,Fst,FEst,PEst,Est,temp:spisok; f:text;

label lb;