Курсовая работа. / РЯП_Ксю / 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.