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

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

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

2 страниц V  1 2 >  
 Ответить  Открыть новую тему 
> Матрица
сообщение
Сообщение #1


Новичок
*

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

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


Помогите, оч. нужно

Дана квадратная матрица А порядка n. Получить матрицу АВ; элементы матрицы В вычисляются по формуле:

*******1/(i+j-1), если i<j
b[i,j] = 0 , если i=j
*******1/(i+j+1), если i>j
фигурная скобка на три строки после знака равно(=)

Спасибо за хоть какую-нибудь помощь!! give_rose.gif

Сообщение отредактировано: CeMeH -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

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

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


Матрица AB это в смысле произведение A*B?


--------------------
Я бы исправил мир, но Бог не дает мне исходников...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

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

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


Цитата(Shuruper @ 26.01.2010 16:28) *

Матрица AB это в смысле произведение A*B?


да...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

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

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


А что именно тебе не понятно,
как умножать матрицы или что?


--------------------
Я бы исправил мир, но Бог не дает мне исходников...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

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

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


Цитата(Shuruper @ 26.01.2010 16:36) *

А что именно тебе не понятно,
как умножать матрицы или что?

Как написать прогу в паскале??? blink.gif
Блин, народ, помогите оч. нужно, завтра последний день сдачи... еще 3 задачи осталось решить... Мозг взрываю, ума не хватает... помогите плз... хотя б с этой...

give_rose.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

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

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


Эх, держи халявщик:

const NMax = 10;{можно увеличить}
type Matrix = array [1..NMax, 1..NMax] of Real;

procedure MulMatrix(var a, b, c: Matrix; n: Integer);
var i, j, k: Integer;
s: Real;
begin
for i := 1 to n do
for j := 1 to n do
begin
s := 0;
for k := 1 to n do
s := s + a[i, k]*b[k, j];
c[i, j] := s
end

end;

var a, b, c: Matrix;
i, j, n: Integer;
begin
WriteLn('Введите порядок матрицы');
Write('n = '); ReadLn(n);

WriteLn('Введите первую матрицу A');
for i := 1 to n do
for j := 1 to n do
Read(a[i, j]);

for i := 1 to n do begin
for j := 1 to n do begin
If i<j then b[i,j]:=1/(i+j-1);
If i>j then b[i,j]:=1/(i+j+1);
If i=j then b[i,j]:=0;
end;
end;

MulMatrix(a, b, c, n);
WriteLn('Матрица AB');

for i := 1 to n do
begin
for j := 1 to n do
Write(c[i, j]:0:6, ' ');
WriteLn
end;
ReadLn
end.






Сообщение отредактировано: Shuruper -


--------------------
Я бы исправил мир, но Бог не дает мне исходников...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

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

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


СПАСИБО БОЛЬШОЕ, ВЫ МНЕ ОЧЕНЬ ПОМОГЛИ!!! good.gif
give_rose.gif give_rose.gif give_rose.gif give_rose.gif give_rose.gif

Можно вопрос?

может ли процедура возвращать результат?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

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

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


Ну здесь ты сам думай.


--------------------
Я бы исправил мир, но Бог не дает мне исходников...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






Цитата
СПАСИБО БОЛЬШОЕ, ВЫ МНЕ ОЧЕНЬ ПОМОГЛИ!!!
А вот расскажи мне, особенно одаренный ты наш, ЧЕМ ТЫ ЛУЧШЕ ДРУГИХ??? Почему ты в FAQ не можешь заглянуть ПЕРЕД ТЕМ, КАК ЗАДАТЬ ВОПРОС? Неужели же ты всерьез думаешь, что такое редкое задание, как перемножение матриц никогда и никто не делал, и даже о нем не спрашивал?

Shuruper, тебе тоже вопрос на засыпку: вместо того, чтобы писать "на коленке", и неотлаженное выбрасывать, да еще и с выражениями, типа "на тебе, халявщик", ты б тоже поиском воспользовался, для начала. А то я смотрю, ты решил, что Правила - не для тебя? Не ошибись, смотри. mad.gif

Есть отлаженная прекрасно работающая процедура, нет, блин, каждый должен написать САМ... А потом этот самопальный костыль дает сбой, и что? Кто виноват? Разумеется, Форум... Про автора костыля уже никто не вспоминает, ага.

Цитата
может ли процедура возвращать результат?
Только в качестве побочного эффекта. Дальше - читай документацию.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Новичок
*

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

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


Цитата(Shuruper @ 26.01.2010 16:56) *

Ну здесь ты сам думай.

Деваться не куда... прийдется...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Гуру
*****

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

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


Цитата
может ли процедура возвращать результат?

Может.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Новичок
*

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

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


Цитата(volvo @ 26.01.2010 17:04) *

А вот расскажи мне, особенно одаренный ты наш, ЧЕМ ТЫ ЛУЧШЕ ДРУГИХ??? Почему ты в FAQ не можешь заглянуть ПЕРЕД ТЕМ, КАК ЗАДАТЬ ВОПРОС? Неужели же ты всерьез думаешь, что такое редкое задание, как перемножение матриц никогда и никто не делал, и даже о нем не спрашивал?


к сожалению - ничем!!! Все смертны, всем свойственно ошибаться, а ошибаться по незнанию не повод "для громких слов"!!!

Цитата(volvo @ 26.01.2010 17:04) *

Есть отлаженная прекрасно работающая процедура, нет, блин, каждый должен написать САМ... А потом этот самопальный костыль дает сбой, и что? Кто виноват? Разумеется, Форум... Про автора костыля уже никто не вспоминает, ага.

Только в качестве побочного эффекта. Дальше - читай документацию.


Прошу прощение, если что-то сделал не так, ув. VOLVO...

C уважением!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Новичок
*

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

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


Цитата(volvo @ 26.01.2010 17:04) *

Неужели же ты всерьез думаешь, что такое редкое задание, как перемножение матриц никогда и никто не делал, и даже о нем не спрашивал?


хм... удивительное совпадение! нашел:
тема "задачка", автор ruslik... То, что нужно!!!

"Составить процедуру, результатом работы которой является символ, заданный при обращении к процедуре, если этот символ не является буквой, и соответствующая строчная (малая) буква в противном случае."

М...да... вот только ответ МЕГА удивил...
volvo пишет:
Может все-таки функцию? Процедура результатов не возвращает... Или опять извращаться?


Что значит опять???? Если у вас есть исходник, неужели так сложно кинуть ссылкой?! А! volvo??? Вы ж админ, разве ваша помощь заключается в советах "делай сам, ищи где хочешь и т.д.!!!"? Зачем тогда форум? зачем вы на форуме?

Кста... именно ПРОЦЕДУРУ...

Цитата(volvo @ 26.01.2010 17:04) *

Есть отлаженная прекрасно работающая процедура, нет, блин, каждый должен написать САМ... А потом этот самопальный костыль дает сбой, и что? Кто виноват? Разумеется, Форум... Про автора костыля уже никто не вспоминает, ага.


Если вас не затруднит, укажите путь к "прекрасно работающей процедуре" на эту тему? Что то кроме ф-ии malice я ничего не нашел...

С уважением, пока еще не выгнали, студент!!! give_rose.gif

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


mea culpa
*****

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

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


CeMeH, в заголовке этого раздела, если посмотреть, есть некоторые правила, в числе которых есть это:

Цитата
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!


FAQ даже красными большими буквами, наверное, специально для людей с расстройствами зрения. В этом самом FAQ есть тема "Массивы. Матрицы. Типичные задачи.". Там то, что тебе нужно.

Цитата
Если у вас есть исходник, неужели так сложно кинуть ссылкой?!


Таких как ты много, очень много. Рука устанет кидать. Поэтому для самых одарённых из тех, кто не хочет сам писать, придумали поиск и выложили много полезного материала.

Сообщение отредактировано: Unconnected -


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #15


Новичок
*

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

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


Цитата(Unconnected @ 26.01.2010 20:39) *

Таких как ты много, очень много. Рука устанет кидать. Поэтому для самых одарённых из тех, кто не хочет сам писать, придумали поиск и выложили много полезного материала.


Unconnected, спасибо за справку, я сделал выводы, но все же... конкретно:

Составить процедуру, результатом работы которой является символ, заданный при обращении к процедуре, если этот символ не является буквой, и соответствующая строчная (малая) буква в противном случае.

С этой задачей поиск не справился, а точнее справился, но ответа на нее я так и не нашел...

