Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
n@stasy@
1 / 1 / 0
Регистрация: 17.11.2011
Сообщений: 30
#1

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

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

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

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

Найти наименьшие элементы и номера строк и столбцов, в которых они расположены - Pascal ABC
Процедуры и функции. Найти наименьшие элементы и номера строк и столбцов, в которых они расположены, для двухмерных таблиц А(n, m) и B...

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

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

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

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

2
WebMax 2.0
--\.founder./--
560 / 560 / 206
Регистрация: 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
Привет! Вот еще темы с ответами:

Найти наименьшие элементы в каждом столбце массива и поместить их в последнюю строку - Pascal
Дан массив С (10х10). Найти наименьшие элементы в каждом столбце массива и поместить их в последнюю строку

Найти в строках матрицы самые левые наименьшие элементы и поставить их в первый столбец - Pascal
Дана матрица N х M,состоящих из целых чисел.Найти в строках самые левые наименьшие элементы и поставить их в первый столбец. ...

Процедуры: найти наименьшие элементы и номера строк и столбцов, в которых они расположены - Pascal
найти наименьшие элементы и номера строк и столбцов, в которых они расположены для матриц A(10,15) и В(15,12). Использовать процедуру....

Найти наименьшие, отрицательные, элементы каждой строки матрицы EW{m, m} находящиеся над главной диагональю и переписать их в одномерный массив W. - Pascal
Мальчики помогите бедной девушке надо решить на завтро 2 задачи ,я уже пол дня мучаюсь .... 1)Найти наименьшие, отрицательные,...


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

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

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