Контрольная работа: Язык программирования Turbo Pascal

Writeln(ff,'Kolichestvo nuley: ',null(b));

Close(ff);

Writeln('Matrica uspeshno sohranena v faile ',path);

end;

(* 3: begin{Printer}

AssignDefPrn(fp);

for i:=1 to k1 do

for j:=1 to k2 do

Writeln(fp, b[i,j], ' ');

if KeyPressed and (ReadKey = #27) then

begin

AbortPrn(Prn);

Break;

end;

Close(fp);

end;*){Printer}

end;{case}

end;{Procedure}

end.

Текст вызывающей программы:

uses crt,modul1;

var A,c:matr;

f1,f2:boolean;

procedure menu;

var choise,cinp:char;

inp,e:integer;

begin

clrscr;