Zmienna w ścieżce pliku, jako jego nazwa.

0

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ł.

0
Assign(plik, 'C:\Users\User\Desktop\Pliki Pascal\' + nazwa_pliku );

???? poczytaj o podstawach programowania. i nie pytaj o wszystko na forum tylko napierw sam szukaj informacji. zapoznaj sie z tym: http://4programmers.net/Forum/Delphi_Pascal/39079-Zanim_cos_napiszesz_-_CZYTAJ_TO a najlepiej wydrukuj i powies nad łóżkiem.

0

Dzięki za szybką odpowiedź.

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