IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> матрица 4x4, помогите решить...
MrOverseer
сообщение 7.01.2008 15:57
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Мужской

Репутация: -  0  +


В матрице 4х4 каждый 2-ой элемент каждой второй строки возвести в квадрат.

В задаче нужно чтобы было видно первоначальная матрица и конечный результат, и желательно программу написать по-проще.
ПОЖАЛУЙСТА помогите!!!!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Michael_Rybak
сообщение 7.01.2008 16:11
Сообщение #2


Michael_Rybak
*****

Группа: Модераторы
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


что не получается?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
MrOverseer
сообщение 7.01.2008 16:27
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Мужской

Репутация: -  0  +


не получается наростить мозг в направлении называемом "ПАСКАЛЬ"
короче ваще не представляю себе эту прогу!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Артемий
сообщение 7.01.2008 16:55
Сообщение #4


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Каждый второй элемент получается каждый четный..Вот есть и функция Odd(int): boolean


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
MrOverseer
сообщение 8.01.2008 8:09
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Мужской

Репутация: -  0  +


А можно весь код посмотреть?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Ozzя
сообщение 8.01.2008 11:21
Сообщение #6


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


for i:=1 to n do
for j:=1 to n do
if (not (odd(i)) and (not (odd(j)) then
a[i] [j] := sqr(a[i] [j] );


???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Айра
сообщение 8.01.2008 16:52
Сообщение #7


Профи
****

Группа: Пользователи
Сообщений: 731
Пол: Женский

Репутация: -  25  +


Ozzя, по-моему, тут пары скобочек нехватает blush.gif
if (not (odd(i))_)_ and (not (odd(j))_)_ then


и еще.. просветите, все никак не пойму, какая разница между a[i,j] и a[i][j].. результат вроде одинаковый..

Сообщение отредактировано: Айра - 8.01.2008 16:53
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 8.01.2008 17:03
Сообщение #8


Гость






Цитата
какая разница между a[i,j] и a[i][j]
Никакой... Паскаль разрешает использование как первого, так и второго варианта. А насчет скобочек - по-моему тут как раз лишние скобки (даже не 2)... Уже в варианте:
if not odd(i) and not odd(j) then

компилятор однозначно правильно понимает выражение: приоритет not выше, чем приоритет and...

Сообщение отредактировано: volvo - 8.01.2008 17:07
 К началу страницы 
+ Ответить 
Client
сообщение 8.01.2008 17:20
Сообщение #9


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


procedure print(var mx: tmatrix);
var i, j: integer;
begin
for i := 1 to size_row do
begin
for j := 1 to size_col do
write(mx[j][i]:4); { <--- Обратите внимание на индексы !!! }
writeln
end;
end;
Мне это тоже очень интересно, про эти способы. Здесь имелось в виду, что надо обратить внимание на сам способ описания индесков или на сами индексы???
Это я нашел на твоем сайте, volvo, пы ссылке http://vlady.uzelok.net/smf/index.php?topic=39.0 в теме
Цитата
Как задать матрицу, чтобы быстро поменять местами ее столбцы ?


Сообщение отредактировано: Client - 8.01.2008 17:23
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 8.01.2008 17:26
Сообщение #10


Гость






На сами индексы надо внимание обращать по ссылке... Написание неважно, можно и так:
mx[j, i], но только j - должно быть первым индексом

Сообщение отредактировано: volvo - 8.01.2008 17:27
 К началу страницы 
+ Ответить 
Client
сообщение 8.01.2008 17:29
Сообщение #11


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


понял
Спасибо good.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.07.2025 2:24
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"