Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Модифікувати програму таким чином, щоб данi, які зберігаються в стеку, були типу запису (RECORD), складеного з двох полів. Вивід полів запису повинен здійснюватися в один рядок.
Тип даних узгодити з викладачем.
Program siod_1_1; {тип вказівника на елемент стеку}
Uses Crt; {тип елементу стеку}
Type {рядок даних елементу}
spis = "el; {вказiвник на наступний елемент}
el = record
inf: string;
next: spis;
end;
Var
key: char; {символ, введенний з клавіатури за допомогою}
{небуферованого вводу}
tek: spis; {вказiвник вершини стеку}
och: spis; {вказiвник на доданий або виключений елемент стеку}
Procedure clear_m(n: integer): {процедура очищення частини экрану}
{n=1 очищується половина екрану ліворуч (стовбці 1-40)}
{n=2 очищується права половина екрану (стовбці 41-80)}
Var
i: integer; {координата курсора по вертикалi}
Begin
n:=(n-1)*39+1; {визначення координати курсора по горизонталi}
for i:=3 to 23 do {цикл очищення частини екрану}
begin
gotoXY(n,i);
wrileln.(' ');
end;
end;
Procedure Instek; {процедура додання елементу в стек}
Begin
clear_m(l);
new(och); {утворення елементу}
och^.next:=tek; {додання утвореного елементу в стек}
tek:=och; {встановлення вказiвника вершини стеку на}
{доданий елемент}
gotoxy(l,3);
writeln('Введите новий елемент:');
readln(tek^.inf); {ввод рядка даних елементу}
End;
6.2 Змiст звіту
6.2.1 Мета роботи.
6.2.2 Блок - схема алгоритму з пояснювальними коментаріями.
6.2.3 Схема фізичної структури стеку.
Контрольнi запитання
6.3.1 Що називається стеком?
6.3.2 Якi основнi операцiї над стеком?
6.3.3 Що називається вершиною стеку? Як вона адресується?
6.3.4 Як зберігається стек в пам’ятi ЕОМ?
Дата публикования: 2015-04-07; Прочитано: 225 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!