const
n = 5;
var
x: array[1..n,1..n] of integer;
Y: array[1..n,1..n] of integer;
i,j: integer;
begin
for i := 1 to n do
for j := 1 to n do
begin
write('x[',i,',',j,']=');
readln(x[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to n do write(x[i,j],' ');
writeln;
end;
begin
for i := 1 to n do
for j := 1 to n do
If x[i,j]>0 then
y[i,j]:=2*x[i,j];
else
if x[i,j]=0 then
y[i,j]:=0
else
y[i,j]:=-x[i,j];
write(y[i,j]);
writeln;
end;
end.
Нужно подкорректировать код, а то он не правильно работает
Добрый день. Прошу помощи. Давно не работал с паскалем, а тут с племяницей нужно решить задачу, и у нас все не получается.
Задача:
Ввести массив Х (5, 5). Вычислить элементы массива Y по формуле (Система):
Вывести исходный и результирующий массивы.
Код вставляю, понимаю, что делаем что-то не то, но не можем понять что. Давно с Паскалем не работал.
Задача:
Ввести массив Х (5, 5). Вычислить элементы массива Y по формуле (Система):
Вывести исходный и результирующий массивы.
Код вставляю, понимаю, что делаем что-то не то, но не можем понять что. Давно с Паскалем не работал.
Код:
Код:
for i := 1 to n do
begin
for j := 1 to n do
begin
If x[i,j]>0 then
y[i,j]:=2*x[i,j];
else
if x[i,j]=0 then
y[i,j]:=0
else
y[i,j]:=-x[i,j];
write(y[i,j]);
end;
writeln;
end;
begin
for j := 1 to n do
begin
If x[i,j]>0 then
y[i,j]:=2*x[i,j];
else
if x[i,j]=0 then
y[i,j]:=0
else
y[i,j]:=-x[i,j];
write(y[i,j]);
end;
writeln;
end;
Цитата: wanja
Код:
for i := 1 to n do
begin
for j := 1 to n do
begin
If x[i,j]>0 then
y[i,j]:=2*x[i,j];
else
if x[i,j]=0 then
y[i,j]:=0
else
y[i,j]:=-x[i,j];
write(y[i,j]);
end;
writeln;
end;
begin
for j := 1 to n do
begin
If x[i,j]>0 then
y[i,j]:=2*x[i,j];
else
if x[i,j]=0 then
y[i,j]:=0
else
y[i,j]:=-x[i,j];
write(y[i,j]);
end;
writeln;
end;
Огромное вам спасибо.