Question

Potrzebuje PILNE zadanie z programowania ! PILNE !!!

Turbo pascal -praca z plikami

Treść zadania :

Napisz Program , który najpierw zapisze dowolny wpisany przez ciebie tekst a później go wczyta (otworzy) .

Answer 1

Proszę:

Const Plik = '/plik.txt'; 

Var F: TextFile;

    Line: AnsiString; 

Begin

 Try

  AssignFile(F, Plik);

  Rewrite(F);

  Line := 'Hello World!'; 

  Writeln(F, Line);

  Flush(F); 

  CloseFile(F); 

 Except

  Writeln('Nastapil wyjatek!');

  //tutaj możnaby się pokusić o wczytanie EIP i paru innych rzeczy, ale sobie to darujemy 

 End;

 

 Try

  AssignFile(F, Plik);

  Reset(F);

  Readln(F, Line);

  CloseFile(F);

  Writeln(Line); 

 Except

  Writeln('Nastapil wyjatek!'); 

 End; 

End. 

 

PS: przekaż nauczycielowi, że TP używano ponad 30 lat temu i aby uczył was prawdziwego Pascala, a nie tego (za przeproszeniem) gó*na, jakim (w 21 wieku) jest Turbo Pascal.