Лабораторна робота 1.2.

Тема. Робота з чергою

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

Завдання

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

Розв’язання

Мовою Pascal (Delphi)

Type

    coord = record

        x,y:real;

    end;

Var

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

    tail,head:integer;

procedure Put(x:coord);

begin

    head:=head+1;

    queue[head]:=x;

end;

procedure Get(var x:coord);

begin

    if tail>head then

        Form1.Caption:='Черга порожня'

    else begin

      Form1.Caption:='';

      x:=queue[tail];

      tail:=tail+1;

    end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var c:coord;

begin

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

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

    Put(c);

end;

procedure TForm1.Button2Click(Sender: TObject);

var c:coord;

begin

    Edit1.Text:='';

    Edit2.Text:='';

    Get(c);

    if Caption = ''  then  begin

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

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

    end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  tail:=0;

  head:=-1;

end;

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

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

Література

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