Тема 11: Адреса и указатели

Варианты ответа

15 8 8
23 11 8
23 11 11
23 8 8
15 11 11
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении

type PInt = ^integer;
var aa,bb: integer; P2: PInt;
begin bb:=8; new(P2);
P2^:=23;
P2:= @bb;
aa:= 7+P2^;
bb:=aa-4; write(aa:4,bb:4,
P2^:4); readln;
end.

Варианты ответа

0
42
12
4
8
Программа вызовет
ошибку при выполнении
Программа вызовет
ошибку при компиляции

type PInt = ^integer; 
var m,n: PInt;
begin new(m); new(n); n^:= 4; m^:= 14;
dispose(n); n:=m; m:=nil; write(n^+2*n^);
readln;
end.

Варианты ответа

10
15
14
11
13
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении

type PAra = ^ array [1..5] of integer;
var Ara: PAra;  s,i:integer;
begin new(ara); s:=0; for i:=0 to 4 do
   begin ara^[i+1]:= i+random(1);
      inc(s,ara^[i+1]);
   end; dispose(ara); write(s); readln;
end.

Варианты ответа

3 4 2 1 0
3 8 2 1 0
4 4 3 2 1
3 0 2 1 0
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении
3 0 0 1 0

type tara = array [0..3] of integer;
     PAra = ^ tara;
var me:longint; s,i:integer; ara: para;
begin me:=memavail; new(ara); s:=0;
  for i:=3 downto 0 do 
     begin
         ara^[i]:=i; if i=2 then 
         write(me-memavail:4);
         write(ara^[i]:4);
     end; readln;
end.

Варианты ответа

80
40
20
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении
8
4

type PAra = array [1..4] of ^integer;
var me:longint; s,i:integer; ara: para;
begin me:=memavail; s:=0;
  for i:=1 to 4 do
     begin new(ara[i]); 
         ara[i]^:= me - memavail;
         inc(s,ara[i]^);
     end; write(s:4);  readln;
  for i:=1 to 4 do dispose(ara[i]);
end.