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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.03.2011, 19:21   #1
lords
Новичок
Джуниор
 
Регистрация: 23.03.2011
Сообщений: 2
По умолчанию ПРОГРАММИРОВАНИЕ МАТРИЧНЫХ ОПЕРАЦИЙ

ПРОГРАММИРОВАНИЕ МАТРИЧНЫХ ОПЕРАЦИЙ

Разработать программу решения четырех взаимосвязанных задач частой работы:

1) расчета элементов квадратной матрицы A = (ai,j), i,j = 1,2,...,n по заданной формуле;

2) вычисления элементов вектора X = (xi), i = 1,2,...,n по заданному правилу;

3) требуемого упорядочения элементов матрицы А или вектора Х;

4) вычисления значения y по заданной формуле.

данные во вложении 1 вариант
Изображения
Тип файла: jpg инфа.jpg (89.8 Кб, 132 просмотров)

Последний раз редактировалось lords; 23.03.2011 в 19:36.
lords вне форума Ответить с цитированием
Старый 23.03.2011, 19:24   #2
lords
Новичок
Джуниор
 
Регистрация: 23.03.2011
Сообщений: 2
По умолчанию

есть начало программы

Program L5;
function fact(c :integer):longint;
begin
if c <= 1 then
fact := 1
else
fact := c * fact(c - 1)
end;
Var A: array [1..100, 1..100] of real;
X: array [1..100] of real;
i, j, n, m: integer; k, y: real;
Begin
write ('введите n=');
readln (n);
{1} for i:=1 to n do
for j:=1 to n do
begin
a[i, j]:=sqr(1.4*i+2.2)+(j/sqrt(i+2*j));
writeln ('a[', i, j, ']=', a[i, j]:1:3)
end;
{2} for i:= 1 to n do
begin
x[i]:=x[i]+(a[i, 1]*a[i,n-1]);
for j:=1 to n do
if x[i]>x[i]+(a[i, j]*a[i,n-j]) then x[i]:=x[i]+(a[i, j]*a[i,n-j]);
writeln ('x[', i, ']=', x[i]:1:3)
end;
lords вне форума Ответить с цитированием
Старый 23.03.2011, 19:35   #3
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Стучи в аську 723-32(один)- помогу! недорого!
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ПРОГРАММИРОВАНИЕ МАТРИЧНЫХ ОПЕРАЦИЙ Obrey Помощь студентам 5 17.12.2010 15:05
Паралельное вычисление матричных операций MBelka Помощь студентам 0 30.11.2010 00:08
задачи по С++ параллельное нахождение векторно-матричных операций Microlab007 Помощь студентам 0 21.11.2010 13:02
программирование матричных операций! darinochka Microsoft Office Excel 4 11.10.2010 12:25
Программирование операций обработки файлов Дима82 Фриланс 1 19.05.2008 13:57