Система задач и упражнений по языку программирования Pascal. Часть 2 - 28 стр.

UptoLike

ВУЗ: 

ЯГПУ им. Ушинского | Ярославль

Составители: 

Рубрика: 

28
12. Какой оператор служит для выделения места в динамической памяти? Что
происходит при его выполнении?
13. Какой оператор служит для освобождения места в динамической памяти? Что
происходит при его выполнении?
14. Какие действия и в каком порядке надо произвести, чтобы использовать
переменную в динамической памяти?
15. Объясните назначение процедур NEW(X) и DISPOSE(X).
16.
Переменные X и Y типа "Указатель". Что произойдет в результате выполнения
следующих операций: X := Y ? X^ := Y^ ?
17. Укажите синтаксические и смысловые ошибки в следующих фрагментах:
(1) Var pp:pointer; a,b^:real; k,l:^integer;
Begin new(a); new(k); b:=a; pp^:=b;
read(a^); l:=k; b^:=a^; pp^:=a^; a^:=a^+1;
(2) Var pp:^pointer; a,b^:real; k,l:^integer;
Begin new(pp);a^:=b^;
new(k);new(a);l:=k; b:=pp; read(a);
^b:=^a;
(3) Var a:^array[1..1000] of real;
i,k:^integer; a,b:^real; begin new(a);
new(b); new(i);
For i^:=1 to 1000 do read(a[i]^); b:=a[13];
(4) Var a:array[1..1000] of ^real;
i,k:^integer;
B:real; begin for i:=1 to1000 do
read(a[i]^); read(b); a[13]:=b;
18. Найдите смысловые ошибки в следующих фрагментах программ и укажите, как
будет реагировать машина на данную ошибку:
(1) фрагмент программы создания списка из массива
begin
for i:=1 to n do begin
new(x); x.^f:=A[i]; x:=x.^next end; x.^next:=nil end;
(2) фрагмент программы создания массива из списка
i:=1;
while x<>nil do begin
A[i]:=x.^f; x:=x.^next; i:=i+1 end;
(3) добавление элемента после k-го элемента списка
begin i:=1;
while i<k do begin i:=i+1; x:=x.^next end;
new(y); y.^f:=z; x.^next:=y; y.^next:=x.^next end;
(4) меняет местами второй и третий элементы списка
x:=first;
x.^next:=x.^next.^next; x.^next.^next:=x.^next;
(5) создает из массива двунаправленный список
Program spisok;
tipe tip=…;
p=^element;
element=record
f: tip;
next, privious: p end;
var: A: array [1..20] of tip; x, y, first, last: p;
begin {заполняем массив A}
new(x); first:=x; x.^previous:=nil; x.^f:=A[1];

Страницы