Висновок

Під час написання даного курсового проекту отримав навички роботи з масивами, та записами. Навчився створювати власний тип та здійснювати пошук потрібного елемента.

Список використаної літератури

1. Верлань А.Ф., Апатова Н.В., Інформатика 10-11, Київ 2000р.

2. Гаєвськи О.Ю., Інформатика 7-11, Київ 2008р.

3. Інтернер ресурси:

   1. http://tp7.info/ -Turbo Pascal –сайт о языке программирования, Copyright © TP7.INFO, 2007-2011р.

   2. http://pascal.proweb.kz/ - Програмирование на Паскале, Copyright © 2005-2011р.

   3. http://www.ua5.org/pascal/ - Методичні матеріали з інформатики, Copyright © 2008р. UA5.org.

   4. http://www.pascal.pp.ua/ - Pascal.

Додаток 1 програмний код rent.Pas

program rent;

uses crt;

{в цій частині я оголошую тип к, як видно, він буде складатися з

4 частин:"adresa","plowa","pruzna4","cina"}

type

k=record;

adresa:string;

plowa:real;

pruzna4:string;

cina:real;

end;

var mas:array[0..100] of k;

i1,n1,i,a,j:integer;

{процедура для знаходження площі і виведення її на екран}

procedure find(a:array[0..100] of k;i:integer);

var t:real; j1,j:integer;

begin

for j:=1 to i do writeln(a[j].adresa:5,' ',a[j].plowa,' ',a[j].pruzna4:2,' ',a[j].cina,' ');

writeln;

write('напишіть площу для пошуку:');

readln(t);

j1:=0;

for j:=1 to i do

if t=a[j].plowa then

begin

writeln(a[j].adresa:5,' ',a[j].plowa,' ',a[j].pruzna4:2,' ',a[j].cina,' ');

j1:=j1+1;

end;

if j1=0 then writeln('такої площі не знайдено!');

end;

begin

repeat

write('Кількість приміщень які здаються в оренду(<21):');

read(n1);

until (n1>0) and (n1<21);

for i1:=1 to n1 do

begin

inc(i);

writeln;

{вводжу дані}

write('Адреса приміщення:'); read(mas[i].adresa);

write('Площа:'); read(mas[i].plowa);

write('Призначення:'); read(mas[i].pruzna4);

write('Ціна за кв.м:'); read(mas[i].cina);

end;

writeln;

{викликаю процедуру}

find(mas,i);

end.

Додаток 2