Курсовая работа. / РЯП_Ксю / Other / Bosk_tjp / proga / src / OUTTRIAD

unit outtriad;
interface

(* FIX 1 *)
(* add *)
uses uTrList;
(* end FIX 2 *)

var
num: Integer;

procedure initTriads;
function out_triad(var f_out: Text; name, op1, op2, op3: String): String;

implementation

procedure initTriads;
begin
num := 0;
end;
function out_triad(var f_out: Text; name, op1, op2, op3: String): String;
var
s: String[8];
(* FIX 2 *)
(* add *)
var triada: tTriadData;
(* end FIX 2 *)

begin
num := num + 1;
WriteLn(f_out,num:5, ' | ', name:7,' ',op1:4,' ',op2:4,' ',op3:4);
Str(num,s);
out_triad := '('+s+')';

(* FIX 3 *)
(* add *)
(* создаем объект "Триада" ... *)
createTriad(triada, name, op1, op2);
(* ...и запихиваем его в список триад *)
addTriadElemNum(TriadList, triada, num);
(* end FIX 3 *)

end;

end.