@cobe_thichtudie

ребята помогите найти ошибку в проге!
у меня прога компилирует во он выводит пустую экране! Pascal ABC
Задача звучит так, создать базу данных справочной аэропорта
Program airport;
Uses
Crt;
Type
Str = String[12]; {String Type For Records}
Book = Record {Records For Data}
flight : Str;
departure : Str;
Date : Str;
Status : Str;
terminal : Str;
Aircraft : Str;
End;
Var
Fl : Char; {Label}
Zap : Array[1..30] Of Book; {Array For Record}
Kol : Integer; {Variable For Determining The Number Of flights}
i : Integer; {Variable Cycles}
Page : Integer; {Variable For The Implementation Of Pages}
F : Text; {File}
{Procedure For Reading Data}
Procedure Readout (Var T : Text; Var Line : Str);
Var
D : char;
Begin
Line := '';
Read(T,D);
While D <> ';' Do
Begin
Line := Line + D;
Read(T,D);
End;
Readln(T);
end;
{Procedure For Creating Records}
Procedure Assignment (Var T : Text; i : Integer);
Begin
Readout(T, Zap[i].flight);
Readout(T, Zap[i].departure);
Readout(T, Zap[i].date);
Readout(T, Zap[i].aircraft);
Readout(T, Zap[i].terminal);
Readout(T, Zap[i].status);
Readln(T);
End;
{Procedure For Output Records To The Screen}
Procedure Output(U : Integer);
Var
H, i : Integer;
Begin
For i := U To U + 8 Do
With Zap[i] Do
Begin
Write(departure : 12,'|');
Write(flight : 12,'|');
Write(date : 12,'|');
Write(aircraft : 12,'|');
Write(terminal : 12,'|');
Writeln(status : 12,'|');
For H := 1 To 79 Do
Write('-');
Writeln;
End;
End;
{Procedure For Test Conditions}
Procedure aircraft;
Var
H, i : Integer;
Begin
For i := 1 To Kol Do
With Zap[i] Do
If (Copy(aircraft,4,2))= 'Airbus A320' Then
Begin
Write(departure : 13,' |');
Writeln(flight : 24,' |');
writeln (date :24,'|');
For H := 1 To 79 Do
Write('-');
Writeln;
End;
End;
{==============Beginning Of Process==============}

Begin
Repeat
Clrscr;
{Recognition Number Of flights}
Assign(F,'vulet.txt');
Reset(F);
Readln(F, Kol);
For i := 1 To Kol Do
Assignment(F, i);
Close(F);
Page := 1;
Write('Press Any Key To Start The Program');
Repeat
{Output vulet In A Table}
Fl := Readkey;
Clrscr;
Writeln(' Рейс ' : 12,'|',' пункт отправления ' : 12, '|',' дата и время по расписанию ' : 12,'|',
' состояние рейса ' : 12,'|',' терминал ' : 12,'|',' тип воздушного судна ' : 12,'|');
For i := 1 To 79 Do
Write('-');
Writeln;
{Implementation Of Pages}
If Fl = '1' Then
Page := Page + 8;
If Fl = '2' Then
Page := Page - 8;
If Page < 1 Then
Page := 1;
While Page > Kol - 8 Do
Page := Page - 1;
Output(Page);
Writeln('Management: 1 - Next Page; 2 - Previous Page; 3 - Flight, departure and date');
Until Fl = '3';
{Test And The Result Set}
Clrscr;
Writeln(' рейс ' : 12,' |',' состояние рейса ' : 24,'|', 'дата и время ' :24, '|');
For i := 1 To 79 Do
Write('-');
Writeln;
aircraft;
Writeln;
Writeln('Management: 1 - Continue; 2 - Exit');
Fl := Readkey;
Until Fl <> '1';
End.

И вот данные :
XF 372;
Ю-Сахалинск;
20.10.2010 23:00;
прибыл во Владивосток 20.10.2010 22:49;
Внутренний;
Boeing 767;

VLK 750А;
Харбин;
20.10.2010 23:30;
ожидается 21.10.2010 00:30;
Международный;
Airbus A320;

NWS 2420;
Бангкок;
21.10.2010 06:01;
по графику;
Международный;
Boeing 767;

SU 721;
Москва;
21.10.2010 08:20;
по графику;
Внутренний;
Boeing 767;

XF 460;
Москва;
21.10.2010 09:00;
по графику
Внутренний
Airbus A330

С7 3509;
Новосибирск;
21.10.2010 09:55;
по графику;
Внутренний;
Airbus A320;
XF 464;
С-Петербург;
21.10.2010 11:30;
по графику;
Внутренний ;
Airbus A330;

SU 719;
Москва;
21.10.2010 11:45;
по графику;
Внутренний;
Airbus A330;

JS 271;
Пхеньян;
21.10.2010 12:05;
по графику;
Международный;
Ту-134;

УН 123;
Москва;
21.10.2010 14:45;
по графику;
Внутренний ;
Ту-134;

Мне до четверга надо уже, помогите плз!
Спасибо заранее !

0

@cobe_thichtudie

че всем меня не помогут что ли!

0

@yurevich

Здравствуйте!У меня тоже курсовая, подскажите пожалуйста как на PascalABC или Turbopascal вывести системную дату по английски, то есть английскими словами и в две строки. Заранее благодарен!

0