5 / 5 / 1
Регистрация: 26.01.2010
Сообщений: 40
1

Рассортировать массив по убыванию числа от начала массива до первого экстремума, от первого до второго, от второго до конца массива.

26.01.2010, 22:20. Показов 1104. Ответов 6
Метки нет (Все метки)

Посмотрите и помогите кто может PLEASE
Создать два одномерных массива А и В различной длинны.
Определить MAX и MIN значение с помощью одной функции.
Рассортировать по убыванию числа от начала массива до первого
экстремума, от первого до второго, от второго до конца массива.
После каждой сортировки результаты выводить.

Добавлено через 59 минут
мне сдавать надо завтра.СПАСИТЕ!!!
В голову ничё не идёт
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.01.2010, 22:20
Ответы с готовыми решениями:

Выходной поток первого числа, второго , суммы первого и второго чисел
Здравствуйте! Помогите пожалуйста написать программу, которая через стандартный входной поток...

Требуется зашифровать текст из первого массива, заменяя буквы первого массива символами из второго
В виде массива символов дан текст (ввод с клавиатуры). Случайным образом заполните второй массив из...

Сформировать массив из элементов, больших второго элемента первого массива и положительных элементов второго
Сформировать массив из элементов исходных массивов, больших второго элемента первого массива и...

Массив: Определите все серии подряд идущих элементов из первого массива, совпадающие с сериями второго массива
Даны два массива. Определите все серии подряд идущих элементов из первого массива (серия может...

6
Retired
7726 / 2558 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
27.01.2010, 05:07 2
Цитата Сообщение от serg1986
Определить MAX и MIN значение с помощью одной функции
Функция не может вернуть и максимум и минимум.
Цитата Сообщение от serg1986
Рассортировать по убыванию числа от начала массива до первого
экстремума, от первого до второго, от второго до конца массива
Ну тут нужно использовать элементарный "пузырек", а параметрах процедуры указывать с какого по какой элемент сортировать. Делается это примерно так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const
  N=10;{количество элементов массива}
type
  MyArr = array [1..N] of integer;
...
procedure Sort(x:MyArr; a,b:integer);
var
  i,j,temp:integer;
begin
  for i:=a to b-1 do
    for j:=i+1 to b do
      if x[i]<x[j] then
      begin
        temp:=x[i];
        x[i]:=x[j];
        x[j]:=temp
      end;
end;
Цитата Сообщение от serg1986
мне сдавать надо завтра
Печально.
1
175 / 172 / 40
Регистрация: 14.11.2009
Сообщений: 507
27.01.2010, 12:23 3
Inadequate,
можно сделать одной функцией и мах и мин.
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
const
n=10;
type
mas=array[1..100] of integer;
 
function MinMax (k:byte;a:mas):integer;
var
maxmin,i:integer;
begin
case k of
1:begin
maxmin:=a[1];
for i:=2 to n do
if  a[i]>maxmin then maxmin:=a[i];
end;
2:begin
maxmin:=a[1];
for i:=2 to n do
if a[i]<maxmin then maxmin:=a[i];
end;
end;
minmax:=maxmin;
end;
 
var
a:mas;
i:integer;
begin
randomize;
write('[');
for i:=1 to n do begin
a[i]:=random(51)-10;
write(a[i]:3);
end;
writeln(']');
writeln('max=',minmax(1,a));
writeln('min=',minmax(2,a));
readln
end.
0
Retired
7726 / 2558 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
27.01.2010, 16:00 4
pikusfikus, ну и что Вы написали? Она у Вас все равно возвращает либо максимум либо минимум, в зависимости от указанного параметра. Кстати ищите Вы их не совсем лучшим способом. Я же писал о том, что функция не может вернуть и максимум и минимум.
0
Почетный модератор
64272 / 47571 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
27.01.2010, 16:04 5
функция не может вернуть и максимум и минимум.
Как-то так.
Pascal
1
2
3
4
5
6
7
function MaxMin(k:byte;a:mas; var min:integer):integer;
.........................
MaxMin:=max;
end;
...........................
x:Maxmin(n,a,mn);
min:=mn;
0
Retired
7726 / 2558 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
27.01.2010, 16:31 6
Puporev, так и я могу, тока это не то совсем. Функция в данном случае вернет только максимум, а минимум уже идет, как параметр-переменная. Функция может вернуть только либо минимум либо максимум. Если следовать такой логике, то можно сказать, что и процедуры с параметрами-переменными что-то возвращают...
0
5 / 5 / 1
Регистрация: 26.01.2010
Сообщений: 40
27.01.2010, 18:44  [ТС] 7
это всё примерно должно выглядеть так,
только у меня переменных лишних многовато
мне так примерно объяснили
а я так и не разобрался
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
USES CRT;
const na=10; nb=7;
type mas=array[1..na] of integer;
var a:mas; b:mas; i,imax,imin,max,min,k1,k2:integer;
 
  Procedure sozd(var x:mas; k:integer);
  begin
    for i:=1to k do
    x[i]:=random(50);
  end;
  Procedure VIVOD(var x:mas; k:integer; t:string);
begin
   writeln(t);
   for i:=1 to k do
   write(x[i]:0,'');
   writeln;
end;
  function maxmin(var x:mas; k:integer):integer;
var i:integer;
 begin
    min:=maxint; max:=-maxint;
    for i:=1 to k do
 begin
    if x[i]>max then
 begin
    max:=a[i];
    imax:=i;
 end;
    if x[i]<min then
 begin
    min:=x[i];
    imin:=i;
 end;
 end;
    k1:=imin;k2:=imax;
    if imax>imin then
 begin
    k1:=imax;k2:=imin;
 end;
  Procedure sort(var l1,l2:integer;x:mas);
 var c:integer;
 begin
    if l2-l1<1 then
 begin
    i:=l1;
    repeat
    if x[i]<x[i+1]then
 begin
    c:=x[i]; x[i]:=x[i+1];
    x[i+1]:=c;
    if  i<l1 then dec(i);
 end
    else inc(i);
    until i<=l2
 end;
 end;
 procedure rabota(var x:mas; k:integer, t:string);
 begin
  sozd(x,k);
  vivod(x,k,t);
  sort(l1,l2,x);
  vivod(x,k,t);
  sort(l1,l2,x);
  vivod(x,k,t);
  sort(l1,l2,x);
  vivod(x,k,t)
 end;
 BEGIN
  clrscr;
   randomize
    rabota(na, 'A');
    rabota(nb, 'B');
   readkey
  end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.01.2010, 18:44
Помогаю со студенческими работами здесь

Составить 3-й массив, каждый элемент которого будет равен четным элементам первого массива и нечетным второго массива
Даны 2 одномерных массива, составить 3 массив, каждый элемент которого будет равен четным элементам...

Массив. Элементы второго кратны 3 элементам первого массива
Доброго времени суток имеется фрагмент : begin Assign(m1,imf1);rewrite (m1);...

Как из первого класса достучаться до объекта второго, а из второго до метода первого?
Есть два класса. Как можно из drawCircle достучаться до x,y,R, и из DrawNCirles дстучаться до...

Описать класс Массив, найти массив, состоящий из элементов первого и второго массива
Процедура по поиску такого массива работает, но после нее меняются элементы первого массива. И еще...


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

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

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