65 lines
1,010 B
ObjectPascal
65 lines
1,010 B
ObjectPascal
|
unit PT4Exam;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
procedure Task(name: string);
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses
|
||
|
|
PT4, System.IO, System.Text;
|
||
|
|
|
||
|
|
procedure ToWin(s: string);
|
||
|
|
begin
|
||
|
|
var fs: StreamReader := new StreamReader(s);
|
||
|
|
var fs1: StreamWriter := new StreamWriter('$$.tmp', false, Encoding.Default);
|
||
|
|
fs1.Write(fs.ReadToEnd);
|
||
|
|
fs.Close;
|
||
|
|
fs1.Close;
|
||
|
|
System.IO.File.Delete(s);
|
||
|
|
System.IO.File.Move('$$.tmp',s);
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
NextTask: boolean := False;
|
||
|
|
s1, s2: string;
|
||
|
|
|
||
|
|
procedure Task(name: string);
|
||
|
|
var
|
||
|
|
f: textfile;
|
||
|
|
begin
|
||
|
|
PT4.Task(name);
|
||
|
|
if NextTask then
|
||
|
|
exit;
|
||
|
|
NextTask := True;
|
||
|
|
GetS(s1);
|
||
|
|
GetS(s2);
|
||
|
|
if not FileExists(s1) then
|
||
|
|
begin
|
||
|
|
s1 := 'null1.tst';
|
||
|
|
Assign(f, s1);
|
||
|
|
Rewrite(f);
|
||
|
|
Close(f);
|
||
|
|
end;
|
||
|
|
if s2 = '' then
|
||
|
|
s2 := 'null2.tst';
|
||
|
|
Assign(input, s1);
|
||
|
|
Reset(input);
|
||
|
|
Assign(output, s2);
|
||
|
|
Rewrite(output);
|
||
|
|
end;
|
||
|
|
|
||
|
|
initialization
|
||
|
|
|
||
|
|
finalization
|
||
|
|
Close(input);
|
||
|
|
Close(output);
|
||
|
|
if s1 = 'null1.tst' then
|
||
|
|
Erase(input);
|
||
|
|
if s2 = 'null2.tst' then
|
||
|
|
Erase(output)
|
||
|
|
else
|
||
|
|
ToWin(s2);
|
||
|
|
|
||
|
|
end.
|