записи, посмотрите и исправьте ошибки плиз Опции

[B&M]

В програме предвидить создание таких подпрограм процедур
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 - 24.12.2008 22:39

[Feagor]

код в тэги плз