Нахождение экстремальных элементов в однородных массивах.
Составить программу нахождения экстремального элемента или его порядкового номера при заданном одномерном массиве А из n элементов (или массивах А и С по n элементов в каждом).
Определить номер наименьшего по абсолютной величине элемента массива А.
program z143; var i,n,min,j:integer; A:array [1..100] of integer; begin writeln (‘vvedite kolichestvo elementov’); readln (n); for i:=1 to n do begin writeln (‘vvedite element pod nomerom ‘,i,»); readln (A[i]); end; min:=A[1]; j:=1; for i:=1 to n do if A[i]
Работает но не выводит значение. Помогите отладить. Заранее спасибо!
Последний раз редактировалось Stilet; 20.11.2010 в 21:59 .
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
оформляй код специальным тэгом. Кнопочка #.
Читай про функцию abs в pascal. В присваивании значения переменной min и в условии, где сравниваешь с min ее применяй.
Вывод на экран:
writeln (‘indeks min elementa masiva ‘, j); writeln (‘min elementmasiva ‘, A[j]);
Изо всей благодати
Видео уроки паскаль: поиск максимального и минимального значения
В руках крепко сжатых
Я донесу только капли
Источник: www.programmersforum.ru
Sample Code
Выведите количество вариантов расстановки ладьи на шахматной доске, чтобы ни одна из них не угрожала другой
2016-04-17 11:29:32
Выведите количество вариантов расстановки ладьи на шахматной доске, чтобы ни одна из них не угрожала другой. Размер доски NxN (n вводится пользователем). Предусмотрите возможность вывода и самих вариантов расстановки.
Дан текст из строчных латинских букв, за которым следует точка. Определить каких букв-гласных (a,e,o,i,u) или согласных — больше в этом тексте
2016-04-17 11:27:41
Использовать множество, при выполнении этого задания.
Найдите значения функции y=x2+1,для x=0.2,0.4,0.6. 20
2016-04-17 11:25:18
Задайте форматированный вывод для X всего 5 знаков, из них после запятой-один. Для Y всего восемь знаков, из них после запятой-два.
Вычислить значение функции: y=sin(x/(3+x^5))+lg(1,3x+x^3)
2016-04-17 11:22:13
Дана последовательность целых чисел (от -100 до 100) записанных через пробел. Требуется построить эту последовательность по возрастанию
2016-04-17 11:20:38
Дана последовательность целых чисел (от -100 до 100) записанных через пробел. Требуется построить эту последовательность по возрастанию. Входные данные: в первой строке записано целое число N, во вторйо строке последовательность чисел через пробел. Выходные данные: в единственной строке записать последовательность чисел по возрастанию.
Кодирование методом контроля чётности
2016-04-17 11:18:45
Вводится k — число символов в блоке и последовательность двоичных символов, длина которой кратна (k-1). Если кратность нарушается, то последние символы последовательности игнорируются. Для каждой комбинации из (k-1) символов по методу контроля четности определяется значение k-ого, контрольного, символа и вся комбинация из k символов добавляется в результирующую последовательность, выводимую на экран по окончании кодирования всей входной последовательности символов.
Как найти максимальный элемент в списке Python
Вывести на экран сумму или произведение чисел в зависимости от условия
2016-04-14 15:10:23
Написать программу, запрашивающую 3 целых числа и выводящая сумму этих чисел на экран, если максимум этих чисел больше 12. Вывод на экран произведения этих чисел, если минимум этих чисел меньше или равен 12.
Источник: samplecode.ru
Задача 1.4.3.
Составить программу нахождения экстремального элемента или его порядкового номера при заданном одномерном массиве А из n элементов (или массивов А и С по n элементов в каждом).
Определить наименьшего из значений Аi — Сi.
A: array [1..5] of integer = (-15, 6, 30, -7, 18);
C: array [1..5] of integer = (85, 13, -12, 22, 12);
i, temp, min, min_index: integer;
writeln(‘Даны два массива:’);
writeln(‘A: [-15, 6, 30, -7, 18]’);
writeln(‘B: [85, 13, -12, 22, 12]’);
writeln(‘Определения порядкого номера наименьшей по абсолютной величине пары Ai-Ci. ‘);
for i:=Low(A) to High(A) do
Результаты работы программы
Задача 1.6.
Составить программу вычисления N значений функции Y для X, изменяющегося от Х1 с шагом dX. По формуле
SysUtils, things, math;
Y, X, dX, A, X1, Border: extended;
A := RequestNumber(‘Введите переменную A:’);
N := abs(round(RequestNumber(‘Введите число шагов N:’)));
X := RequestNumber(‘Введите стартовую точку X1:’);
dX := RequestNumber(‘Введите величину шага dX:’);
Y := -sqrt(A**2 — (x — A)**2)
s := Format(‘Точка %:2d: (x: %.3f, y: %.3f)’, [i, X, Y]);
Результаты работы программы
Задача 2.5.1.
Составить алгоритм и программу для решения задачи с использованием одномерных и двумерных массивов.
Для матрицы из 2 столбцов и 10 строк отпечатать номер каждой строки, элементы которой имеют совпадения значений, и число таких строк.
Matrix: array [1..10] of array [1..2] of integer = ((1, 10), (3, 3), (15, 43), (8, 8),
(16, 12), (13, 22), (20, 99),
(77, 77), (14, 14), (34, 69));
writeln(‘Поиск строк, имеющих совпадающие значения в матрице из 2 столбцов и 10 строк:’);
for i:=Low(Matrix) to High(Matrix) do
if Matrix[i][1] = Matrix[i][2] then
s := Format(‘Строка %2d: |%2d %2d|’, [i, Matrix[i][1], Matrix[i][2]]);
writeln(‘Всего строк с совпадающими значениями: ‘, n);
Результаты работы программы
Дана матрица, состоящая из n строк и n столбцов или одномерные из м элементов каждый. Составить алгоритм и программу для получения и вывода указанных в условии результатов и самих массивов, если изменялись какие-либо их элементы. Алгоритм любой задачи может быть составлен с использованием единственного двукратного цикла.
Дан массив C1, C2…,Cn. Изменить матрицу, увеличив каждый элемент, который меньше элемента главной диагонали, находящего с ним в одной строке, на Сi, где i- номер строки. Подсчитать общее число изменённых элементов.
i, k, n, Changes, Temp: integer;
Matrix: TMatrix; // array of array of integer
C: array of integer;
randomize; //Инициализируем генератор случайных чисел
//Создание данных для задачи
writeln(‘Программа создаёт матрицу n на n и массив C с n элементами, заполненные случайными числами от 0 до 100.’);
n := abs(round(RequestNumber(‘Введите n:’)));
for i:=Low(Matrix) to High(Matrix) do
for k:=Low(Matrix[i]) to High(Matrix[i]) do
PrintMatrix(Matrix); //Процедура описана в модуле things
writeln(‘Внесение изменений в матрицу. ‘);
for i:=Low(Matrix) to High(Matrix) do
for k:=Low(Matrix[i]) to High(Matrix[i]) do
writeln(#10#13’Количество изменений: ‘, Changes);
Результаты работы программы
Источник: studfile.net