Question

Programowanie we Free Pascal -błagam WAS! :)

Ja nie wiem o co wgl chodzi w tych zadaniach o plikach w pascalu, a zadanie mam takie:

Napisac program ktory spyta o nazwe pliku.
Jesli taki plik istnieje to go wykasuje i zalozy nowy o takiej nazwie.
Nastepnie spyta o 5 nazwisk i zapisze je do pliku w oddzielnych linijkach.
Nastepnie stworzy drugi plik w ktorym nazwiska beda w odwrotnej kolejnosci.

Answer 1

//licze na naj...

 

//nie podałas/es lokalizacji wiec pliki są zapisywane tam gdzie masz

//zainstalowanego Pascala u mnie to C:\FPC\2.0.4\bin\i386-win32

 

 

Program nazwa;
uses crt;
var
napis:string;
plik:text;
x:integer;
nazwisko:string;
tablica:array[1..5] of string;
podaj:string;


begin
clrscr;

writeln('Podaj nazwe pliku: ');
readln(podaj);

  writeln();


 for x:=1 to 5 do
begin
writeln('Podaj nazwisko: ',x);
readln(nazwisko);
tablica[x]:=nazwisko;
end;

assign(plik,podaj+'.txt');
rewrite(plik);
for x:=1 to 5 do
begin
writeln(plik,tablica[x]);
end;

close(plik);



assign(plik,'drugi.txt');
rewrite(plik);
for x:=5 downto 1 do
begin
writeln(plik,tablica[x]);
end;

close(plik);



readln;
end.