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[i]);
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[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]));

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[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.

Garold

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

Garold

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

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;

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

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

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

Миниатюры

 

__________________
Убить всех человеков!