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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.05.2015, 04:16   #1
Nizami
Новичок
Джуниор
 
Регистрация: 23.05.2015
Сообщений: 2
По умолчанию Помогите пожалуйста с решением, срочно!

заданы 2 матрицы А(3,5), B(5,3). Построить таблицу функции Y=cx^2+d при x, меняющемся от 0 до 1 с
шагом 0.2, где c- сумма отрицательных элементов матрицы А;
d- сумма отрицательных элементов матрицы В
Nizami вне форума Ответить с цитированием
Старый 23.05.2015, 06:38   #2
Niro
Форумчанин
 
Аватар для Niro
 
Регистрация: 23.09.2010
Сообщений: 682
По умолчанию

Не ну если срочно, то без проблем:


Код:
вычисляем с
вычисляем d

x:=0;
writlen ('x |  y');
writeln ('------);
while x<=1 do
begin
 y:=c*x*x + d;
 x:=x+0.2;
 writeln (x:0:4, '|',y:0:4);
end;
вычисление c и d - совсем простая задача: нужно пройтись циклом по матрице, и если очередной элемент < 0, то берем его в сумму
Проще всего признать свою ошибку.
Гораздо труднее еЁ осознать и исправить.
Niro вне форума Ответить с цитированием
Старый 23.05.2015, 09:01   #3
Nizami
Новичок
Джуниор
 
Регистрация: 23.05.2015
Сообщений: 2
По умолчанию

Спасибо большое! А это? Тоже очень срочно

Плииз........
Изображения
Тип файла: jpg IMG_20150523_090639.jpg (48.9 Кб, 113 просмотров)

Последний раз редактировалось Вадим Мошев; 23.05.2015 в 13:13.
Nizami вне форума Ответить с цитированием
Старый 23.05.2015, 10:49   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

В качестве подсказки:
Код:
const 
 A:array[1..2] of double=(1,2);
 B:array[1..2] of double=(3,4);
var n,i:integer; d,c:double;
begin
 n:=2; for i:=1 to n do d:=d+sqr(a[i]); d:=sqrt(d);
 n:=2; for i:=1 to n do c:=c+sqr(b[i]); c:=sqrt(c);
 write('x=',c/d); readln;
end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Пожалуйста,помогите с решением задач lil duffy Помощь студентам 1 12.01.2010 14:33
помогите пожалуйста с решением airum Помощь студентам 1 27.05.2009 19:07
Помогите пожалуйста с решением задачи Ainur Помощь студентам 1 23.05.2009 10:21
Помогите пожалуйста с решением задачи Ксенька89 Паскаль, Turbo Pascal, PascalABC.NET 2 14.05.2009 14:33
Помогите, пожалуйста, с решением Akademik Помощь студентам 2 23.04.2008 23:17