03.09.2012, 18:54
|
#11 (permalink)
|
|
Member
Регистрация: 03.09.2012
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
Procedure search_train(a:tmas;destination:string;tm1,tm2:rea l);
var
i,S:Integer;
f:Text;
begin
Assign(f,'train_2.txt');
Append(f);
Writeln(f);
S:=0;
for i:=1 to n do
if (a[i].destination=destination) and
(a[i].timeofdeparture_h+a[i].timeofdeparture_m/100>=tm1) and
(a[i].timeofdeparture_h+a[i].timeofdeparture_m/100<=tm2) then
begin
Writeln(f,'номер поезда: ',a[i].numbertrain);
Writeln(f,'пункт назначения: ',a[i].destination);
Writeln(f,'время отправления: ',a[i].timeofdeparture_h,'-',a[i].timeofdeparture_m);
Writeln(f,'количество мест в св: ',a[i].sv) ;
Writeln(f,'количество мест в купе: ',a[i].compartment);
Writeln(f,'количество мест в плацкарте: ',a[i].plackart);
Writeln(f);
S:=S+1
end;
if S=0 then writeln(f,'таких поездов нет');
Close(f);
end;
|
а как эту процедуру для типизированного файла сделать?
|
|
|