FXPELIVE
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
program z1_v14_k3;
Const
FileName='z1.txt';
d=20;
n=4;
Type
Stroka=Array[1..d] of Char; PtrStr=^Stroka;
Tekst=Array[1..n] of PtrStr;
Var
f:Text;
data:Tekst;
procedure ReadFromFile;
var i,j:Byte;
Begin
Assign(f,FileName);
{$I-} Reset(f); {$I+} {Writeln(IOResult=0);}
i:=1;
While (i<n) AND (not eof(f)) Do
begin
New(data[i]);
FillChar(data[i]^, sizeof(data[i]^), Chr(0)) ;
j:=1;
while (not eoln(f)) AND (j<d) Do
begin
Read(f,data[i]^[j]);
inc(j)
end;
if(sizeof(data[i]^)=0) then begin Dispose(data[i]); data[i]:=Nil; end;
inc(i);
end;
Close(f);
End;
procedure PrintToScreen;
var i,j:Byte;
Begin
i:=1;
While (i<n) Do
begin
j:=1;
While (j<d) Do
begin
Write(data[i]^[j]);
inc(j);
end;
if(data[i])<>Nil then Dispose(data[i]);
WriteLn;
inc(i);
end;
End;
BEGIN
ReadFromFile ;
PrintToScreen ;
ReadLn;
END. |
Всего записей: 348 | Зарегистр. 27-04-2006 | Отправлено: 19:56 19-03-2011 | Исправлено: FXPELIVE, 19:57 19-03-2011 |
|
