Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
n@stasy@
1 / 1 / 0
Регистрация: 17.11.2011
Сообщений: 30
#1

Найти наименьшие элементы для матриц

09.12.2011, 08:42. Просмотров 913. Ответов 2
Метки нет (Все метки)

написать программу решения следующей задачи: Найти наименьшие элементы для матриц А(8,6), Х(7,9) и номера строк и столбцов, в которых они расположены. Использовать подпрограмму.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2011, 08:42
Ответы с готовыми решениями:

Найти наименьшие элементы и номера строк и столбцов, в которых они расположены, для матриц А и В
Найти наименьшие элементы и номера строк и столбцов, в которых они расположены, для матриц А(10,15)...

Найти в строках самые правые наименьшие элементы и определить их местонахождение
Дана матрица NxM, состоящая из натуральных чисел. Найти в строках самые правые наименьшие элементы...

Найти наименьшие элементы и номера строк и столбцов, в которых они расположены
Процедуры и функции. Найти наименьшие элементы и номера строк и столбцов, в которых они...

Найти наименьшие и наибольшие элементы главной и побочной диагоналей матрицы и выделить их цветом
В двумерном числовом массиве Z найти наименьшие и наибольшие элементы главной и побочной диагоналей...

Найти наименьшие элементы матрицы и записать на их место нули
Дана матрица Х(10х10). Найти наименьший элемент матрицы и записать нули в строку и столбец, в...

2
WebMax 2.0
--\.founder./--
561 / 561 / 392
Регистрация: 20.10.2011
Сообщений: 867
09.12.2011, 09:00 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
uses crt;
 
const n=10;
 
var a: array [1..8,1..6] of integer;
    b: array [1..7,1..9] of integer;
i,j,minA,minB:integer;
 
procedure Proc;
begin
For i:=1 to 8 do
       for j:=1 to 6 do
       if a[i,j]<minA then minA:=a[i,j];
For i:=1 to 7 do
       for j:=1 to 9 do
       if b[i,j]<minB then minB:=b[i,j];
end;
 
begin
   Writeln('ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў A: ');
   For i:=1 to 8 do begin
       for j:=1 to 6 do begin
       randomize;
       a[i,j]:=random(10)+1;
       write(a[i,j]:2);
       end;
   writeln;
   end;
   Writeln('ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў B: ');
   For i:=1 to 7 do begin
       for j:=1 to 9 do begin
       randomize;
       b[i,j]:=random(10)+1;
       write(b[i,j]:2);
       end;
   writeln;
   end;
   
   minA:=a[1,1];
   minB:=b[1,1];
   Proc;
   Writeln;
   Writeln('ГЊГЁГ*ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ A: ',minA);
   Writeln;
   For i:=1 to 8 do
       for j:=1 to 6 do begin
       if a[i,j]=minA then
       writeln('ÊîîðäèГ*Г*ГІГ» a[',i,',',j,']');
       end;
   Writeln;
   Writeln('ГЊГЁГ*ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ B: ',minB);
   For i:=1 to 7 do
       for j:=1 to 9 do begin
       if b[i,j]=minB then
       writeln('ÊîîðäèГ*Г*ГІГ» a[',i,',',j,']');
       end;
 
end.
1
n@stasy@
1 / 1 / 0
Регистрация: 17.11.2011
Сообщений: 30
09.12.2011, 09:01  [ТС] #3
спасибо большое!!!!!!!!!!!!!!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2011, 09:01

Определить наименьшие элементы каждой строки матрицы и найти их сумму
Помогите решить программу. В квадратной матрице А определить наименьшие элементы каждого рядка и...

В матрице найти все элементы наименьшие среди своих соседей
Нужно решить пару задач к зачету:1)отсортировать четные элементы одномерного числового массива на...

В матрице найти наименьшие элементы в каждом столбце и поместить их на главную диагональ
Здравствуйте. Если это возможно,хотелось бы попросить помощи в рещении нескольких задач. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru