Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите решить задачки (паскаль)
Помогите решить задачки
Добрый денью Помогите решить 3 задачки!
1-Найти скалаярное произведение матрици размером Аnxn.
2-Для заданых матриц Amxm Bmxm вычислить выражение (3А+2В)(2А-В)-3АВ. (процедуры)
3-Найти найбольший 'лемент в каждой строке, и найменший 'лемент в каждом столбце матрици Аnxn.
Заранее благодарен!


Air.
1 | Автор: xamko | 2012-03-01, 19:43   |  Репутация: [ + 0 ]
2.
var
a,b,c:array[1..100,1..100]of integer;
i,j,m:integer;
begin
read(m);
for i:=1 to m do
for j:=1 to m do
read(a[i,j]);
for i:=1 to m do
for j:=1 to m do
read(b[i,j]);
for i:=1 to m do
for j:=1 to m do
c[i,j]:=(3*a[i,j]+2*b[i,j])*(2*a[i,j]-b[i,j])-3*a[i,j]*b[i,j];
for i:=1 to m do begin
for j:=1 to m do
write(c[i,j],' ');
writeln;end;
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-03-06, 12:48   |  Репутация: [ + 211 ]
3.
var
a,b:array[1..100,1..100]of integer;
i,j,n,pmax,pmin:integer;
begin
pmax:=low(pmax);pmin:=high(pmin);
read(n);
for i:=1 to n do
for j:=1 to n do begin
read(a[i,j]);
b[j,i]:=a[i,j];end;
for i:=1 to n do begin
for j:=1 to n do
if a[i,j]>pmax then pmax:=a[i,j];
write(pmax,' ');pmax:=low(pmax);end;
writeln;
for i:=1 to n do begin
for j:=1 to n do
if b[i,j]<pmin then pmin:=a[i,j];
write(pmin,' ');pmin:=high(pmin);end;
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
3 | Автор: Berestovskiy | 2012-03-06, 12:55   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите решить задачки (паскаль)
Страница 1 из 11
Поиск: