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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 26.05.2012, 20:29   #1
Юрий666
 
Регистрация: 26.05.2012
Сообщений: 3
По умолчанию

Код:
program masiv11;
var a:array [1..5,1..5] of real;
x:array [1..5,1..5] of real;
ma:real;
y: real;
k,i,j:integer;
q,w,f,s: real;
begin
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(10)-5;
for i:=1 to 5 do
begin
for j:=1 to 5 do write(a[i,j]:6:2);
writeln();
end;
writeln();
begin
for i:=1 to 5 do
for j:=1 to 5 do
x[i,j]:=random(20)-5;
for i:=1 to 5 do
begin
for j:=1 to 5 do write(x[i,j]:6:2);
writeln();
end;
end;
end.



матрицы готовы.

PASKAL ABC

Последний раз редактировалось Юрий666; 27.05.2012 в 18:25.
Юрий666 вне форума Ответить с цитированием
Старый 27.05.2012, 10:40   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
матрицы готовы.
Какая умничко )
Код:
for i:=1 to 5 do begin
 for j:=1 to 5 do begin b[i,j]:=0;
   for k:=0 to 5 do b[i,j]:=b[i,j]+a[j,k]+x[k,j]; 
 end;
end;
Где b - еще одна такая же матрица (результирующая). к - счетчик
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 27.05.2012, 18:25   #3
Юрий666
 
Регистрация: 26.05.2012
Сообщений: 3
По умолчанию

Cпасибо большое!!!!!!!!!!
Юрий666 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
даны три квадратные матрицы третьего порядка.вывести на экран ту из них,норма которой наименьшая. в качестве нормы матрицы взять м ayoka Паскаль, Turbo Pascal, PascalABC.NET 0 16.05.2012 18:28
как перемножить матрицы? phasha Помощь студентам 4 31.10.2011 15:44
Вычислить среднее арифметическое каждого столбца матрицы и вывести на экран в порядке возрастания ILMAR95 Паскаль, Turbo Pascal, PascalABC.NET 3 01.04.2011 15:44
Нужно вывести на экран каждое слово на новой строке. Юлёк PHP 5 28.01.2008 14:57