Jak zczytac wartości wektora zapisane w pliku tekstowym?

0

Bardzo prosze o pomoc. Jesli mozna to prosze o gotowy algorytm. Z góry dziękuję.
Maciek

0

A może byś napsiał w jaki sposób zostały te wartości wektórów zapisane do tego pliku i w jakim programie piszesz .--Looknijcie na main Page - głópawa troche ale obleci ;-})

0

Wlasnie masz racje :) - pisze w delphi a wektor zostal wprowadzony tak:
program Project3;

{$APPTYPE CONSOLE}

uses
SysUtils;

type odczyt = array [1..10] of integer;

var

a:odczyt;
i,n:integer;
t:text;

begin
write ('n=');
readln (n);
for i:=1 to n do
begin
write ('podaj a[',i,'] = ');
readln (a[i]);
end;

Assignfile(t,'x.txt');
rewrite(t);
try
for i:=1 to n do
begin
writeln (t, a[i]);

 end;

finally
end ;
closefile(t) ;

readln ;

end.

0

A nie lepiej tak zrobić? :

type odczyt = array [1..10] of integer;

procedure zapisz;
var a: odczyt;
t: file of odczyt;
begin
Assignfile(t,'x.txt');
rewrite(t);
try
write(t, a);
finally
end ;
closefile(t) ;
end;

procedure odczytaj;
var a: odczyt;
t: file of odczyt;
begin
Assignfile(t,'x.txt');
rewrite(t);
try
read(t, a);
finally
end ;
closefile(t) ;
end;--Looknijcie na main Page - głópawa troche ale obleci ;-})

0

Wielkie dzieki za pomoc. Maciek

1 użytkowników online, w tym zalogowanych: 0, gości: 1