Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 22.05.2014, 21:14   #1 (permalink)
artspotter
Новичок
 
Регистрация: 22.05.2014
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите составить программы с матрицами

1) Дана квадратная матрица целых чисел размером nхn. Вычислить скалярное произведение строки с максимальным элементом и столбца с минимальным элементом матрицы.

2) Дана матрица целых чисел размером nхm. Получить одномерный массив, элементы которого – минимальные элементы соответствующих столбцов исходной матрицы.

Помогите пожалуйста! От этого зависит отчислят меня или нет((
artspotter вне форума   Ответить с цитированием

Старый 22.05.2014, 21:14
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Рекомендую вам обратить внимание на эти ссылки - тут можно поискать нужную информацию

Помогите составить программу на С++
Помогите составить схему
Помогите, пожалуйста, составить программы в Паскале

Старый 23.05.2014, 01:05   #2 (permalink)
Евгений
Member
 
Аватар для Евгений
 
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,211
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10360
По умолчанию

№2

const n=5;
var
A: array[1..n,1..n] of integer;
B: array[1..n] of integer;
i,j: byte;
min: integer;
begin
Randomize;
for i:=1 to n do
for j:=1 to n do
A[i,j]:= Random(100)-50;
for i:=1 to n do begin
for j:=1 to n do
Write(A[i,j]:5);
Writeln;
end;
Writeln;
j:=1;
repeat
min:= A[1,j];
for i:=2 to n do
if A[i,j]< min then
min:= A[i,j];
B[j]:= min;
Inc(j);
until j>n;
for j:=1 to n do
Write(B[j]:5);
Readln;
end.
Евгений вне форума   Ответить с цитированием
Старый 23.05.2014, 01:33   #3 (permalink)
Евгений
Member
 
Аватар для Евгений
 
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,211
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10360
По умолчанию

№1

const n=5;
var A: array[1..n,1..n] of integer;
max,min,SP: integer;
i,j,maxj,mini: byte;
begin
SP:=0;
Randomize;
for i:=1 to n do
for j:=1 to n do
A[i,j]:= Random(10);
max:= A[1,1]; maxj:=1;
min:= A[1,1]; mini:=1;
for i:=1 to N do begin
for j:=1 to N do begin
if A[i,j]>max then begin max:= A[i,j]; maxj:=j
end;
if A[i,j]<min then begin min:= A[i,j]; mini:=i
end;
end;
end;
for i:=1 to n do
SP:= SP+A[i,maxj]*A[mini,i];
Writeln(' Скалярное произведение равно: ',SP);
Readln;
end.
Евгений вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 11:18.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.