Может посмотрите плз? give_rose.gif

Как же так? volvo говорил, что "прекрасная откомпилированная процедура"... но неужели она не доступная простым смертным студентам????

с Уважением!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #16


Я.
****

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

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


Цитата
Составить процедуру, результатом работы которой является символ, заданный при обращении к процедуре, если этот символ не является буквой, и соответствующая строчная (малая) буква в противном случае.
Лично я вообще не вкурил задания.
наверное имеется ввиду такая процедура:
Ничего не компилирую, пишу с головы.
procedure proc(var c:char);
begin
if c in ['A'..'Z'] then c:=char(odd©+32)
end;

т.е. если входит символ или маленькая буква, то он и остается, а если входит большая буква - то переводится в маленькую..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #17


mea culpa
*****

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

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


Цитата
Цитата(volvo @ 26.01.2010 17:04) *

Есть отлаженная прекрасно работающая процедура, нет, блин, каждый должен написать САМ... А потом этот самопальный костыль дает сбой, и что? Кто виноват? Разумеется, Форум... Про автора костыля уже никто не вспоминает, ага.


Если вас не затруднит, укажите путь к "прекрасно работающей процедуре" на эту тему? Что то кроме ф-ии malice я ничего не нашел...


Тебе не кажется, что та реплика относилась к первой твоей задаче, где матрицы перемножать? Или, думаешь, они (реплики) универсальные?

Цитата
С этой задачей поиск не справился


Уж не думаешь ли ты, что поиск будет искать тебе решённые задачи на протяжении всей учёбы? Это ж не лампа Алладина.. Поиск, если даже и не на форуме, то в интернете, зато, может найти процедуры и функции для работы со строками-символами.

Цитата
Составить процедуру, результатом работы которой является символ, заданный при обращении к процедуре, если этот символ не является буквой, и соответствующая строчная (малая) буква в противном случае.


Мне кажется, результат работы это не обязательно "возвращаемое значение".

Сообщение отредактировано: Unconnected -


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #18


Новичок
*

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

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


Цитата(Unconnected @ 26.01.2010 22:13) *

Мне кажется, результат работы это не обязательно "возвращаемое значение".


Я задачи не придумываю, если кажется - крестись, может поможет!!! norespect.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #19


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

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


Цитата(CeMeH @ 27.01.2010 14:21) *
Я задачи не придумываю, если кажется - крестись, может поможет!!! norespect.gif
Семен, ты обнаглел.
Почему ты думаешь, что тебе вообще кто-то должен??
Я не хочу цитировать весь твой бред.

Зачем форум? Форум - для ТЕХ у кого есть конкретные ВОПРОСЫ ПО ПРОГРАММИРОВАНИЮ. Те, кто дает условие задачи и хочет решение - те могут рассчитывать ТОЛЬКО на то, что их тему, может быть, сразу не закроют. Нет, скажи, ты правда думал, что форум для того, чтобы делать задания лоботрясам?

Зачем МЫ на форуме? В самом деле - зачем?? зачем мы тратим свое время и платим свои деньги за хостинг? Чтобы вот ТАКИЕ спрашивали? Вот порно сайты - они понятно, зачем, про них никто не спрашивает.. Их миллионы - и никто не спрашивает - зачем? А вот есть один-два по реальному делу, сразу вопросы - а зачем? Не нравится - не ешь. А лучше спроси у многих тысяч, которым тут помогли, а не заламывай руки, как недоделанный Гамлет..

М
Пока ты высказывал претензии к Администрации - я терпел. Когда ты стал оскорблять участников Форума (см. цитату) - я не могу терпеть. Ты на премодерации.


.. и -1 в репутацию от меня лично.

Кста.. (С) Тебе же сказали: искать в FAQ (красная ссылка вверху страницы). Вот твое умножение: Массивы. Матрицы. Типичные задачи. .

Процедура может возвращать результат, но только в параметрах. Передача значения в параметре var в строгом смысле возвращением результата не является. Если в вопросе не уточняется, как именно возвращает, то каждый волен понимать его, как хочет, или в зависимости от контекста. Иными словами, и Да, и Нет - верные ответы. Причем Да верен с практической точки зрения, а Нет - с формальной.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #20


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

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


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

И лично от меня +1 ))


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 31.10.2020 15:58
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name