Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {Создать класс аэропорт. Поля: Название,
- город, пассажирооборот, массив компаний,
- которые используют этот аэропорт.
- Написать ф-цию для вывода инфы
- Написать функцию, изменяющую пассажиропоток на число n}
- type
- kop = array [1..5] of String ;
- Airport = class {в турбо object}
- city :String[20];
- po :Integer;
- companies: kop;
- constructor rt (c :String[20];p :Integer;compa : kop);
- procedure vivod;
- procedure change (n:Integer);
- end;
- constructor Airport.rt(c :String[20];p :Integer;compa : kop);
- begin
- city:=c;
- po:=p;
- companies:= compa;
- end;
- procedure Airport.vivod;
- var
- i:Integer;
- begin
- Write('Аэропорт нахходится в городе :', city) ; Writeln;
- Write('Пассажтрооборот этого аэропорта :',po) ; Writeln;
- Write('Компании, работающие с аэропотом : ') ;
- for i:= 1 to 5 do
- write(companies[i], ' ');
- Writeln;
- end;
- procedure Airport.change (n:Integer);
- begin
- po:= n + po
- end;
- var
- Alikel: airport;
- i, n:Integer ;
- city1:String[20];
- po1 :Integer;
- companies1: kop;
- begin
- Write('Введите местонахождение аэропорта :') ; Readln(city1);
- Write('Введите пассажтрооборот аэропорта :') ; Readln(po1);
- Writeln('Введите названия компаний, сотрудничающих с аэропотом : ') ;
- for i:= 1 to 5 do
- readln(companies1[i]);//нарушение инкапсуляции
- constructor Airport.rt(city1, po1,companies1);// объекты создаются не так
- Writeln('Ввод данных окончен.'); Writeln;
- procedure Alikel.vivod;// методы тоже не так
- Write('Введите на сколько изменился пассажиропоток : '); Readln(n);
- procedure Alikel.change (n);// методы тоже не так
- Writeln;
- Writeln(' Новые данные аэропорта =>');
- procedure Alikel.vivod;// методы тоже не так
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement