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

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

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

> Задача на тему "Функции"
kvadrat
сообщение 20.05.2008 14:54
Сообщение #1


Пионер
**

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

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


Условие:
Прикрепленное изображение

Немогу понять что такое норма и что обозначает та формула в конце, помогите разобраться плиз.

Вот пока что знаю набросал:
program wersdfg;
function f1(i,j:integer):integer;(p:array[1..m,1..n] of real):real;
begin
writeln('vvedite elementi matrici');
for i:=1 to n do begin
write(i:2, '-я строка: ');
for j:=1 to n do read(p[i,j]);
end;
const m=4;n=3;
var a,b,c:array[1..m,1..n] of real;i,j:integer;
begin
readln(f1(i,j,p));
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
sintanial
сообщение 22.05.2008 21:54
Сообщение #2


Пионер
**

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

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


Ну я думаю так : Сначало поэлементно складываешь элементы одного столбца, все элементы делаешь по абсолютной величине, на паскале функция abs(a[i,j]);, потом элементы второго столбца так же складываешь, суммы запоминаешь в две переменные, и пусть сумма первого столбца будет называться max. ТОгда делаешь условие, если вторая переменная больше первой то max присваеиваешь вторую, а если нет то остается прежняя без изменений. Потом считаешь сумму 3 столбца, если сумма 3 больше max тогда max присваиваешь 3 и т.д. Потом так же делаешь со второй матрицей и так же заводишь переменную max1 и делаешь почти то же самое что и вначале я написал только уже с матрицами а не со столбцами. Просто присваиваешь max1 значение функции от первой матрице b значение второй матрице и сравниваешь, если b>max1 тогда b:=max1. И так же с третьей запоминаешь её в b и сравниваешь =) !

Цитата
Извиняюсь за случайно созданую ту тему, вот мой вариант решения но оно выводит совсем не то! помогите исправить ошибки пажалусто


Ну если клем4 был прав, то максимальный должен быть столбец в каждой матрице а у тебя считает полностью сумму всех эллементов

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

Сообщений в этой теме
kvadrat   Задача на тему "Функции"   20.05.2008 14:54
klem4   на сколько я понял, речь идет об l-норме: http://...   20.05.2008 17:29
kvadrat   Абсолютных величин, это что такое?   20.05.2008 18:51
kvadrat   Как я понял тут должны быть 2 функции, первая прои...   20.05.2008 19:36
klem4   Модуль числа ( |3| = |-3| = 3)   21.05.2008 12:17
kvadrat   Извиняюсь за случайно созданую ту тему, вот мой ва...   21.05.2008 19:59
kvadrat   на сколько я понял, речь идет об l-норме: http:/...   22.05.2008 20:51
sintanial   Ну я думаю так : Сначало поэлементно складываешь э...   22.05.2008 21:54
sintanial   Вот переделал функцию. Я писал тут, и не проверял,...   22.05.2008 22:24
kvadrat   Блин немогу добиться чтобы матрица вводилась строг...   22.05.2008 23:02
sintanial   Ну во первых ты вводишь матрицу 4 на 4 а не 4 на 3...   22.05.2008 23:06
kvadrat   function mat(n,m:integer):real; var i,j:integer; a...   22.05.2008 23:14
sintanial   У тебя в коде очень много неправильного. Щас сдела...   22.05.2008 23:39
sintanial   Вот я написал. Однако почему то не вычисляется s1,...   23.05.2008 0:22


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

 



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