Дана матрица А(5,3)
1. Найти строку, содержащую минимальный элемент матрицы
2. Найденную строку поменять местами с 4-ой строкой.
программа для матриц(помогите разобраться)
помогите найти ошибку
program ;
const n=5;m=3;
var A : array [1..n,1..m] of real;
i,j,imin:integer;
Sum,min,C:real;
begin
writeln ('ââåäèòå ìàòðèöó A(5;3)');
for i:=1 to n do
for j:=1 to m do
begin
writeln ('A[',i,',',j,']');
readln (A[i,j]);
end;
writeln ('èñõîäíàÿ ìàòðèöà');
for i:=1 to n do
begin
for j:=1 to m do
write (A[i,j]:2:0,' ');
writeln;
end;
min:=A[5,3];
for i:=1 to n do
for j:=1 to m do
if A[i,j]<min then
begin
min:=A[i,j];
imin:=i;
end;
writeln ('min:= ',min:2:0, 'imin:=', imin:2:0);
if imin<>4 then
for j:=1 to m do
begin
C:=A[imin,j];
A[imin,j]:=A[4,j];
A[4,j]:=C
end;
writeln ('ïîëó÷åííàÿ ìàòðèöà');
for i:=1 to n do
begin
for j:=1 to m do
Write(A[i,j]:2:0,' ');
Writeln;
end;
end.
program ;
const n=5;m=3;
var A : array [1..n,1..m] of real;
i,j,imin:integer;
Sum,min,C:real;
begin
writeln ('ââåäèòå ìàòðèöó A(5;3)');
for i:=1 to n do
for j:=1 to m do
begin
writeln ('A[',i,',',j,']');
readln (A[i,j]);
end;
writeln ('èñõîäíàÿ ìàòðèöà');
for i:=1 to n do
begin
for j:=1 to m do
write (A[i,j]:2:0,' ');
writeln;
end;
min:=A[5,3];
for i:=1 to n do
for j:=1 to m do
if A[i,j]<min then
begin
min:=A[i,j];
imin:=i;
end;
writeln ('min:= ',min:2:0, 'imin:=', imin:2:0);
if imin<>4 then
for j:=1 to m do
begin
C:=A[imin,j];
A[imin,j]:=A[4,j];
A[4,j]:=C
end;
writeln ('ïîëó÷åííàÿ ìàòðèöà');
for i:=1 to n do
begin
for j:=1 to m do
Write(A[i,j]:2:0,' ');
Writeln;
end;
end.
Так а что именно не правильно работает ? Я просмотрел прогу, вроде бы все правильно, скажите какие ошибки выдает, или что происходит, а еще лучше выложите скриншот работы программы
Пиши исправлю твои ошибки
ICQ: 410691984
ICQ: 410691984
может с прогой что то не то.
Она не компилирует
Она не компилирует
для начала бы неплохо было узнать под какой версией паскаля нужна реализация :-) судя по структуре кода (начиная с 1-ой строки) можно сделать вывод что вы не знает вообще его :-) после слова program обычно пишется имя программы а у вас его нет, это во первых далее напишите нормальные слова в строках writeln, мне интересно кто вообще код писал странно к массиву обращаетесь то в квадратных скобках то в круглых, исходя только из этих ошибок я не уверен что программа вообще верно работает, лучше бы ещё написали полную формулировку программы!!
И всё же если нужно исправить программу, либо переписать с нуля готов помочь, но не за бесплатно
ICQ: 410691984
P.S. Либо если не хотите платить за то что на вас помогут, и потратят своё время, то изучите среду разработки Pascal она не сильно сложна :-)
И всё же если нужно исправить программу, либо переписать с нуля готов помочь, но не за бесплатно
ICQ: 410691984
P.S. Либо если не хотите платить за то что на вас помогут, и потратят своё время, то изучите среду разработки Pascal она не сильно сложна :-)
Я хз где ты тут увидел обращение к массиву в круглых скобках, там в Writeln есть, но это как бы не имеет значения, если что пиши мне, разберемся, сделаю нашару
588002847
588002847