164 lines
4.6 KiB
ObjectPascal
164 lines
4.6 KiB
ObjectPascal
/// Модуль электронного задачника PT for Exam
|
||
unit PT4Exam;
|
||
|
||
|
||
//------------------------------------------------------------------------------
|
||
// Модуль для подключения задачника PT for Exam
|
||
// Версия 2.3
|
||
// Copyright © 2014-2019 М.Э.Абрамян
|
||
//------------------------------------------------------------------------------
|
||
|
||
|
||
interface
|
||
|
||
procedure Task(name: string);
|
||
procedure FinExam;
|
||
|
||
/// Выводит строку S в разделе отладки окна задачника
|
||
procedure Show(S: string);
|
||
|
||
/// Выводит набор данных в разделе отладки окна задачника.
|
||
/// Вещественные числа выводятся в формате, настроенном
|
||
/// с помощью функции SetPrecision (по умолчанию 2 дробных знака).
|
||
/// Если аргументом является последовательность, то после вывода
|
||
/// ее элементов выполняется автоматический переход на новую строку.
|
||
procedure Show(params args: array of object);
|
||
|
||
/// Выполняет переход на новую экранную строку
|
||
/// в разделе отладки окна задачника
|
||
procedure ShowLine;
|
||
|
||
/// Выводит набор данных в разделе отладки окна задачника,
|
||
/// после чего выполняет переход на новую экранную строку.
|
||
/// Вещественные числа выводятся в формате, настроенном
|
||
/// с помощью функции SetPrecision (по умолчанию 2 дробных знака).
|
||
/// Если аргументом является последовательность, то после вывода
|
||
/// ее элементов выполняется автоматический переход на новую строку.
|
||
procedure ShowLine(params args: array of object);
|
||
|
||
/// Задает ширину W области вывода для числовых и строковых данных
|
||
/// в разделе отладки. Влияет на последующие вызовы функций
|
||
/// Show и ShowLine.
|
||
procedure SetWidth(W: Integer);
|
||
|
||
/// Настраивает формат вывода вещественных чисел в разделе отладки
|
||
/// окна задачника. Если N > 0, то число выводится в формате
|
||
/// с фиксированной точкой и N дробными знаками. Если N = 0,
|
||
/// то число выводится в экспоненциальном формате, число дробных
|
||
/// знаков определяется шириной поля вывода
|
||
procedure SetPrecision(N: integer);
|
||
|
||
/// Обеспечивает автоматическое скрытие всех разделов
|
||
/// окна задачника, кроме раздела отладки
|
||
procedure HideTask;
|
||
|
||
|
||
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
|
||
begin
|
||
s2 := 'null2.tst';
|
||
end;
|
||
Assign(input, s1);
|
||
Reset(input);
|
||
Assign(output, s2);
|
||
Rewrite(output);
|
||
end;
|
||
|
||
procedure FinExam;
|
||
begin
|
||
Sleep(100);
|
||
Close(input);
|
||
Close(output);
|
||
if s1 = 'null1.tst' then
|
||
Erase(input);
|
||
if s2 = 'null2.tst' then
|
||
Erase(output)
|
||
else
|
||
ToWin(s2);
|
||
NextTask := false;
|
||
Sleep(100);
|
||
end;
|
||
|
||
// == Версия 1.3. Дополнения ==
|
||
|
||
procedure Show(S: string);
|
||
begin
|
||
PT4.Show(S);
|
||
end;
|
||
|
||
procedure Show(params args: array of object);
|
||
begin
|
||
PT4.Show(args);
|
||
end;
|
||
|
||
procedure ShowLine;
|
||
begin
|
||
PT4.ShowLine;
|
||
end;
|
||
|
||
procedure ShowLine(params args: array of object);
|
||
begin
|
||
PT4.ShowLine(args);
|
||
end;
|
||
|
||
procedure SetWidth(W: Integer);
|
||
begin
|
||
PT4.SetWidth(W);
|
||
end;
|
||
|
||
procedure HideTask;
|
||
begin
|
||
PT4.HideTask;
|
||
end;
|
||
|
||
procedure SetPrecision(N: Integer);
|
||
begin
|
||
PT4.SetPrecision(N);
|
||
end;
|
||
|
||
|
||
initialization
|
||
|
||
finalization
|
||
|
||
FinExam;
|
||
|
||
end.
|