Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Разработать программу для вычерчивания различных осей координат и графика синусоиды Помогите пожалуйста Разработайте программу для вычерчивания различных осей координат и графика синусоиды Y=A*Sin(f*X-D), где A – амплитуда, f – частота, X – интервал, d – смещение. Программа... https://www.cyberforum.ru/ pascalabc-net/ thread1347572.html OpenGL - Опишите процедуры PascalABC.NET
Опишите процедуры, пожалуйста.
PascalABC.NET Как удалить объект ButtonABC? https://www.cyberforum.ru/ pascalabc-net/ thread1347127.html
Подскажите кто-нибудь!
PascalABC.NET Неправильно читает матрицу. Задача - покраска лабиринта https://www.cyberforum.ru/ pascalabc-net/ thread1347099.html
var i,j,n,l:longint; a: array of char; c:char; procedure p(x,y:integer); begin if a<>'.' then exit; a:='@'; p(x+1,y); p(x-1,y); p(x,y+1);
PascalABC.NET Расскажите о потоках
Расскажите о них, пожалуйста.
PascalABC.NET ABCButtons - Расскажите о процедурах этого модуля https://www.cyberforum.ru/ pascalabc-net/ thread1347087.html
Расскажите о процедурах этого модуля, пожалуйста.
PascalABC.NET Матрица. Вывод в типизированный дисковый файл Дана действительная матрица размера m ´ n. В каждом столбце поменять местами наибольший и наименьший элементы. Значения наибольших элементов вывести в типизированный дисковый файл f1, значения... https://www.cyberforum.ru/ pascalabc-net/ thread1346810.html График изменения температуры за месяц PascalABC.NET
Здравствуйте, тако
PascalABC.NET В качестве исходного текста задать арифметическое выражение, записанное на Паскале Помогите решить задачу. В качестве исходного текста задать арифметическое выражение, записанное на Паскале. Проверить, соблюдается ли равенство открывающих и закрывающих скобок. Вывести на печать... https://www.cyberforum.ru/ pascalabc-net/ thread1346658.html PascalABC.NET Работа с файлами 1. Изменить способ заполнения массива записей в лабораторной работе № 3 с использованием файлов. Сформировать файлы с реальными фамилиями и именами и заполнить поля записей данными из этих файлов.... https://www.cyberforum.ru/ pascalabc-net/ thread1346286.html
Определить среднюю длину слова каждого предложения PascalABC.NET
Вести текст. Определить среднюю длину слова каждого предложения. Из слов не длиннее средней длины составить новый текст. Саму программу даже не написал( нет идей Прошу вас написать программу (с...
PascalABC.NET Процедуры и функции В одномерном массиве определить максимальное значение. Рассортировать до максимального значения по возрастанию. Результат вывести. Затем рассортировать после максимального значения по возрастанию и... https://www.cyberforum.ru/ pascalabc-net/ thread1346284.html
Эксперт Pascal/Delphi
6756 / 4531 / 4801
Регистрация: 05.06.2014
Сообщений: 22,351
08.01.2015, 09:21 0

Нахождение min и max элементов матрицы, создание матрицы определенного вида - PascalABC.NET - Ответ 7079570

08.01.2015, 09:21. Показов 979. Ответов 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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
{$DEFINE DEBUG} // режим отладки
const NMAX=50; //максимальное количество элементов в массиве
type mas=array [1..NMAX,1..NMAX]of integer; //скрытие массива для сохранности индексов
 
//------------------------------------------------------------------------------------
 
procedure FillArray (var m:mas;N:integer);
var i,j:integer; //используются как индексы элементов массива
begin
randomize();
for i:=1 to N do //перебор строк
for j:=1 to N do //перебор столбцов
if (i*j<=6)  then //ЕСЛИ произведение индексов <=6 (!!!не работает для N=10!!!) (N задаётся ниже)
begin
m[i,j]:=0 //ТО элемент массива = 0
end
else 
begin
if (i>j) then //определение местонахождения элемента..
m[i,j]:=N-i+1 //..относительно главной диагонали
else
m[i,j]:=N-i+1;
end;
end;
 
//------------------------------------------------------------------------------------
 
procedure FillArrayRandom (var m:mas;min,max,N:integer);
var i,j:integer; //используются как индексы элементов массива
begin
randomize();
for i:=1 to N do //перебор строк
for j:=1 to N do //перебор столбцов
m[i,j]:=min+random(max-min+1); //случайные числа генерируются в данном диапазоне
end;
 
//------------------------------------------------------------------------------------
 
procedure PrintArray (var m:mas;N:integer);
var i,j:integer; //используются как индексы элементов массива
begin
for i:=1 to N do //перебор строк массива
begin
for j:=1 to N do //перебор столбцов массива
write(m[i,j]:3); //вывод элементов одной строки
writeln; //отделяем строки
end;
end;
var a:mas; //массив обьявлен
mi:integer; //минимальный элемент
ma:integer; //максимальный элемент
sym:integer; //сумма этих элементов
n:integer; //количество элементов в массиве
j,i:integer; //для обхода массива
m:integer;
begin
{$IFDEF DEBUG} //используем основные директивы компилятора
n:=4;
{$ELSE} //esli ne otladka
write('vvedite kol-vo elementov v massive: ');
readln(n); //с каким количеством будет работать программа
 
{$ENDIF}
if ((n>NMAX)or(n<=0)) then
begin
writeln('elementov ne mozhet bit menee 1 u bolee',NMAX);
exit;
end;
FillArray(a,n); //заполнение массива случайными числами
PrintArray(a,n);
writeln('*~~~~~~~~~~~~*');
FillArrayRandom(a,-5,5,n); //случайные числа от -5 до 5
PrintArray(a,n);
 
//!!!!здесь нахождение мин и макс!!!!
mi:=a[1,1];
ma:=a[1,1];
for i:=1 to N do
  for j:=1 to n do
    begin
      if a[i,j]>ma then
        ma:=a[i,j];
      if a[i,j]<mi then
        mi:=a[i,j];
    end;
 
 
  writeln('MIN = ', mi);
  writeln('MAX = ', ma);
  sym:=mi+ma;
  writeln('MIN + MAX = ',sym)
end.


Вернуться к обсуждению:
Нахождение min и max элементов матрицы, создание матрицы определенного вида PascalABC.NET
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.01.2015, 09:21
Готовые ответы и решения:

Среднее арифметическое min и max элементов матрицы
В целочисленном массиве A для каждого столбца найти среднее арифметическое max и min элементов.

Определить, сколько элементов матрицы равны (MAX+MIN) /2
Доброго времени суток! Дана действительная квадратная матрица А порядка N, где N-заданное...

Найти в каждом столбце матрицы max и min элементы матрицы и вывести новую матрицу на экран
S (3,3) найти в каждом столбце матрицы max и min элементы матрицы и вывести новую матрицу на экран

Суммы элементов каждого столбца матрицы X(m,n), имеющих значения в интервале Min…Max
Суммы элементов каждого столбца матрицы X(m,n), имеющих значения в интервале Min…Max. Для столбца....

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.01.2015, 09:21

Упорядочить массив по убыванию элементов второй строки и напечатать max и min элементы матрицы
1. Введите массив N и определите, есть ли в нем элементы с одинако-выми значениями 2. Дан...

Найти в каждой строке матрицы среднее арифметическое max отрицательного и min положительного элементов
Составить программу , которая находит в каждой строке матрицы Q(k,l) среднее арифметическое...

Создать массив, элементами которого являются разности max и min элементов соответствующих строк матрицы
Двумерный массив A (m,n) заполнен случайным образом. Создать одномерный массив B(m), элементами...

Поменять местами max и min значения среди элементов, расположенных выше главной диагонали матрицы
Определить и поменять местами максимальное и минимальное значения среди элементов , расположенных...

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