Блок-схема

program test;
uses
crt;
const n=5;
type Tarr=array[1..n, 1..n] of integer;
procedure printArr(x:Tarr; s:string);
var i,j:byte;
begin
writeln(s);
for i:=1 to n do
begin
for j:=1 to n do
begin
write(x[i,j]:4);
end;
writeln;
end;
end;
procedure insertDataByPC(var x:Tarr);
var
i,j:byte;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
x[i,j]:=random(2) + 1;
end;
end;
end;
function magic(x:Tarr):boolean;
var
number:integer;
i,j:byte;
tmp:integer;
begin
b:=true;
number:=0;
for i:=1 to n do
begin
number:=number + x[1,i];
end;
for i:=2 to n do
begin
tmp:=0;
for j:=1 to n do
begin
tmp:=tmp + x[i,j];
end;
if(tmp <> number) then
begin
b:=false;
break;
end;
end;
for i:=1 to n do
begin
tmp:=0;
for j:=1 to n do
begin
tmp:=tmp + x[j,i];
end;
if(tmp <> number) then
begin
b:=false;
break;
end;
end;
if(b=false) then
begin
magic:=false;
end
else
begin
magic:=true;
end;
end;
var
arr:Tarr;
begin
clrscr;
randomize;
insertDataByPC(arr);
textColor(red);
printArr(arr, 'Начальный массив имеет вид: ');
textColor(green);
if(magic(arr)) then
begin
writeln('Поздравляю! Данная матрица магический квадрат');
end
else
begin
writeln('Это не магический квадрат');
end;
end;
readln;
end.

Может я по своей быстрее сделаю схему?

0

вот детали блок схемы. По коду разберешься что и куда вставить. Не разберешься. Скажи обьясню

Вложения

схем.rar (108.9 Кб, 332 просмотров)

0

Огромное спасибо народ, выручили

Народ помогите построить блок-схему. желательно в visio.
вот сама задаче

Даны натураьное число n, действительное число x.Вычислить:


Зарание благодарен!

Миниатюры

 

0

N@tali,
Здравствуйте,вы бы не могли помочь построить блок схему к программе...

Добавлено через 1 минуту
N@tali, uses graph,crt;
var
a:integer;
procedure delay(x:longint);
var
t:longint;
begin
t:=MemL[Seg0040:$6c];
while MemL[Seg0040:$6c]<t+x
do;
end;
procedure kvadr;
var
x0,y0,t,i,k,gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
x0:=getmaxx div 2;
y0:=getmaxy div 2;
t:=3;
k:=30;
for i:=1 to 4 do
begin
setfillstyle(1,t);
bar(x0-k,y0-k,x0+k,y0+k);
delay(25);
if i=4 then break;
t:=t+3;
k:=k-5;
end;
delay(25);
setfillstyle(4,t);
bar(x0-k,y0-k,x0+k,y0+k)
end;
procedure kru;
var
x0,y0,dx,dy,gd,gm:integer;
n: double;
size:word;
pointer;
begin
gd:=detect;
initGraph(gd,gm,'');
x0:=getmaxx;
y0:=getmaxy;
setcolor(4);
setfillstyle(1,4);
PieSlice(x0-15,y0-15,0,360,15);
size:=imagesize(x0-30,y0-30,x0,y0);
getmem(p,size);
getimage(x0-30,y0-30,x0,y0,p^);
setfillstyle(1,0);
bar(0,0,x0,y0);
dx:=x0-15;
dy:=y0-15;
repeat
putimage(dx,dy,p^,xorput);
delay(10);
putimage(dx,dy,p^,xorput);
dx:=dx-trunc(10*(x0/y0));
dy:=dy-10;
if(dx<=15)then begin dx:=x0-15;dy:=y0-15 end;
if (dy<=15)then begin dy:=y0-15;dx:=x0-15 end;
until keypressed;
freemem(p,size)
end;
begin
clrscr;
readln(a);
if ((a mod 2)=0) then kvadr
else kru;
readln;
closegraph
end.

0