Witam, czy istnieje możliwość wykonania w Pascalu takiej operacji jak w temacie.
Przykładowo mam program, który wygląda tak:
var a : array[1..100] of integer;
ile,i : byte;
procedure ztab_do_pliku(n: byte);
var plik : Text;
i : byte;
begin
Assign(plik, 'C:\Users\User\Desktop\Pliki Pascal\wynik.out');
Rewrite(plik);
for i:=1 to n do
begin
writeln(plik,a[i]);
end;
Close(plik);
end;
begin
readln(ile);
for i:=1 to ile do
readln(a[i]);
ztab_do_pliku(ile);
end.
A chciałbym, żeby wyglądał tak:
var a : array[1..100] of integer;
ile,i : byte;
procedure ztab_do_pliku(n: byte; nazwa_pliku: string); {dodatkowy parametr z nazwa pliku}
var plik : Text;
i : byte;
begin
Assign(plik, 'C:\Users\User\Desktop\Pliki Pascal\nazwa_pliku'); {zmienna "nazwa_pliku" dająca nazwe}
Rewrite(plik);
for i:=1 to n do
begin
writeln(plik,a[i]);
end;
Close(plik);
end;
begin
readln(ile);
for i:=1 to ile do
readln(a[i]);
ztab_do_pliku(ile,'wynik.out'); {nazwa jako dodatkowy parametr przy wywolaniu procedury}
end.
Nie wiem czy coś takiego jest możliwe, a jeśli jest to nie wiem w jaki sposób wkleić zmienną "nazwa_pliku" w ścieżkę, żeby kompilator to rozumiał.