Технический форум - Векторы в Паскаль

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Векторы в Паскаль (http://www.tehnari.ru/f43/t83005/)

vitjok

25.12.2012 05:51

Векторы в Паскаль

здравствуйте) попалась такая задачка: нужно заполнить вектор и отсортировать так что бы несколько первых чисел возвростали потом убывали,и так далее чередования)
13542169 вот вроде такого должно получится)даже не имею представления как сделать (

Vladimir_S

25.12.2012 09:07

Цитата:

Сообщение от vitjok (Сообщение 838619)

даже не имею представления как сделать (

Я тоже. Ибо описанным Вами свойством (чередование возрастаний и убываний) обладает любой массив. Кроме разве что состоящего из одинаковых элементов.

Jogi	25.12.2012 11:14

Вложений: 1

мне привели пример что должно получится так: Вложение 113956
но так должно быть с любыми числами, как я понял он должен получится "волнообразный" что лиtehno015

vitjok

25.12.2012 13:46

а можно поподробнее, вроде как понял суть, но как сделать это в программе???)

Jogi	25.12.2012 16:18

вот код держи)

Код:

uses tpcrt;

var

  max,min : Byte;

  a: array[1..20] of byte;

  i,a1 : byte;

  b : boolean;

begin

  clrscr;

  write('Input min,max [0..127] : '); readln(min,max);

  b:=true; a[1]:=min; write(a[1]:4);

  for i:=2 to 20 do begin

    if b then begin a[i]:=a[i-1]+1; b:=a[i]<>max; end

         else begin a[i]:=a[i-1]-1; b:=a[i]=min; end;

    write(a[i]:4);

  end;

  writeln; readln;

end.

Vladimir_S

25.12.2012 16:32

Цитата:

Сообщение от Jogi (Сообщение 838771)

вот код держи)

Ну, это не совсем та задача. В исходной-то требуется взять готовый массив и отсортировать его так, чтобы получились "волны", а тут просто идет формирование массива по принципу "стартуя с минимума, добавлять по единичке, пока не достигнем максимума, потом отнимать по единичке до минимума, потом опять сначала". Впрочем, если подойдёт, то хорошо.

vitjok

25.12.2012 16:43

да это совсем не то((я вообще не имею ни какого представления как его так отсортировать или заполнить(( tehno015:tehnari_ru_325:

Vladimir_S

25.12.2012 16:46

Цитата:

Сообщение от vitjok (Сообщение 838787)

я вообще не имею ни какого представления как его так отсортировать или заполнить(( tehno015:tehnari_ru_325:

Ну если "заполнить", то воспользуйтесь программой, которую выложил Jogi.

vitjok

25.12.2012 16:54

она заполняеет однообразно(( в том то и проблема мне нужно так что бы было заполнено рандомно(( вроде этого 567431459742(

vitjok

25.12.2012 16:57

нужно чтобы он пенял сортировку(заполнение) убывания возврастанеие через определеноое кол-во элементов((

Часовой пояс GMT +4, время: 10:11.

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице