Меню сайта

Задача №5

Ввести информацию о рейсе самолета (Nрейса, время вылета, время прилета, пункт назначения). Вывести информацию о всех рейсах в заданный город.


Program zap_5-

Uses Crt-

Const n=10-

Type reys = record

N : integer-

Vremv, Vremp, gorod:string-

end-

Var a : array[1..n] of reys-

i :byte-

g:string-

BEGIN

ClrScr-

for i:=1 to n do

with a[I] do

begin

Writeln(‘N рейса ‘,I,’самолета’)-

Readln(N)-

Writeln(‘Время вылета’)-

Readln(vremv)-

Writeln(‘Время прилета’)-

Readln(vremp)-

Writeln(‘Город’)-

Readln(gorod)-

end-

Writeln(‘введите требуемый город’)-

Readln(g)-

for i:=1 to n do

with a[I] do

if gorod=g then writeln (N:4,’ ‘,vremv,’ ‘, vremp)-

Readln-

end.

Категория: Записи | Дата: 21.01.13

Меню раздела
Блок