Опис логічної структури
Головна
програма Rent.pas
Find;
Опис вхідних даних
k –опис записів зміними якого є adresa, plowa, pruzna4, cina –тип record;
adresa – зміна масиву записів для введення адреси приміщення– тип string;
plowa – зміна масиву записів для введення площі приміщення – тип real;
pruzna4 – зміна масиву записів для введення призначення приміщення – тип string;
cina – зміна масиву записів для введення вартості приміщення – тип integer;
n1 – зміна яка використовується в головній програмі для введення кількості приміщень – тип integer;
t – зміна яка використовується в процедурі Find для введення назви шуканої площі– тип string;
Опис вихідних даних
mas:array[0..100] of k– локальний масив записів даних про приміщення;
j, i – індекси масиву;
Опис підпрограм
Процедура find (a:array[0..100] of k;i:integer) використовується для пошуку приміщення за площею.
Опис алгоритму розвязку завдання
Початокк
Головна програма rent.pas
Кінець
j1:=0;
Ввід(t)
j:=1,i
j:=1,i
Вивід: a[j].adresa:5, a[j].plowa, a[j].pruzna4:2,a[j].cina
t=a[j].plowa
Ні
Так
Вивід: a[j].adresa:5, a[j].plowa, a[j].pruzna4:2,a[j].cina
Кінець
Ввід(n1)
(n1>0)
and (n1<21)
Так
Ні
I1:=1,n1
inc(i);
Ввід: a[i].adresa, a[i].plowa, a[i].pruzna, a[i].cina
find(mas,i)
Кінець
Тестові приклади
Опис виконання програмного коду
У розрахункові графічній роботі задано cтворити масив записів приміщень,які хочуть здати в оренду (<21),де вказати адресу,площу,призначення приміщення,ціну за кв.м.Дані користувач вводить з клавіатури.Здійснити введення даних,пошук за площею,чи призначення орендованого приміщення.
Назва програми –Dovidka.pas.
У полі опису бібліотек і констант задані стандартний модуль CRT;
Описано власний тип даних k для опису массиву записів елементами якого є: adresa, plowa, pruzna4, cina.
Описано цілочисельні зміні i1,n1,i,a,j:integer, масив mas:array[1..n] of k.
Далі йде опис процедури Find.
Записано головна програма, яка викликає основні процедури і функції, згідно з алгоритмом рішення завдання.
Опис процедури Sort.
У заголовку процедури описано локальні параметри t:real, j1,j:integer, масив записів а та формальний параметр і;
На початку процедури користувач з клавіатури вводить площу приміщення, яку потрібно знайти в масиві;
В циклі з лічильником For..to..do, по черзі кожен елемент масиву порівнюється з шуканим значенням, якщо значення збігаються, тоді цикл припиняється і на екран друкуються знайдені результати, в іншому випадку на екран виводиться повідомлення про недалий пошук;
Опис головної програми
На початку головної програми користувач з клавіатури вводить кількість приміщень які здаються в оренду;
В циклі For..to..do по черзі вводяться значення зміних(адреса, площа, призначення, ціна за к.в);
Виконується перехід до процедури Find;