15. Задача на взаимодействие между классами. Разработать систему «Железнодорожная касса». Пассажир делает заявку на станцию назначения, время и дату поездки. Система регистрирует Заявку и осуществляет поиск соответствующего Поезда. Пассажир делает выбор Поезда и получает Счет на оплату. Кассир вводит номера Поездов, промежуточные и конечные станции, цены.

Dim nazv1$, nazv2$ dim p1%,o1%,d1%,p2%,o2%,d2% cls input "nazvanie 1: ", nazv1$ input "perviy: ", p1 input "otvetniy: ", o1 input "nazvanie 2: ", nazv2$ input "perviy: ", p2 input "otvetniy: ", o2 if p1+o1> p2+o2 then     print nazv1$ else     if p1+o1< p2+o2 then           print nazv2$     else           if o1-o2> p2-p1 then                 print nazv1$           else                 if o1-o2< p2-p1 then                       print nazv2$                 else                       print "dopolnitelnoe: "                       print nazv1$                       input d1                       print nazv2$                       input d2                       if d1> d2 then                             print nazv1$                       else                             if d1< d2 then                                   print nazv2$                             else                                   print "nichia"                             end if                       end if                 end if           end if     end if end if end пример: nazvanie 1: a perviy: 2 otvetniy: 0 nazvanie 2: b perviy: 0 otvetniy: 2 dopolnitelnoe: a ? 3 b ? 3 nichia

Pascalabc.net 3.2, сборка 1399 от 08.03.2017 внимание! если программа не работает, обновите версию! type   uch=record   fam,nam: string;   ball: integer   end; begin   var u: =new uch[40];   // ввод данных (до 40), окончание- пустой ввод   var i: =0;   repeat       var a: =readlnstring('ученик '+(i+1).tostring+': ').towords;       if a.count=0 then break;       u[i].fam: =a[0]; u[i].nam: =a[1]; u[i].ball: =integer.parse(a[2]);       i+=1   until i=40;   setlength(u,i); // массив отрегулирован под реальное кол-во   // поиск   writeln('1 - поиск по фамилии и имени; ');   writeln('2 - поиск по оценке; ');   writeln('3 - поиск учеников с лучшей оценкой; ');   writeln('иной символ - завершение');   repeat       var c: =readlnchar('ваш выбор: ');       case c of       '1': begin           var s: =readlnstring('фамилия и имя: ').towords;           var found: =false;           for var j: =0 to u.length-1 do               if (u[j].fam=s[0]) and (u[j].nam=s[1]) then begin                   writeln('отметка ',u[j].ball);                   found: =true;                   break                   end;               if not found then writeln('нет такого ученика')           end;       '2': begin           var k: =readlninteger('оценка: ');           var found: =false;           for var j: =0 to u.length-1 do               if u[j].ball=k then begin                   writeln(u[j].fam,' ',u[j].nam);                   found: =true;                   end;               if not found then writeln('нет такого ученика')           end;       '3': begin           var m: =u.select(x-> x.ball).max;           for var j: =0 to u.length-1 do               if u[j].ball=m then writeln(u[j].fam,' ',u[j].nam);           end;       else break       end;   until false;   writeln(', приходите еще! ')   end. пример ученик 1: иванов петр 4 ученик 2: петров иван 5 ученик 3: висечкин николай 3 ученик 4: зотова марина 4 ученик 5: любимов павел 5 ученик 6: козлова елена 4 ученик 7: 1 - поиск по фамилии и имени; 2 - поиск по оценке; 3 - поиск учеников с лучшей оценкой; иной символ - завершение ваш выбор: 3 петров иван любимов павел ваш выбор: * , приходите еще!