Pomoc oko datoteka u Pascalu

Možda vam je objašnjenje trebalo ranije, ali tek sada sam pročitala zadatak. Nije mi baš jasno šta hoćete da uradite, ali ono što vidim na prvi pogled to je da ste otvorili datoteku za čitanje (reset) a da niste ništa u nju upisali sa rewrite. Evo jednog lepog primera pa ga isprobajte:
Neka je data celobrojna datoteka f1 čije je fizičko ime "znaci.dat" u koju se upisuju brojevi. Napiši program kojim se upisuju brojevi u datoteku, a zatim čitaju i množe. Prikaži dobijeni proizvod svih pročitanih brojeva. Sledi program:

Code:

Program Proizvod;
Type broj=file of integer;
Var
        f1:broj;
        i,x,n,p:integer;
Begin
        Write('Unesi broj n: '); {Da bismo znali koliko brojeva unosimo u datoteku}
        Readln(n);
        Assign(f1,"znaci.dat");
        Rewrite(f1);               {otvaramo datoteku za upis}
        Writeln('Unesi brojeve u datoteku: ');
        For i:=1 To n  Do
          Begin
              Read(x);
              Write(f1,x)
          End;
       Close(f1);
       {ponovo otvaramo datoteku, ali sada za citanje sa reset}
       Reset(f1);
       p:=1;
       While not eof (f1) Do
         Begin
            Read(f1,x);
            p:=p*x
         End;
      Writeln('Proizvod procitanih brojeva je: ',p:8);
      Close(f1)
End.

Test primer:
Unesi broj n: 10
Unesi brojeve u datoteku:
1 2 1 1 3 3 5 5 2 2
Proizvod procitanih brojeva je: 1800

Toliko, probajte. Pozdrav

Forum kao aplikacija na telefonu

Srodne teme