Примеры решаемых задач

Пример 1. Составить программу, которая формирует стек из 10 элементов, а затем удаляет его из памяти.

Программа:

Program stack10;

Uses Crt;

Const n=10;

Type stack = ^elem;

elem = Record

num: Integer;

p: stack

End;

Var st,beg_st: stack;

i: Integer;

Begin

Clrscr;

beg_st:= nil;

For i:= 1 To n Do

Begin

New (st);

st^.p:= beg_st;

beg_st:= st;

Write ('введите ', i,' элемент стека ');

Readln (st^.num)

End;

Writeln ('в динамической памяти создан стек:');

st:= beg_st;

While st <> nil Do

Begin

Writeln (st^.num);

st:=st^.p

End;

Readln;

Writeln ('Освобождаем память - удаляем элементы стека из кучи ');

i:= n;

st:= beg_st;

While beg_st<>nil do

Begin

st:= beg_st;

Writeln ('Удалили ', i,' элемент ');

beg_st:= st^.p;

i:= i - 1;

Dispose (st);

End;

Readln

End.

Контрольные задания

14.1. Составить программу, которая создает стек из N элементов (произвольного типа) и:

a.) выводит содержимое стека на экран;

b.) вставляет элемент в стек на k-е место;

c.) удаляет элемент с номером k из стека.

14.2. Составить программу, которая создает очередь из N элементов (произвольного типа) и:

a.) выводит элементы очереди на экран;

b.) вставляет элемент в очередь на k-е место;

c.) удаляет элемент с номером k из очереди.

14.3. Составить программу, которая формирует двунаправленный список из N элементов (произвольного типа) и:

a.) выводит элементы списка на экран;

b.) вставляет элемент в список на k-е место;

c.) удаляет элемент с номером k из списка.

Список литературы

1. Алексеев Е.Р. Турбо Паскаль 7.0. М.: НТ Пресс, 1996.

2. Грызлова Т.П., Грызлов В.И. Турбо Паскаль 7.0: для школьников, студентов и преподавателей. Изд. 4-е, испр-е. М.: ДМК Пресс, 2005.

3. Кораблев В. Турбо Паскаль 7.0. Самоучитель. Изд. 16-е. Спб.: Питер, 2005.

4. Немнюгин С., Перколаб Л. Изучаем Турбо Паскаль. Спб.: Питер, 2004.

5. Попов В.Б. Турбо Паскаль для школьников. М.: Финансы и статистика, 2004.

6. Фаронов В.Р. Турбо Паскаль 7.0: начальный курс. М.: Нолидж, 1997.

7. Чеснокова О.Р. Турбо Паскаль 7.0. Шаг за шагом. М.: НТ Пресс, 2004.

Газейкина Анна Ивановна

Основы структурного программирования на языке Паскаль

Учебно-методическое пособие/ Урал. гос. пед. ун-т.

Оригинал-макет подготовлен автором

ЛР №040330 от 18.04.97

Подписано в печать Формат 60х84 1/16

Печать плоская. Бумага для множ. апп.

Гарнитура Таймс. Усл. печ. л. 6. Тираж 100 экз.

Заказ

Уральский государственный педагогический университет
620017, г. Екатеринбург, пр. Космонавтов, 26.

Тираж отпечатан в отделе множительной техники

[1] Память в персональном компьютере адресуется двумя шестнадцатеричными словами (BA:BS), где BA - сегментный адрес, BS - смещение. Сегмент – участок памяти длиной 64 Кбайта, который начинается с физического адреса, значение которого кратно числу 16. Смещение определяет номер байта в сегменте.