Инвертировать каждое четное значение, одномерной матрицы |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Инвертировать каждое четное значение, одномерной матрицы |
kleopatrik |
Сообщение
#1
|
Гость |
Инвертировать каждое четное значение одномерной матрицы.
Во первых, что это такое?( имею ввиду чего от меня хотят))) :D Буду очень благодарна за помощь, особенно если кто нить подскажет как еще и написать такую програмку) |
Amro |
Сообщение
#2
|
Пионер Группа: Пользователи Сообщений: 146 Пол: Мужской Репутация: 2 |
Инвертировать -- значит поменять на противоположное, в данном случае сменить знак .... (ищешь чётное число и умножаешь его на -1, и изменяешь значение в матрице)
-------------------- Закон иудеев: Семь раз отмерь, один отрежь.
Закон экономии: Семь раз отмерь, семь раз отрежь. Закон программиста: Семь раз отрежь, ошибся, отмерь. |
klem4 |
Сообщение
#3
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
ЗЫ одномерная матрица это одномерный массив ? :D если да, то :low:
ЗЫЫ тут полная инверсия одномерного массива, не дочитал условие. Код uses crt; const n=5; var x:array[1..n] of integer; i,p:integer; Begin clrscr; randomize; for i:=1 to n do begin x[i]:=random(11)-random(6); write(x[i]:2); write(' '); end; for i:=1 to n div 2 do begin p:=x[i]; x[i]:=x[n-i+1]; x[n-i+1]:=p; end; writeln; for i:=1 to n do begin write(x[i]:2); write(' '); end; readln; end. Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
klem4 |
Сообщение
#4
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Armo , имхо ты не прав, инверсия :
12345 -> 54321 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
klem4 |
Сообщение
#5
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Не не могу понять условие(( поменять элементы с четными номерами или те, значения которых четные ? на примере можешь показать из 12345 чо получится ?
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
Сообщение
#6
|
Гость |
klem4
Внимательно читаем задание :low: Код const n = 5; x: array[1 .. n] of integer = (2, 5, 4, 1, 7); var i: integer; begin for i:=1 to n do if not odd(x[i]) then x[i] := -x[i]; writeln; for i:=1 to n do write(x[i]:3); writeln; end. |
klem4 |
Сообщение
#7
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Хорошо :D
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Текстовая версия | 23.12.2024 19:43 |