Question

Napisz program w Turbo Pascalu, który utworzy na dysku C: plik elementowy liczby.dat, zawierający 5 liczb całkowitych wczytanych z klawiatury.
Wypisz te liczby na ekranie.

Answer 1

program nazwa;
var
        plik:file of integer;
        liczba:integer;
        x:integer;
begin
        assign(plik,'C:\liczby.dat');
        rewrite(plik);
                for x:=1 to 5 do
                begin
                        writeln('Podaj liczbe ',x,': ');
                        readln(liczba);
                        write(plik,liczba);
                end;
        close(plik);

        assign(plik,'C:\liczby.dat');
        reset(plik);
                while not eof(plik) do
                begin
                        read(plik,liczba);
                        write(liczba,',');
                end;
        close(plik);
readln;
end.

 

http://wklej.org/id/961195/