SHARE
TWEET

Untitled

a guest Sep 16th, 2019 83 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. {Создать класс аэропорт. Поля: Название,
  2. город, пассажирооборот, массив компаний,
  3. которые используют этот аэропорт.
  4.   Написать ф-цию для вывода инфы
  5.   Написать функцию, изменяющую пассажиропоток на число n}
  6. type
  7.   kop = array [1..5] of String  ;
  8.  
  9.   Airport = class {в турбо object}
  10.   city :String[20];
  11.   po :Integer;
  12.   companies: kop;
  13.  
  14.   constructor rt (c :String[20];p :Integer;compa : kop);
  15.   procedure vivod;
  16.   procedure change (n:Integer);
  17.   end;
  18.  
  19.  constructor Airport.rt(c :String[20];p :Integer;compa : kop);
  20.   begin
  21.     city:=c;
  22.   po:=p;
  23.   companies:= compa;
  24.   end;
  25.  
  26.  procedure Airport.vivod;
  27.    var
  28.    i:Integer;
  29.   begin
  30.     Write('Аэропорт нахходится в городе :', city) ; Writeln;
  31.     Write('Пассажтрооборот этого аэропорта :',po) ; Writeln;
  32.     Write('Компании, работающие с аэропотом : ') ;
  33.     for i:= 1 to 5 do
  34.       write(companies[i], ' ');
  35.     Writeln;
  36.   end;
  37.  
  38.  procedure Airport.change (n:Integer);
  39.    begin
  40.      po:= n + po
  41.    end;
  42.  
  43. var
  44.   Alikel: airport;
  45.     i, n:Integer ;
  46.   city1:String[20];
  47.   po1 :Integer;
  48.   companies1: kop;
  49. begin
  50.  
  51.   Write('Введите местонахождение аэропорта :') ; Readln(city1);
  52.   Write('Введите пассажтрооборот аэропорта :') ; Readln(po1);
  53.   Writeln('Введите названия компаний, сотрудничающих с аэропотом : ') ;
  54.   for i:= 1 to 5 do
  55.       readln(companies1[i]);//нарушение инкапсуляции
  56.      
  57.   constructor Airport.rt(city1, po1,companies1);// объекты создаются не так
  58.   Writeln('Ввод данных окончен.'); Writeln;
  59.   procedure Alikel.vivod;// методы тоже не так
  60.   Write('Введите на сколько изменился пассажиропоток : '); Readln(n);
  61.   procedure Alikel.change (n);// методы тоже не так
  62.   Writeln;
  63.   Writeln('  Новые данные аэропорта =>');
  64.   procedure Alikel.vivod;// методы тоже не так
  65. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top