Bardzo prosze o pomoc. Jesli mozna to prosze o gotowy algorytm. Z góry dziękuję.
Maciek
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 ;-})
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.
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 ;-})
Wielkie dzieki za pomoc. Maciek