for i:=1 to 6 do
begin
readln(n);
if M[i, n] = 0 then continue;
for j := 1 to 5 do
M[i, j] := M[i, j] / M[i, n];
end;
ЗАДАЧЕЧКА!!!!
Дароф всем уважаемым программистам.
Прошу вашей помощи, точнее надеюсь, что вы сможете мне помочь!
Единственая задача в контрольной работе, которая мне не поддается и не дает спать по ночам.
ПОМОГИТЕ плиз.
Дана матрица из 6 строк и 5 столбцов. ДЛя каждой строки вводится номер элемента, на который необходимо разделить элементы этой строки. Полученную матрицу напечатать. Исключить деление на ноль.
За ранее благодарю за оказанный ХЕЛП.
Прошу вашей помощи, точнее надеюсь, что вы сможете мне помочь!
Единственая задача в контрольной работе, которая мне не поддается и не дает спать по ночам.
ПОМОГИТЕ плиз.
Дана матрица из 6 строк и 5 столбцов. ДЛя каждой строки вводится номер элемента, на который необходимо разделить элементы этой строки. Полученную матрицу напечатать. Исключить деление на ноль.
За ранее благодарю за оказанный ХЕЛП.
Цитата:
Originally posted by NAINA
Дароф всем уважаемым программистам.
Прошу вашей помощи, точнее надеюсь, что вы сможете мне помочь!
Единственая задача в контрольной работе, которая мне не поддается и не дает спать по ночам.
ПОМОГИТЕ плиз.
Дана матрица из 6 строк и 5 столбцов. ДЛя каждой строки вводится номер элемента, на который необходимо разделить элементы этой строки. Полученную матрицу напечатать. Исключить деление на ноль.
За ранее благодарю за оказанный ХЕЛП.
Дароф всем уважаемым программистам.
Прошу вашей помощи, точнее надеюсь, что вы сможете мне помочь!
Единственая задача в контрольной работе, которая мне не поддается и не дает спать по ночам.
ПОМОГИТЕ плиз.
Дана матрица из 6 строк и 5 столбцов. ДЛя каждой строки вводится номер элемента, на который необходимо разделить элементы этой строки. Полученную матрицу напечатать. Исключить деление на ноль.
За ранее благодарю за оказанный ХЕЛП.
Код:
Rebbit спасибо, что спас;)
Цитата:
Originally posted by NAINA
Rebbit спасибо, что спас;)
Rebbit спасибо, что спас;)
Да я Тебя еще не спас :D Ето ведь не вся програма. Но так как Ты другие задачи сделал, то думаю ввод/вивод и все остальное - ето уже не проблема.
Да не не проблема, просто ни как не могла сообразить, а щас уже разобралась, благодаря те.
Цитата:
Originally posted by Rebbit
Код:
for i:=1 to 6 do
begin
readln(n);
if M[i, n] = 0 then continue;
for j := 1 to 5 do
M[i, j] := M[i, j] / M[i, n];
end;
begin
readln(n);
if M[i, n] = 0 then continue;
for j := 1 to 5 do
M[i, j] := M[i, j] / M[i, n];
end;
не совсем верно ведь после того как i = n деление будет происходить на 1
соотв-но надо
for i:=1 to 6 do
begin
readln(n);
if M[i, n] = 0 then continue;
divisor := M[i, n];
for j := 1 to 5 do
M[i, j] := M[i, j] / divisor;
end;
Цитата:
Originally posted by amidDK
не совсем верно ведь после того как i = n деление будет происходить на 1
соотв-но надо
for i:=1 to 6 do
begin
readln(n);
if M[i, n] = 0 then continue;
divisor := M[i, n];
for j := 1 to 5 do
M[i, j] := M[i, j] / divisor;
end;
не совсем верно ведь после того как i = n деление будет происходить на 1
соотв-но надо
for i:=1 to 6 do
begin
readln(n);
if M[i, n] = 0 then continue;
divisor := M[i, n];
for j := 1 to 5 do
M[i, j] := M[i, j] / divisor;
end;
Проверку нужно ставить и на значение n. Оно должнл быть в диап. 1..5.
Код:
for i:=1 to 6 do
begin
readln(n);
if n < 1 or n > 5 then continue;
if M[i, n] = 0 then continue;
divisor := M[i, n];
for j := 1 to 5 do
M[i, j] := M[i, j] / divisor;
end;
begin
readln(n);
if n < 1 or n > 5 then continue;
if M[i, n] = 0 then continue;
divisor := M[i, n];
for j := 1 to 5 do
M[i, j] := M[i, j] / divisor;
end;
Цитата:
Originally posted by 123tk
Проверку нужно ставить и на значение n. Оно должнл быть в диап. 1..5.
Проверку нужно ставить и на значение n. Оно должнл быть в диап. 1..5.
Код:
for i:=1 to 6 do
begin
readln(n);
if i < 1 or i > 5 then continue;
if M[i, n] = 0 then continue;
divisor := M[i, n];
for j := 1 to 5 do
M[i, j] := M[i, j] / divisor;
end;
begin
readln(n);
if i < 1 or i > 5 then continue;
if M[i, n] = 0 then continue;
divisor := M[i, n];
for j := 1 to 5 do
M[i, j] := M[i, j] / divisor;
end;
Мда... написал я....
Ну уж извеняйте. Там где у меня есть доступ до интернета нет доступа до компиляторов. Потому такое и получатся.
Цитата:
Originally posted by Rebbit
Мда... написал я....
Ну уж извеняйте. Там где у меня есть доступ до интернета нет доступа до компиляторов. Потому такое и получатся.
Мда... написал я....
Ну уж извеняйте. Там где у меня есть доступ до интернета нет доступа до компиляторов. Потому такое и получатся.
да ладно не парься - каждый могет немного ошибиться
я сам буквально недавно почти такую же ошибку совершил - помогал делать метод Гаусса и вот когда вычитаешь i-ю строку умноженную на коэф. a[j, i] из j-ой умножал на сам эл. матрицы и соотв. при прохождении i-го столбика вычитал уже нули. очень долго искал эту ошибку так как корни получались почти правильные но с некоторой погрешностью - видать хорошая матрица попалась:)