Паскаль Задача на двумерный массив

[Garold]

Паскаль Задача на двумерный массив

Суть задачи:
Посмотреть вложение Текст задачи.doc
Помогите, пожалуйста, с решением, очень надо.
Заранее всем огромное спасибо!

 

[Vladimir_S]

Как-то так:

Const
N= ;
M= ;
A= ;
B= ;
{ ЗАДАТЬ ЗНАЧЕНИЯ КОНСТАНТ В ЯВНОМ ВИДЕ ! }

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
Write('X[',i:3,'] = '); ReadLn(X);
FOR j:=1 TO M DO
Write('Y[',j:3,'] = '); ReadLn(Y[j]);


FOR i:=1 TO N DO
FOR j:=1 TO M DO
IF (ABS(Sin(X))>=A) AND (ABS(Sin(X))<=B) THEN
F[i,j]:=SQRT(ABS(Sin(X)-Exp(Y[j])))
ELSE
F[i,j]:=3*Sin(1-Log3(Y[j]));

FOR j:=1 TO M DO
BEGIN
S[j]:=0;
FOR i:=1 TO N DO
S[j]:=S[j]+F[i,j];
END;

END.

Вывод данных организуйте сами!

 

[Garold]

Огромное спасибо, Vladimir_S! Очень помог!

 

[Garold]

Я немного преобразовал предложенный Vladimir_S код, но все равно ничего не получилось с выводом данных. Посмотреть вложение Massiv.txt Подскажите, пожалуйста, что еще необходимо сделать, чтобы выполнить задание до конца?

 

[Vladimir_S]

Вот (проверено):

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); 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:6:2);
writeln;
for i:=1 to N do begin
write(x:6:2, '|');
for j:=1 to M do begin
if (abs(sin(X))>=A) and (abs(sin(X))<=B) then
F[i,j]:=sqrt(abs(sin(X-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.

 

[Garold]

Еще раз огромное спасибо, Vladimir_S! Очень выручил.

 

[Garold]

Подскажите, пожалуйста, как будет выглядеть блок-схема вот этого фрагмента программного кода:

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

Заранее огромное спасибо!

 

[AlexZir]

Блок-схема

 

[Garold]

Спасибо большое, AlexZir!
Ребята, выручайте! Не могу составить блок-схему вот на этот участок кода:
for j:=1 to M do
Write(j:6);
Writeln;
for j:=1 to M do
Write(S[j]:6:2);
Writeln;
Readln;
Помогите, пожалуйста, с этим "кусочком". Буду очень вам благодарен!

 

[AlexZir]

Блок-схема похожа на предыдущую, но убран ввод в цикле и добавлен вывод пустой строки (п.с.)

 

[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); 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:6:2);
writeln;
for i:=1 to N do begin
write(x:6:2, '|');
for j:=1 to M do begin
if (abs(sin(X))>=A) and (abs(sin(X))<=B) then
F[i,j]:=sqrt(abs(sin(X-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.

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