Линейный однонаправленный список. Динамические структуры данных

Динамические структуры данных

End.

Begin

Var

Type

Пример 2.

End.

Begin

Var

Type

Пример 1.

{ TP7 }

program P0702;

pInteger = ^integer;

ppInteger = ^pInteger;

pppInteger = ^ppInteger;

p_i: ^integer; // Аналогично p_i: pInteger;

p_b: ^boolean;

p_c: ^char;

p: pointer;

c: char;

b: boolean;

i: integer;

clrscr;

Writeln('sizeof(p)=', sizeof(p));

Writeln('sizeof(b)=', sizeof(b));

Writeln('sizeof(i)=', sizeof(i));

Writeln('sizeof(c)=', sizeof(c));

Readln;

b:=false;

Writeln(b);

p_b:= @b; // p_i:= @b;

p:= p_b;

p_i:= p;

p_i^:= 7;

Writeln(b);

c:='A';

Writeln(c); { 'A' }

p_c:= @c;

p:= p_c;

p_i:= p;

p_i^:= p_i^ + 7;

Writeln(c); { 'H' }

Readln;

DateTime = record { Delphi: TDateTime }

Year, Month, Day, Hour, Min, Sec: word;

end;

MyRec = record

N: longint;

FIO: string [40];

BirthDate: DateTime;

end;

pMyRec: ^MyRec;

z: MyRec;

pMyRec:= @z;

pMyRec^.N:= 1;

z.N:= 1;

pMyRec^.BirthDate.Year:= 1999;

procedure PrependItem(sName: string; Salary: double);

procedure AppendItem(sName: string; Salary: double);

procedure InsertItem(sName: string; Salary: double);

{$F+}

{$N+}

uses Crt, Strings;

Дата добавления: 2014-01-04