Програмування Pascal, Детальна інформація
Програмування Pascal
{******************** Печать исходной матрицы к зад. №1 ******************}
procedure printmatrix;
var i,j,x,y:integer;
begin
setcolor (12);
rectangle (49,49,131,131);
for i:=1 to 8 do
begin
for j:=1 to 8 do
begin
x:=41+i*10;
y:=41+j*10;
if matr [i,j]=0 then
setfillpattern (full,white)
else setfillpattern (full,black);
bar (x,y,x+8,y+8);
end;
end;
end;
{*************** Процедура подщета кол-ва прямоуг. ********************}
procedure count;
var i,j,num,ti,tj:integer;
yes,ok:boolean;
st:string;
begin
num:=0;
yes:=false;
ok:=false;
for j:=1 to 8 do
begin
procedure printmatrix;
var i,j,x,y:integer;
begin
setcolor (12);
rectangle (49,49,131,131);
for i:=1 to 8 do
begin
for j:=1 to 8 do
begin
x:=41+i*10;
y:=41+j*10;
if matr [i,j]=0 then
setfillpattern (full,white)
else setfillpattern (full,black);
bar (x,y,x+8,y+8);
end;
end;
end;
{*************** Процедура подщета кол-ва прямоуг. ********************}
procedure count;
var i,j,num,ti,tj:integer;
yes,ok:boolean;
st:string;
begin
num:=0;
yes:=false;
ok:=false;
for j:=1 to 8 do
begin
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021