Приклади програм з використанням вказівників

Приклад 1:

скласти програму обчислення функції

Var X, Y, Z, F: ^Real;

Begin

Write(‘Введіть Y, Z:’);

New(Y);

New(Z);

ReadLn(Y^,Z^);

Write(‘Введіть X:’);

New(X);

ReadLn(X^);

New(F);

IF (X^^) THEN F^:=SQR(X^)+EXP(Z^)/COS(Y^)

ELSE F^:=SIN(X^)+COS(Z^);

Dispose(X);

Dispose(Y);

Dispose(Z);

WriteLn(‘Значення F=’,F);

Dispose(F);

End.

Приклад 2:

Згенерувати масив випадкових чисел. Розмістити масив в динамічній пам'яті, знайти суму елементів і видалити його з пам'яті.

Program Dinmas;

Uses CRT;

Const

k1=100;

k2=2*k1+1;

Type

Item = Real;

DinArr = array[1..$FFF0 div SizeOf(Item)] of Item;

DinPrt = ^DinArr;

Var

Arr: DinPrt;

I,N: Word;

S:Real;

f:real;

{$R-}

Begin

ClrScr;

Randomize;

Writeln("Введіть кількість елементів масиву N:");

Readln(N);

GetMem(Arr,N*SizeOf(Item)); {N*SizeOf(Item)-розмір необхідної пам'яті }

Writeln("Введіть масив X(N):");

For i:=1 to N do

begin

f:=random(k2);

Arr^[i]:=k1-f; { Read(Arr^[i]);};

Write(Arr^[i]:4:2," ":2)

End;

Writeln;

S:=0;

For i:=1 to N do S:=S+Arr^[i];

Writeln(^G"Результат:",^J^^M,G"Сума=",S);

FreeMem(Arr,N*SizeOf(Item));

Repeat Until KeyPressed

End.

Приклад 3:

Згенерувати випадковим чином матрицю. Розмістити матрицю в динамічній пам'яті, знайти суму елементів і видалити її з пам'яті.

Program Dinmas;

Uses CRT;

Type

Item = Real;

DinArr=array[1..$Ff div sizeof(item),1..$ff div sizeof(item)] of Item;

DinPrt = ^DinArr;

Var

Arr: DinPrt;

k,j,l,I,N: Word;

S:Real;

{$R-}

Begin

ClrScr;

randomize;

Writeln("Введіть кількість рядків масиву N:"); Readln(i);

Writeln("Введіть кількість стовпчиків масиву N:"); readln (j);

n:=i*j; {N*SizeOf(Item)-розмір необхідної пам'яті }

GetMem(Arr,N*SizeOf(Item));

{ Writeln("Уведіть масив X(N):");}

For k:=1 i do to

for l:=1 to j do Arr^[k,l]:=random (2000);

S:=0;

For k:=1 i do to

for l:=1 to j do S:=S+Arr^[k,l];

Writeln(^G"Результат:",^J^^M,G"Сума=",S);

FreeMem(Arr,N*SizeOf(Item));

Repeat Until KeyPressed

End.

Приклад 4:

Розмістити запис у динамічній пам'яті, потім видалити його з пам'яті.

Program pointer1;

Uses crt;

Type

FriendRec = Record

Name: string[30];

Age: Byte;

End;

FrPtr = ^FriendRec;

Var

p: FrPtr;

Begin

ClrScr;

GetMem(p, SizeOf(FriendRec)); {Виділення пам'яті в купі}

Write("Введіть ім'я: "); Readln (^p.Name);

Write("Введіть вік: "); Readln (^p.Age);

Writeln;

Writeln("Пам'ять для запису про імені і віці розподілена в купі.");

Writeln;

Writeln("Ім'я:",^p.Name);

Writeln("Вік",^p.Age);

Writeln;

FreeMem(p, SizeOf(FriendRec)); {Звільнення пам'яті}

Writeln("Пам'ять, займана записом про імені і віці звільнена.");

Repeat until KeyPressed;

End.

Дата добавления: 2013-12-12