Garold

Посмотрите, пожалуйста, правильно ли составлена блок-схема к программе?
Код программы:
Program Massiv;

const
N=3;
M=5;
A=0;
B=1;

var
X:array[1..N] of real;
Y,S:array[1..M] of real;
F:array[1..N, 1..M] of real;
i,j:byte;

function log3(x:real):real;
begin
log3:=ln(x)/ln(3);
end;

begin

for i:=1 to N do begin
write('X[',i:3,']=');
readln(X[i]); end;
for j:=1 to M do begin
write('Y[',j:3,']=');
readln(Y[j]); end;

write(' X\Y |');
for i:=1 to M do write(y[i]:6:2);
writeln;
for i:=1 to N do begin
write(x[i]:6:2, '|');
for j:=1 to M do begin
if (abs(sin(X[i]))>=A) and (abs(sin(X[i]))<=B) then
F[i,j]:=sqrt(abs(sin(X[i]-exp(Y[j])))) else
F[i,j]:=3*sin(1-log3(Y[j]));
Write(F[i,j]:6:2);
end;
Writeln;
end;

Writeln;
for j:=1 to M do
begin
S[j]:=0;
for i:=1 to N do
S[j]:=S[j]+F[i,j];
end;
for j:=1 to M do
Write(j:6);
Writeln;
for j:=1 to M do
Write(S[j]:6:2);
Writeln;

Readln;

end.

Блок-схема во вложениях.

Вложения

	Блоксхемачасть1.zip (19.1 Кб, 12 просмотров)
	Блоксхемачасть2.zip (12.1 Кб, 11 просмотров)