Контрольная по информатике N1 для группы КМ-1-03:

Тема: типы данных Pascal

Вариант: 4 или 5

Задание: Объявить переменную P, являющуюся указателем на тип Integer, присвоить ей адрес переменной А типа Integer. Другой переменной В типа Integer присвоить содержимое памяти, на которую указывает указатель. По адресу, на который указывает указатель занести новое значение. Переменной В присвить содержимое памяти, на которую указывает указатель. На каждом этапе в комментариях указывать значения переменных А и В и содержимого памяти, на которую указывает указатель. Создать динамические переменные типа Real. Занести в неё данные. Освободить память, занимаемую переменной. Для этого использовать указатель.

Решение (с некоторыми недочётами):

var P:^integer;
A,B:integer;
begin
A:=10;
P:=@A; (адрес A)
B:=P^; (B=A=10)
End.

Var P:^real;
Begin
New(P);
P^=10;
Dispose(P);
End.