Лабораторна робота 1.1

Тема. Використання стеку

Мета. Формування навиків програмування стеків засобами мови програмування та їх використання в обчислювальних програмах

Завдання

Описати мовою програмування стек для збереження координат точки на площині та написати код для додавання координат до стеку та читання їх з нього. Зчитані зі стеку дані слід порядково уводити до текстового поля.

Розв’язання

Мовою Pascal (Turbo Delphi)

Type

    coord = record

        x,y:real;

    end;

Var

    stack:array[0..100] of coord;

    top:integer;

procedure Push(x:coord);

begin

    top:=top+1;

    stack[top]:=x;

end;

procedure Pop(var x:coord);

begin

    if top<1 then Form1.Caption:='Стек порожній'

    else begin

      Form1.Caption:='';

      x:=stack[top];

      top:=top-1;

    end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var c:coord;

begin

    c.x:=StrToFloat(Edit1.Text);

    c.y:=StrToFloat(Edit2.Text);

    Push(c);

end;

procedure TForm1.Button2Click(Sender: TObject);

var c:coord;

begin

    Edit1.Text:='';

    Edit2.Text:='';

    Pop(c);

    if Caption = ''  then  begin

        Edit1.Text := FloatToStr(c.x);

        Edit2.Text := FloatToStr(c.y);

    end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

    Top:=0;

end;

Завдання для самостійного виконання

Варіант	Завдання
1	Написати програму для уведення до стеку цілих чисел та виводу їх до текстового поля порядково
2	Написати програму для уведення до стеку цілих чисел та виводу їх до текстового поля через пробіл
3	Написати програму для уведення до стеку слів (рядків) та виводу їх до текстового поля порядково
4	Описати структуру «Геометрична фігура» з параметрами: назва, площа, об’єм, кількість вершин. Написати програму для уведення до стеку даних даної структури та виводу їх до текстових полів з відповідними підписами
5	Описати структуру «Працівник підприємства» з параметрами: прізвище,ім’я, по батькові, дата народження, професія, розряд. Написати програму для уведення до стеку даних даної структури та виводу їх до текстових полів з відповідними підписами
6	Описати структуру «Погодні умови» з параметрами: температура, атмосферний тиск, швидкість вітру, вологість, напрямок вітру. Написати програму для уведення до стеку даних даної структури та виводу їх до текстових полів з відповідними підписами
7	Описати структуру «Пацієнт лікарні» з параметрами: прізвище,ім’я, по батькові, дата народження, діагноз, лікар, дата госпіталізації. Написати програму для уведення до стеку даних даної структури та виводу їх до текстових полів з відповідними підписами
8	Описати структуру «Автомобіль» з параметрами: марка, рік випуску, країна виробник, об’єм двигуна, кількість циліндрів, колір. Написати програму для уведення до стеку даних даної структури та виводу їх до текстових полів з відповідними підписами
9	Описати структуру «Книга» з параметрами: автор, назва, шифр, рік видання, видавництво, кількість сторінок, жанр. Написати програму для уведення до стеку даних даної структури та виводу їх до текстових полів з відповідними підписами
10	Описати структуру «Комп’ютер» з параметрами: марка, процесор, тактова частота, кількість ядер, дата випуску, об’ємRAM, об’єм HDD. Написати програму для уведення до стеку даних даної структури та виводу їх до текстових полів з відповідними підписами
11	Описати структуру «Принтер» з параметрами: марка, тип, продуктивність, шумність, мережевий чи ні, кольоровий чи ні, можливість друку з карт пам’яті. Написати програму для уведення до стеку даних даної структури та виводу їх до текстових полів з відповідними підписами
12	Описати структуру «Будинок» з параметрами: кількість поверхів, площа, кількість вікон, рік побудови, матеріал стін, матеріал даху. Написати програму для уведення до стеку даних даної структури та виводу їх до текстових полів з відповідними підписами
13	Описати структуру «Країна» з параметрами: назва, материк, площа в тис. км2, населення в млн. чол., форма державного устрою, рік утворення. Написати програму для уведення до стеку даних даної структури та виводу їх до текстових полів з відповідними підписами
14	Описати структуру «Планета» з параметрами: назва, радіус, маса, густина планети в г/см3, радіус орбіти, наявність атмосфери, середня температура поверхні в К, наявність природних супутників. Написати програму для уведення до стеку даних даної структури та виводу їх до текстових полів з відповідними підписами
15	Описати структуру «Користувач соціальної мережі» з параметрами: ім’я, по батькові, прізвище, дата народження, стать, адреса електронної пошти, логін, пароль, захоплення, країна, місце проживання, навчальний заклад.. Написати програму для уведення до стеку даних даної структури та виводу їх до текстових полів з відповідними підписами

Література

1.     Караванова, Т.П. Інформатика: методи побудови алгоритмів та їх аналіз: Необчисл. алгоритми: Навч. посіб. для 9-10 кл. з поглибл. вивч. інформатики. Т.П.Караванова.– К.: Генеза, 2007. – 216 с.: іл. – Бібліогр.: с. 212. (Сторінки 62-65)