Форум tobolsk.net

Люди, помогите, кто может, плиз!
Требуется написать программу для расставления трёх чисел в порядке возрастания на языке QBasic!
Сутки сидел, ломал над этим голову - так ничего и не сделал (ну не получается никак и всё, чтобы в порядке возрастания расставлялись ) Кто может, помогите плиз!

Я лично тоже в этом не разбираюсь. Нам потом тоже надо будет делать какие нибудь программы на этом языке. Не знаю как буду делать. Сходи в библиотеку возьми учебник И ВСЁ.

DimeX писал(а):Люди, помогите, кто может, плиз!
Требуется написать программу для расставления трёх чисел в порядке возрастания на языке QBasic!
Сутки сидел, ломал над этим голову - так ничего и не сделал (ну не получается никак и всё, чтобы в порядке возрастания расставлялись ) Кто может, помогите плиз!

решу твою проблему за 5 WMZ или 100 WMR

Demon писал(а):Я лично тоже в этом не разбираюсь. Нам потом тоже надо будет делать какие нибудь программы на этом языке. Не знаю как буду делать. Сходи в библиотеку возьми учебник И ВСЁ.

На самом деле в этом ничего сложного нет, тут всё опирается на логику! чтобы написать какую-то программу достаточно всего лишь знать команды... А всё остальное - надо просто логически думать! вот и в моём случае, команды я знаю, а логики не хватает!

ru писал(а):

DimeX писал(а):Люди, помогите, кто может, плиз!
Требуется написать программу для расставления трёх чисел в порядке возрастания на языке QBasic!
Сутки сидел, ломал над этим голову - так ничего и не сделал (ну не получается никак и всё, чтобы в порядке возрастания расставлялись ) Кто может, помогите плиз!

решу твою проблему за 5 WMZ или 100 WMR

хм... А чисто по человески не сможешь помочь? как человек человеку?

DimeX писал(а):

Demon писал(а):Я лично тоже в этом не разбираюсь. Нам потом тоже надо будет делать какие нибудь программы на этом языке. Не знаю как буду делать. Сходи в библиотеку возьми учебник И ВСЁ.

На самом деле в этом ничего сложного нет, тут всё опирается на логику! чтобы написать какую-то программу достаточно всего лишь знать команды... А всё остальное - надо просто логически думать! вот и в моём случае, команды я знаю, а логики не хватает!

Ну вот я и говорю надо сходить в библиотеку да посмотреть.

DimeX писал(а): хм... А чисто по человески не сможешь помочь? как человек человеку?

Ну и читай тогда "Яндекс" раз такой жадный
Ключевыми словами будут: "QBasic" и "метод пузырька"

На глюки не проверял, но примерно:

max = 3
DIM n(max)
PRINT "Sortirovka po vozrastaniy"
PRINT
FOR i = 1 TO max
PRINT "Vvedite" + STR$(i) + "-oe chislo ";
INPUT n(i)
NEXT i
FOR f = 1 TO max - 1
FOR s = f TO max - 1
IF n(s) > n(s + 1) THEN t = n(s + 1): n(s + 1) = n(s): n(s) = t
NEXT s
NEXT f
PRINT
PRINT "Chisla po porjdky:"
FOR i = 1 TO max
PRINT n(i);
NEXT i

во во