Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 25.12.2012, 05:51   #1 (permalink)
vitjok
Member
 
Регистрация: 29.09.2012
Сообщений: 72
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Векторы в Паскаль

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

Старый 25.12.2012, 05:51
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Давайте я вам помогу найти схожие с вашей темы

Векторы
Паскаль
Векторы в Паскале
Паскаль
Паскаль
Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл

Старый 25.12.2012, 09:07   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от vitjok Посмотреть сообщение
даже не имею представления как сделать (
Я тоже. Ибо описанным Вами свойством (чередование возрастаний и убываний) обладает любой массив. Кроме разве что состоящего из одинаковых элементов.
Vladimir_S вне форума   Ответить с цитированием
Старый 25.12.2012, 11:14   #3 (permalink)
Jogi
Новичок
 
Регистрация: 19.12.2012
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

мне привели пример что должно получится так: nine.png
но так должно быть с любыми числами, как я понял он должен получится "волнообразный" что ли
Jogi вне форума   Ответить с цитированием
Старый 25.12.2012, 13:46   #4 (permalink)
vitjok
Member
 
Регистрация: 29.09.2012
Сообщений: 72
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

а можно поподробнее, вроде как понял суть, но как сделать это в программе???)
vitjok вне форума   Ответить с цитированием
Старый 25.12.2012, 16:18   #5 (permalink)
Jogi
Новичок
 
Регистрация: 19.12.2012
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

вот код держи)
Код:
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.
Jogi вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 25.12.2012, 16:32   #6 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Jogi Посмотреть сообщение
вот код держи)
Ну, это не совсем та задача. В исходной-то требуется взять готовый массив и отсортировать его так, чтобы получились "волны", а тут просто идет формирование массива по принципу "стартуя с минимума, добавлять по единичке, пока не достигнем максимума, потом отнимать по единичке до минимума, потом опять сначала". Впрочем, если подойдёт, то хорошо.
Vladimir_S вне форума   Ответить с цитированием
Старый 25.12.2012, 16:43   #7 (permalink)
vitjok
Member
 
Регистрация: 29.09.2012
Сообщений: 72
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

да это совсем не то((я вообще не имею ни какого представления как его так отсортировать или заполнить((
vitjok вне форума   Ответить с цитированием
Старый 25.12.2012, 16:46   #8 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от vitjok Посмотреть сообщение
я вообще не имею ни какого представления как его так отсортировать или заполнить((
Ну если "заполнить", то воспользуйтесь программой, которую выложил Jogi.
Vladimir_S вне форума   Ответить с цитированием
Старый 25.12.2012, 16:54   #9 (permalink)
vitjok
Member
 
Регистрация: 29.09.2012
Сообщений: 72
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

она заполняеет однообразно(( в том то и проблема мне нужно так что бы было заполнено рандомно(( вроде этого 567431459742(
vitjok вне форума   Ответить с цитированием
Старый 25.12.2012, 16:57   #10 (permalink)
vitjok
Member
 
Регистрация: 29.09.2012
Сообщений: 72
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.