Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Вычисление суммы cos... https://www.cyberforum.ru/ pascal/ thread180909.html
Помогите вычислить. Вычислить сумму cos1+cos2+cos3... Окончание интеграционного процесса тогда, когда |cos1+cos(i+1)+cos(i+2)|>0,3. Вывести значения суммы.
Pascal Среднее геометрическое
Помогите плиз с заданием, весь день не могу понять как сделать. Без использования формулы суммы (то есть почленным суммированием) вычислить сумму 100 элементов геометрической прогрессии ...
Pascal помогите составить блок схему. помогите составить блок схему. program abc; uses crt; { граф модуль, что бы экран очищался каждый раз} var n,k,i:integer; begin clrscr; repeat https://www.cyberforum.ru/ pascal/ thread180900.html Pascal Составить программу для вычисления суммы бесконечного ряда с погрешностью Срочно нужна помощь:( https://www.cyberforum.ru/ pascal/ thread180894.html
Pascal одномерный массив.алгоритм с единственным циклом
при заданных коэффициентах А1,А2,...Аn и заданном значении Х вычислить значение многочлена А1Х+А2Х+...+AnX^n. Указание:использовать в цикле переменную,последовательные значения которой равны...
Pascal Р =1!+2!+...+n! https://www.cyberforum.ru/ pascal/ thread180889.html
Помогите решить Р =1!+2!+...+n! , пожалуста.
Pascal Переписать с текстового файла в новый текстовой файл https://www.cyberforum.ru/ pascal/ thread180887.html
Здравствуйте! Помогите, пожалуйста сделать задание в Паскале. Задание - Программа должна из текстового файла обработать строки символов(просто прочесть) и результат вывести в другом текстовом файле....
Пошаговая Детализация Pascal
Оформить процедурами основное решение задачи, ввод-вывод оформить в главной программе. Дана квадратная матрица порядка M. Заменить нулями отрицательные элементы матрицы, лежащие ниже главной...
Pascal Не строится очень большой график функции https://www.cyberforum.ru/ pascal/ thread180879.html
нужно построить график функции y:=exp(2*x)*ln(x)/ln(10)-exp(3*x*ln(3)); программа работает но когда я в менюшке выбираю пункт построить график паскаль зависает либо выдаёт ошибку. А в армию я не хочу
Pascal Определить количество цифр в введенных числах и вывести на экран сколько цифр в первом и втором числах ввести 2 числа, определить количество цифр в введеных числах и вывести на экран сколько цифр в первом и втором числах https://www.cyberforum.ru/ pascal/ thread180878.html
Pascal Вывести наибольшее целое K, при котором выполняется неравенство
помогите решить задачу в паскале Здравствуйте!пожалуйста помогите решить задачу. Дано целое число N (>1). Вывести наибольшее целое K, при котором выполняется неравенство 3K<N, и само значение 3K
Pascal переменной X присвоить произведение ненулевых элементов, Дан массив А(30). Если среди элементов массива есть элемент равный некоторому числу M, то переменной X присвоить произведение ненулевых элементов, расположенных до этого элемента, в противном случае... https://www.cyberforum.ru/ pascal/ thread180860.html
13077 / 5862 / 1706
Регистрация: 19.09.2009
Сообщений: 8,807
24.10.2010, 20:51 0

Дан массив размера 10.Переставить в обратном порядке элементы массива , рассположенные между его минимальным и максимальным элементами. - Pascal - Ответ 1054426

24.10.2010, 20:51. Показов 2888. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено sevenone как решение

Решение

В массиве может быть несколько элементов с минимальныи или максимальным значением. В коде выбирается отрезок, ближайший относительно начала массива.
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
program Project1;
 
function Min(const A, B : Integer) : Integer;
begin
  if A < B then
    Min := A
  else
    Min := B
  ;
end;
 
function Max(const A, B : Integer) : Integer;
begin
  if A > B then
    Max := A
  else
    Max := B
  ;
end;
 
const
  N = 10;
var
  Arr : array[1..N] of Integer;
  i, j, IMax, IMin, I1, I2, Num : Integer;
begin
  (*Формируем исходный массив и распечатываем его.*)
  Randomize;
  Writeln('Исходный массив:');
  for i := 1 to N do begin
    Arr[i] := Random(11); (*0..10*)
    if i > 1 then Write(', ');
    Write(Arr[i]);
  end;
  Writeln;
 
  (*Поиск индексов минимального и максимального элементов.*)
  IMin := 1;
  IMax := 1;
  for i := 1 + 1 to N do begin
    if Arr[i] < Arr[IMin] then
      IMin := i
    ;
    if Arr[i] > Arr[IMax] then
      IMax := i
    ;
  end;
 
  (*Перестановка.*)
  (*Меньший индекс.*)
  I1 := Min(IMin, IMax);
  (*Больший индекс.*)
  I2 := Max(IMin, IMax);
  j := I2;
  for i := I1 to (I1 + I2) div 2 do begin
    Num := Arr[i];
    Arr[i] := Arr[j];
    Arr[j] := Num;
    j := j - 1;
  end;
 
  (*Показываем обработанный массив.*)
  Writeln('Полученный массив:');
  for i := 1 to N do begin
    if i > 1 then Write(', ');
    Write(Arr[i]);
  end;
  Writeln;
  
  Readln;
end.
В этом коде перестановке подвергаются также сами минимальный и максимальный элелменты. Если их переставлять не надо, тогда код надо изменить так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
...
  (*Перестановка.*)
  (*Меньший индекс.*)
  I1 := Min(IMin, IMax);
  (*Больший индекс.*)
  I2 := Max(IMin, IMax);
  j := I2 - 1;
  for i := I1 + 1 to (I1 + I2) div 2 do begin
    Num := Arr[i];
    Arr[i] := Arr[j];
    Arr[j] := Num;
    j := j - 1;
  end;
...


Вернуться к обсуждению:
Дан массив размера 10.Переставить в обратном порядке элементы массива , рассположенные между его минимальным и максимальным элементами. Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.10.2010, 20:51
Готовые ответы и решения:

Дан массив размера 10. Переставить в обратном порядке элементы массива, расположенные между его мин и макс элементами
Приветствую Помогите с задачей пожалуйста Дан массив размера 10. Переставить в обратном порядке...

Переставить в обратном порядке элементы массива, расположенные между его первым и вторым нулевыми элементами
Дан массив размера 10. Переставить в обратном порядке элементы массива, расположенные между его...

Переставить в обратном порядке: элементы, расположенные между k-м и s-м элементами массива
Дан одномерный массив из 15 элементов. Переставить в обратном порядке: элементы, расположенные...

Переставить в обратном порядке элементы массива, расположенные между заданными элементами, не включая эти элементы
Дан массив А размера N и целые числа K и L (K≤L≤N). Переставить в обратном порядке элементы...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.10.2010, 20:51

Переставить в обратном порядке элементы массива, расположенные между заданными элементами, включая эти элементы
Дан массив А размера N и целые числа K и L (K≤L≤N). Переставить в обратном порядке элементы...

Удалить элементы расположенные между максимальным и минимальным элементами массива Х. Элементы массива Х вычисляются по формуле Xi=((-1)^i)*((i^2)-3*i), где i=1,2,...,10.
Удалить элементы расположенные между максимальным и минимальным элементами массива Х. Элементы...

Удалить из массива положительные элементы между максимальным и минимальным элементами
1 задача расчитать элементы массива по формуле 2 удалить из полученного массива все положительные...

Удалить из одномерного массива все элементы расположенные между максимальным и минимальным элементами массива
Удалить из одномерного массива все элементы расположенные между максимальным и минимальным...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru