Блок-схема

[PowerPoint]

(Паскаль)Нужна схема для -
program lab14;
uses crt;
var x:array[1..4,1..4] of real;
i,j:byte; y:array[1..4,1..4] of real;
begin
clrscr;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
x[i,j]:=exp(ln(i/3))*sin(j)/cos(j);
write(x[i,j]:7:2,' ');
end;
writeln;
end;
writeln;
for i:=1 to 4 do begin
for j:=1 to 4 do begin
y[i,j]:=x[i,j]*x[i,j];
write(y[i,j]:4:2, ' ');
end;
writeln;
end;
readln
end.

[BDA]

FCEditor Вам в помощь.

[Вадим Мошев]

www.fcetitor.com