1) формировка 5-7 елементов массива типа запись с полями указаными в таблице, с последовательным их записью в типизированый файл
2)вывод на екран елементы масива записи в соответствии с задание
3)задание:Ведомости про отказ линий связи: направление канала связи, дата отказов(по шаблону ДД:ММ:РР), время отказа : начало - конец (по шаблону Ч:МИН:С)ж
распечатать даные про всеотказы, длительность которых не меньше 10 минут
заранее благодарен за вашу помощь
unit Unit1;
interface
uses SysUtils;
type line=record
napravlenie:string[60];
data:integer;
nachalo:string[8];
konec:string[8];
end;
var f_line:file of line;
b:line;
U1:array[1..10] of line; kol:integer;
Priznak:char;
Procedure sozdat;
Procedure poisk;
implementation
procedure sozdat;
var Priznak:char;
begin
kol:=0;
Repeat
kol:=kol+1;
writeln('input napravlenie'); readln(U1[kol].napravlenie);
with U1[kol] do
begin
writeln('input data'); readln(data);
writeln('input nachalo'); readln(nachalo);
writeln('input konec'); readln(konec);
writeln('Prodolgut? (Y/N)');
readln(Priznak);
end;
Until Priznak='N'
end;
procedure poisk;
var i:integer;
al:byte;
s1,s2:string[2];
s1_i,s2_i:byte;
err:byte;
nachalo:string[8];
konec:string[8];
begin
s1:=nachalo[4]+nachalo[5];
s2:=konec[4]+konec[5];
val(s1,s1_i,err);
val(s2,s2_i,err);
al:=s2_i-s1_i;
for i:=1 to kol do
begin
if al>=10 then
writeln(U1[i].napravlenie,' ',U1[i].data,' ',U1[i].nachalo,' ',U1[i]. konec);
end;end;
end.
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,
Unit1;
var f_line:file of line;
fio:string;
begin
{ TODO -oUser -cConsole Main : Insert code here }
assign (f_line,'Z:\files\gr.dat');
rewrite(f_line);
sozdat;
closefile(f_line);
reset(f_line);
poisk;
closefile(f_line);
readln;
readln;
end.
Сообщение отредактировано: B&M -