Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.03.2014, 22:55   #1
FYNZIK
Пользователь
 
Регистрация: 10.02.2014
Сообщений: 47
По умолчанию массив каждый ненулевой элемент aij, что парную сумму i + j. заменить на обратный

каждый ненулевой элемент aij, что парную сумму i + j. заменить на обратный
FYNZIK вне форума Ответить с цитированием
Старый 18.03.2014, 23:03   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

извините, но лично для меня смысл фразы весьма туманен...
Вы, возможно, задание неправильно перевели с другого языка?
Попробуйте запостить оригинальное задание, возможно, кто-то его прочитает и переведёт более корректно..
Serge_Bliznykov вне форума Ответить с цитированием
Старый 18.03.2014, 23:12   #3
FYNZIK
Пользователь
 
Регистрация: 10.02.2014
Сообщений: 47
По умолчанию индексы i+j=парное число и не должны быть равны нулю, в таком случае вы берёте "обернене число"

матрица. индексы i+j=парное число и не должны быть равны нулю, в таком случае вы берёте "обернене число"
FYNZIK вне форума Ответить с цитированием
Старый 18.03.2014, 23:18   #4
FYNZIK
Пользователь
 
Регистрация: 10.02.2014
Сообщений: 47
По умолчанию

i+j должно быть парным, например а11 а12 а13, в первом и третем случае 1+1=2 и 1+3 - парное, а вот во втором 1+2=3 - не парное. Нам нужна именно парная сумма индексов, чтобы числа, которые стоят на этих позициях, поменять на обратные.
FYNZIK вне форума Ответить с цитированием
Старый 18.03.2014, 23:27   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

так, в русском языке вместо "парное" используется термин ЧЁТНОЕ

а насчёт "Обернене число"
из вики - тыц

Цитата:
Обернене число
Матеріал з Вікіпедії — вільної енциклопедії.

Самообернена функція: y = 1/x. Для кожного x окрім 0, y показує його обернене число
Обернене число для x, позначається 1/x або x−1, це число, яке добуток якого з x породжує одиницю. Оберненим дробу a/b буде b/a. Для отримання оберненого для дійсного числа треба розділити 1 на число. Наприклад, обернене для 5 є 1/5, а для 0.25 це 1 розділений на 0.25, або 4. Функція f(x), яка відображає x в 1/x, це один з найпростіших прикладів самооберненої функції.
это оно?!

Тогда:
Код:
var Mas:array[1..N,1..M] of real;
  i, j : integer;
begin

  //  тут пишите заполнение массива Mas нужным способом

  // а вот и основной цикл программы
  for i:=1 to N
    for j:=1 to M do
      if ((i+j) mod 2 = 0) and ( Mas[i,j]<>0 ) then Mas[i,j] := 1/Mas[i,j];


p.s. проверку на ноль лучше написать так:
Код:
.... and ( abs(Mas[i,j])>0.00001 )  then ....
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Прочитать из файла элементы двухмерного массива Создать файл из входного, в котором каждый ненулевой элемент aij, что парную сумму FYNZIK Паскаль, Turbo Pascal, PascalABC.NET 0 13.03.2014 23:33
Двумерный массив. Найти минимальную сумму |Aij-Akj|. i,k - строки GreeNYA Общие вопросы C/C++ 1 29.11.2013 15:29
Одномерный массив. Необходимо заменить последний положительный элемент на второй элемент массива кумитэ Паскаль, Turbo Pascal, PascalABC.NET 1 19.12.2011 16:44
В массиве A каждый элемент, кроме первого, заменить суммой всех предыдущих элементов aiktz Помощь студентам 7 11.10.2010 21:52
паскаль - Заменить каждый третий элемент массива на значение суммы всех его элементов. tanyalove Помощь студентам 4 26.05.2010 09:55