Составить модель и алгоритм на Бейсике

[тиристор дима]

Составить модель и алгоритм на Бейсике

Помогите пожалуйста составить модель и алгоритм вот этой задачи"найти сумму заданного трехзначного числа с числом, полученным выписыванием цифр этого числа в обратном порядке" никак не могу tehno036

 

[duc]

Алгоритм элементарен: делим число на разряды, каждый в свою переменную, меняем местами и суммируем. Если вспомню про вопрос, то вечером нарисую. Сейчас клиентка позвонила, убегаю

 

[тиристор дима]

не забудь пожалуйста

 

[duc]

CLS
be:
INPUT "Введите исходное число"; a
s = FIX(a / 100)
IF s = 0 GOTO er
IF s > 10 GOTO er
d = FIX((a - s * 100) / 10)
e = a - s * 100 - d * 10
itog = s * 100 + e * 100 + d * 20 + s + e
PRINT itog
GOTO endp
er: PRINT "Ошибка, ожидается трёхзначное число"
GOTO be
endp:

Выделил сотни (S), если получил ноль или больше 10, то число не является трёхзначным и выдаётся сообщение об ошибке. Выделил десятки (D) и единицы (E)... Надеюсь дальше разберёшься сам. Писал и проверял на MS-DOS QBASIC 1992 года.

 

[duc]

Лопухнулся на граничном условии , шестая строка должна быть

IF s > 9 GOTO er

 

[тиристор дима]

НЕ понимаю почему, но у мы на уроках делали не так. Мы делали что в этом роде" INPUT "Введите исходное число"; a
s = FIX(a / 100)
d = FIX((a - s * 100) / 10)
e = a - s * 100 - d * 10
PRINT(здесь пишем что найти)
end
И вот как то так мы решаем.
Я не очень в этом разбираюсь может это язык другой. Помогите пожалуйста мне очень надо

 

[duc]

Пожалуйста:

INPUT "Введите исходное число"; a
s = FIX(a / 100)
d = FIX((a - s * 100) / 10)
e = a - s * 100 - d * 10
PRINT s * 100 + e * 100 + d * 20 + s + e

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

 

[iks2]

это работает...

CLS

INPUT "A = "; a

b1 = a \ 100
b2 = a \ 10 MOD 10
b3 = a MOD 10

b = 100 * b3 + 10 * b2 + b1

PRINT a + b
END

 

[prima]

это работает...

Работает...
1) Зачем поднимать старую тему?
2)

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

 

[iks2]

prima,
Вы извините, я хотел вас спросить.
У меня нет прав поднять старую тему?
Или это запрещено вообще? То есть - это первое неофициальное предупреждение?

 

[AlexZir]

У меня нет прав поднять старую тему? Или это запрещено вообще? То есть - это первое неофициальное предупреждение?

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

 

[prima]

Вы извините, я хотел вас спросить.

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