Математика


 Правила(обновени на 11.05.2008)   Търсене   Потребители   Потребителски групи   Регистрирайте сеРегистрирайте се 
 ПрофилПрофил   Влезте, за да видите съобщенията сиВлезте, за да видите съобщенията си   ВходВход 


Не е нужно да се регистрирате!

Програма с масиви за числа във възходящ ред


 
Създайте нова тема   Напишете отговор    Информатика Форуми -> Delphi(Pascal)
Предишната тема :: Следващата тема  
Автор Съобщение
jvak



Регистриран на: 13 Mar 2008
Мнения: 4


МнениеПуснато на: Thu Mar 13, 2008 6:17 pm    Заглавие: Програма с масиви за числа във възходящ ред Отговорете с цитат

Трябва ми програма с масиви която да подрежда някокло произволни числа във възходящ ред...Някой може ли да ми помогне?
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
Реклама







Пуснато на:     Заглавие:

Върнете се в началото
Synaptic



Регистриран на: 06 Sep 2007
Мнения: 344


МнениеПуснато на: Thu Mar 13, 2008 6:32 pm    Заглавие: Отговорете с цитат

Код:
program Arrays;
 
var
   a: array[1..5] of Integer;
   i, j, tmp: Integer;
 
begin
   a[1] := 23;
   a[2] := 45;
   a[3] := 12;
   a[4] := 56;
   a[5] := 34;
   for i := 1 to 4 do
      for j := i to 5
         if a[j] > a[j + 1] then
            begin
               tmp := a[j];
               a[j] := a[j + 1];
               a[j + 1] := tmp;
            end
end.

Я виж работи ли. Използва се небезизвестният метод на сортиране - "балонче" Razz
Може да си я промениш да се въвеждат тези числа.. Smile
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение ICQ Номер
jvak



Регистриран на: 13 Mar 2008
Мнения: 4


МнениеПуснато на: Thu Mar 13, 2008 6:49 pm    Заглавие: Отговорете с цитат

Точно това ми трябваше само че сега ще пробвам дали бачка...трябва да си сваля паскал :Р само това tmp тямподобни ли тр да значи ? Wink
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
Synaptic



Регистриран на: 06 Sep 2007
Мнения: 344


МнениеПуснато на: Thu Mar 13, 2008 6:56 pm    Заглавие: Отговорете с цитат

Ми tmp често се ползва за временни стойности т.е когато има някаква размяна на стойности. Просто да е по-нагледно за този, който чете кода. ;]
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение ICQ Номер
jvak



Регистриран на: 13 Mar 2008
Мнения: 4


МнениеПуснато на: Thu Mar 13, 2008 7:08 pm    Заглавие: Отговорете с цитат

а можеш ли да ми обясниш по-подробно кое точно какво значи защото ми е малко трудно....
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
Synaptic



Регистриран на: 06 Sep 2007
Мнения: 344


МнениеПуснато на: Thu Mar 13, 2008 7:22 pm    Заглавие: Отговорете с цитат

Ами.. ще се опитам, въпреки че не съм добър в обясненията.

for i := 1 to 4 do - това завърта един цикъл. Цикъл ще продължи докато j = 5.
След това в този цикъл се вика нов, а именно for j := i to 5 .
Тогава се поставя условие if a[j] > a[j + 1] then - буквално преведено ("..ако стойноста на
а[j] е по-голяма от a[j+1] т.е по-голяма от следващото число...")
Ако този if е изпълнен, тогава се започва "процесът" по прехвърлянето и подреждането на числата.
Присвояват се tmp := a[j];
a[j] := a[j + 1];
a[j + 1] := tmp;
или на мой език казано - "омешват се". По-големите "изплуват" нагоре ( това е от bubble sort-a )
и по-малките остават долу и така се сортират.

За Bubble Sort може да разбереш като го google-неш. Smile

ПС. Ако сега започваш да се занимаваш с програмиране, зарежи тоя Паскал, доста
е остарял вече. Smile
На мен лично ми помогна да усмисля за к'во иде реч в програмирането, но само това. ;]
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение ICQ Номер
jvak



Регистриран на: 13 Mar 2008
Мнения: 4


МнениеПуснато на: Thu Mar 13, 2008 7:53 pm    Заглавие: Отговорете с цитат

Мерси много програмата ще ми свърши работа Smile
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
Покажи мнения от преди:   
Създайте нова тема   Напишете отговор    Информатика Форуми -> Delphi(Pascal) Часовете са според зоната GMT + 2 Часа
Страница 1 от 1

 
Идете на:  
Можете да пускате нови теми
Можете да отговаряте на темите
Не Можете да променяте съобщенията си
Не Можете да изтривате съобщенията си
Не Можете да гласувате в анкети
You cannot attach files in this forum
Може да сваляте файлове от този форум
Copyright © 2007-2013 math10.com.   изработка на сайт