Random post#104

[дамьен.]

Славное задание "спроси гугл" обратилось головной болью.
Ибо там то же самое.
Метод пузырька мне будет сниться теперь в кошмарах.

@темы: неприятная неожиданность, производство, фабрика, детский труд, вести из реальности

Comments

[rock-n-rot]

У меня глюки, или имеется в виду метод сортировки массива чисел?

[дамьен.]

Он самый.

[rock-n-rot]

А там нужны какие-то общие сведения или программа?
просто, если нужно содействие, я могу поднять в памяти материалы своего первого курса (:

[дамьен.]

Я был бы очень благодарен. С:
Программа. Задача была такая: дана какая-то рандомная строка из букв без пробелов, еще с точкой на конце. Надо вывести в порядке частоты встречаемости в строке буквы, а если какие-то встречаются одинаковое число раз, их выводить в алфавитном порядке.
Все в принципе работало, пока дело не доходило до этих самых одинаково встречающихся букв, которые располагались как бог на душу положил.

[rock-n-rot]

А какой язык? И что программа делает с этими одинаковыми буквами?

[дамьен.]

Basic.
Она их тоже печатает, вместе с остальными, в положенном по количеству месте, но не в алфавитном порядке.
К примеру. Была строка absaabt.
И должно в таком случае получиться abst. А у меня s и t меняются местами.

Эх и объясняю я как немой пень. =/

[rock-n-rot]

то есть она выдаёт abts?
я не спец в бейсике, но, может быть, смогу покопаться и найти, что к чему, особенно если задание нужно сдавать не сегодня с утра.(: извините, что я так назойлив, просто мне правда кажется, что я могу помочь (:

[дамьен.]

Ну в данном примере да. Причем, может это уже мои галлюцинации, но менял он местами именно два последних символа, хотя вполне могло быть что это так совпало.
Его к обеду. И какая назойливость, вы для меня сейчас единственная надежда разобраться в этой путанице. Я даже и не знаю как отблагодарить за это желание помочь.

И прошу прощения, но сейчас я вынужден откланяться.
Еще раз спасибо)

[rock-n-rot]

Ааа, подождите! Могу ли я взглянуть на текст программы? (просто найти ошибку в тексте несколько проще, чем писать его с нуля)

[дамьен.]

Она лежит на другом компе, так что сейчас быстренько напечатаю с бумаги, но без особой дотошности в регистре, простите.

a$="donotworrybehappy."
n=len(a$)
dim a(26) 'массив с частотой встречаемости букв
dim d(26) 'массив с номером букв

for x=1 to n-1
b$=mid$(a$, x, 1)
y=asc(b$)-96
a(y)=a(y)+1
next x

for x=1 to 26
d(x)=x
next x

for x=1 to n-1
for y=x+1 to n
if a(x)<a(y) then
c=a(x)
a(x)=a(y)
a(y)=с
с1=d(x)
d(x)=d(y)
d(y)=c1
end if
next y
next x

for x=1 to 26
d(x)=d(x)+96
? chr$(d(x))
next x

[rock-n-rot]

Постараюсь поймать и устранить ошибку.) *с маниакальным блеском в глазах и невнятным бормотанием утащил текст в препараторскую*