14
Object Pascal : , .
.
, , . , .
( #13) Enter WriteLn .
#26, ^Z.
. .
Object Pascal .
:
Var < >: TextFile;
,
Var F1,F2: TextFile
, , F1 F2, .
:
AssignFile (< >, '< >') . :
- Con , .. ;
- Prn ;
- Nul "" . Nul , .
Append (< >) () . , , .
Rewrite (< >) . , .
Reset (< >) . , , .
Read (< >, < >) , . , .
- , ( EOLn, EOF).
- , , , EOLn EOF.
- EOLn EOF, .
. Read , .
ReadLn (< >, < >) Read , , .
|
|
ReadLn (< >) .
Write (< >,< >) . , , .
WriteLn (< >, < >) Write , EOLn.
CloseFile (< >) , , .
, , , .. , . , .
example.txt :
:
2 + 3.501 :
, , .
:
Var
N1,N2,res: Double; { }
StrSgn: String [3]; { }
F: TextFile; { }
Begin
AssignFile(F,'example.txt'); { F example.txt}
Reset(F); { example.txt }
ReadLn(F); { ""}
Read(F,N1,StrSgn,N2); { }
Append(F); { }
WriteLn(F); { () }
Case Sgn[2] of { }
+: res:= N1+N2;
-: res:= N1-N2;
*: res:= N1*N2;
/: res:= N1/N2;
end;
Write(F, FormatFloat('#.###E+00', res));
CloseFile(F);
end;
example.txt :
pp:
2+3.5E01 :
3.7E+01