PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
PascalABC.NET Что такое While x<=b+0.00000001? Уважаемые! Изучаю задачу. Условие : Составить программу для вычисления значений фукции F(x) на отрезке с шагом h. Функция равна sqrt(x)*sqr(cos(x)). Листинг : program v2z7; var x, y, a, b, h: real; begin writeln('Введите значение начала отрезка'); readln(a); writeln('Введите значение конца отрезка'); readln(b); writeln('Введите значение шага'); https://www.cyberforum.ru/ pascalabc-net/ thread1149426.html	PascalABC.NET Подключение модулей из любой директории Здравствуйте, подскажите, можно ли подключать модули, которые лежат не в том же месте, где и сама программа, и если можно то как. Заранее спасибо.
PascalABC.NET Проигрывание WAVE из ресурса https://www.cyberforum.ru/ pascalabc-net/ thread1149057.html Имеется ресурсный файл с WAVE-фалом sound.res {$mainresource sound.res} Как воспроизвети музыку из него?	PascalABC.NET Известны фамилии сотрудников, инициалы, номера телефонов. Найти номер телефона по фамилии и инициалам владельца https://www.cyberforum.ru/ pascalabc-net/ thread1148959.html помогите с Исходником. Известны фамилии сотрудников, инициалы, номера телефонов. Найти номер телефона по фамилии и инициалам владельца.
В файл f записан текст. Подсчитать число слов в этом файле PascalABC.NET Помогите написать код. В файл f записан текст. Подсчитать число слов в этом файле.	PascalABC.NET Получить последовательность по правилу https://www.cyberforum.ru/ pascalabc-net/ thread1148387.html Помогите пожалуйста. Получить вот это a ab abc ... x Примерно вот так var i:char; j:integer; begin for i:='a' to 'z' do
PascalABC.NET Получить символьную последовательность по правилу Помогите пожалуйста. Получить вот это abc ... z zbc ... z zzc ... z zzzzzzzz Примерно вот так var i:char; j:integer; begin https://www.cyberforum.ru/ pascalabc-net/ thread1148378.html	PascalABC.NET Маленькая ошибка, поиск лишних пробелов в строке и их удаление Вводится строка с лишними пробелами, удалить их. Использовать процедуры или функции, по возможности использовать length, pos, delete, insert, без типа char. Получилось вот это, но не работают две главные строчки. Заранее благодарю за помощь и советы :) program d1; var a: string; i: integer;
PascalABC.NET Ввести целочисленную матрицу A(N×M) , вывести её. Найти сумму её чётных элементов, исключая максимальный элемент https://www.cyberforum.ru/ pascalabc-net/ thread1148215.html Ввести целочисленный двумерный массив A N ×M , вывести его. Найти сумму его чётных элементов, исключая максимальный элемент (всего массива). Поиск максимума оформить в виде подпрограммы. Найденной суммой заменить угловые элементы массива.	PascalABC.NET Вывести наибольшее слово, которое имеет гласные буквы. Использовать множества https://www.cyberforum.ru/ pascalabc-net/ thread1147435.html Помогите написать программу , которая выведет самое длинное слово , которое содержит гласные буквы. Для описания гласных букв использовать множества. Это всё , до чего додумался. program Lab_Set; var m : array of string; max,s : string; i,k,l: longint; const rzd=; procedure Razbit;
PascalABC.NET Объяснить принцип действия Есть такое вот задание: Дано целое число N (>0). Сформировать и вывести целочисленный массив размера N, содержащий степени двойки от первой до N-й: 2, 4, 8, 16, ... И есть решение: const n=15; var m:array of integer; i:integer; begin m:=2;	PascalABC.NET Вычислить значение выражения, используя функцию https://www.cyberforum.ru/ pascalabc-net/ thread1147319.html Использовать функцию y=\frac{max\left(a\cdot b+c,\ b\cdot c+a,\ c\cdot a+b \right)\ -\ min\left(a,\ b,\ c \right)}{min\left(a+b^2,\ b+c^2,\ c+a^2 \right)\ +\ max\left(a,\ b,\ c \right)}

volvo

Супер-модератор

32793 / 21133 / 8144

Регистрация: 22.10.2011

Сообщений: 36,393

Записей в блоге: 8

15.04.2014, 22:14

Нужно поменять min и max в массиве. Найти ошибку. Меняет совсем не то. - PascalABC.NET - Ответ 6050746

15.04.2014, 22:14. Показов 370. Ответов 1

Метки (Все метки)

Ответ

Pascal

program h;
 
const
  n = 10;
 
var
  a: array[1..n] of integer;
  i: integer;
  min, max, temp: integer;
  n_max, n_min: integer;
 
begin
  for i := 1 to n do
    readln(a[i]);
  min := a[1];max := a[1];
  n_min := 1;n_max := 1;
  for i := 1 to n do
  begin
    if a[i] < a[n_min] then begin min := a[i]; n_min := i; end; // здесь - внимательнее
    if a[i] > a[n_max] then begin max := a[i]; n_max := i; end;
  end;
  writeln( '   min=',  min, '   max=', max );
  writeln;
  for i := 1 to n do
    write( a[i]:3);
  begin
    temp := a[n_min]; // здесь тоже
    a[n_min] := a[n_max];
    a[n_max] := temp;
  end;
  writeln();
  writeln('результат:');
  for i := 1 to n do
    write(a[i]:3);
end.

Вернуться к обсуждению:
Нужно поменять min и max в массиве. Найти ошибку. Меняет совсем не то. PascalABC.NET

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

15.04.2014, 22:14

Готовые ответы и решения:

Найти в массиве max и min элементы, поменять их местами
Дана программа,которая ищет max и min элементы,а после меняет их местами.Дали дополнительное...

В массиве найти и поменять местами max и min элементы
Попросили помочь, а я только на Си пишу пока что. Если несложно помогите.

Найти в одномерном массиве F(n) max и min элементы и поменять их местами.
Найти в одномерном массиве F(n) max и min элементы и поменять их местами.

Найти max и min элементы в массиве и номер элемента, близкого к среднему арифметическому min и max.
Привет всем! Очень прошу помочь в решении задачи на определение характеристик одномерного массива....

	15.04.2014, 22:14

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

15.04.2014, 22:14

Помогаю со студенческими работами здесь

Поменять местами min и max элементы в массиве
Поменять местами min и max элемент в массиве. Если можно в виде блок-схемы.

Поменять местами min и max элемент в массиве
1) Найти значение min элемента n строки и m столбца в которой он расположен. 2) Поменять местами...

Поменять местами max и min в одномерном массиве
Значения нашла, а поменять местами не знаю как. Помогите! program poisk; var max,min,i,n, imax,...

Поменять местами min и max значения в массиве
Даны массивы А1, … , А20 В1, … , В20 Поменять местами Аmin и В max .

Наверх