Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

ЗАДАЧЕЧКА!!!!

12K
18 ноября 2005 года
NAINA
12 / / 18.11.2005
Дароф всем уважаемым программистам.
Прошу вашей помощи, точнее надеюсь, что вы сможете мне помочь!
Единственая задача в контрольной работе, которая мне не поддается и не дает спать по ночам.
ПОМОГИТЕ плиз.

Дана матрица из 6 строк и 5 столбцов. ДЛя каждой строки вводится номер элемента, на который необходимо разделить элементы этой строки. Полученную матрицу напечатать. Исключить деление на ноль.

За ранее благодарю за оказанный ХЕЛП.
276
18 ноября 2005 года
Rebbit
1.1K / / 01.08.2005
Цитата:
Originally posted by NAINA
Дароф всем уважаемым программистам.
Прошу вашей помощи, точнее надеюсь, что вы сможете мне помочь!
Единственая задача в контрольной работе, которая мне не поддается и не дает спать по ночам.
ПОМОГИТЕ плиз.

Дана матрица из 6 строк и 5 столбцов. ДЛя каждой строки вводится номер элемента, на который необходимо разделить элементы этой строки. Полученную матрицу напечатать. Исключить деление на ноль.

За ранее благодарю за оказанный ХЕЛП.



 
Код:
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;
12K
18 ноября 2005 года
NAINA
12 / / 18.11.2005
Rebbit спасибо, что спас;)
276
18 ноября 2005 года
Rebbit
1.1K / / 01.08.2005
Цитата:
Originally posted by NAINA
Rebbit спасибо, что спас;)


Да я Тебя еще не спас :D Ето ведь не вся програма. Но так как Ты другие задачи сделал, то думаю ввод/вивод и все остальное - ето уже не проблема.

12K
21 ноября 2005 года
NAINA
12 / / 18.11.2005
Да не не проблема, просто ни как не могла сообразить, а щас уже разобралась, благодаря те.
15K
25 ноября 2005 года
amidDK
2 / / 25.11.2005
Цитата:
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;



не совсем верно ведь после того как 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;

2.2K
25 ноября 2005 года
123tk
57 / / 28.06.2003
Цитата:
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;

Проверку нужно ставить и на значение 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;
276
25 ноября 2005 года
Rebbit
1.1K / / 01.08.2005
Цитата:
Originally posted by 123tk
Проверку нужно ставить и на значение 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;


Мда... написал я....
Ну уж извеняйте. Там где у меня есть доступ до интернета нет доступа до компиляторов. Потому такое и получатся.

15K
25 ноября 2005 года
amidDK
2 / / 25.11.2005
Цитата:
Originally posted by Rebbit
Мда... написал я....
Ну уж извеняйте. Там где у меня есть доступ до интернета нет доступа до компиляторов. Потому такое и получатся.



да ладно не парься - каждый могет немного ошибиться
я сам буквально недавно почти такую же ошибку совершил - помогал делать метод Гаусса и вот когда вычитаешь i-ю строку умноженную на коэф. a[j, i] из j-ой умножал на сам эл. матрицы и соотв. при прохождении i-го столбика вычитал уже нули. очень долго искал эту ошибку так как корни получались почти правильные но с некоторой погрешностью - видать хорошая матрица попалась:)

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог