Контрольная по информатике
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.
|