Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> QBasic, Разделение числа. 
:(
    Опции темы
HerSystem
Дата 18.10.2006, 21:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 3.6.2006

Репутация: нет
Всего: нет



Короче, дано двухзначное число, нам нужно сложить эти два числа. Например дано 25, надо сложить 2 и 5.
Впринципе я знаю как это сделать, но может у когонибудь есть другой вариант решениие поставленной задачи.

Способ 1
Код

CLS
INPUT "Введите двухзначное число"; x
a = int(x/10)
b = (x/10-a)*10
c = a + b
PRINT c

Здесь a - первое число, b - второе число, ну а с - сумма.
PM MAIL   Вверх
Naghual
Дата 21.10.2006, 13:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



нормально решено.
можно еще через операции над строками, но будет дольше.
Хотя на такой задаче и не увидиш этого


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Тутанхамец
Дата 22.10.2006, 08:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6



Или вот так:
Код

a=25
a1=a \10
a2=a mod 10
sum=a1+a2


Хотя всё это один хрен. smile
PM MAIL   Вверх
HerSystem
Дата 22.10.2006, 16:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 3.6.2006

Репутация: нет
Всего: нет



Тутанхамец, 
Спасибо.
Интересное решение. Даже и не предпологал о таких вещах.
Потом порылся в инете и нашёл инфу про эти операторы Среда Q Basic

Это сообщение отредактировал(а) HerSystem - 22.10.2006, 19:16
PM MAIL   Вверх
HerSystem
Дата 3.11.2006, 20:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 3.6.2006

Репутация: нет
Всего: нет



А вот ещё задачка, только решения я уже незнаю.
Дано целое число, больше 99, надо найти третью с конца цифру.
Дпоустим есть число 2945 искомая 9.
PM MAIL   Вверх
boevik
Дата 3.11.2006, 20:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35



Примерно так же как Тутанхамец, предлогал
Код

a=2945 
a1=a \100
a2=a1 mod 10
print a2



--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Akina
Дата 3.11.2006, 22:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Цитата(HerSystem @  3.11.2006,  21:41 Найти цитируемый пост)
Дано целое число, больше 99, надо найти третью с конца цифру.


Код

1000 Number = 2945
1010 DigitNum = 3

2000 If Not (Number > 99) Then End
2010 strNumber = CStr(Number)
2020 intLength = Len(strNumber)
2030 strChar = Mid(strNumber, intLength - DigitNum + 1, 1)

3000 print strChar
3010 End



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
HerSystem
Дата 3.11.2006, 22:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 3.6.2006

Репутация: нет
Всего: нет



Чёто я сразу не допёр, а второй код мне кажется не из этой серии smile 

Народ а может кто знает из какой книжки мой препод читает эти задачки?
PM MAIL   Вверх
mihanik
Дата 4.11.2006, 07:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109



Akina!!!

В QBasic вместо Cstr() используется Str$(), вместо Mid используется Mid$()

Поэтому твой код будет выглядеть так...

Код

1000 Number = 2945
1010 DigitNum = 3

2000 If Not (Number > 99) Then End
2010 strNumber = Str$(Number)
2020 intLength = Len(strNumber)
2030 strChar = Mid$(strNumber, intLength - DigitNum + 1, 1)

3000 print strChar
3010 End


Цитата(HerSystem @  3.11.2006,  22:49 Найти цитируемый пост)
Чёто я сразу не допёр, а второй код мне кажется не из этой серии  


HerSystem, как раз из той оперы.!!!

Akina сначала переводит число в текстовую строку, а потом из этой строки берёт третий справа символ...

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



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akina
Дата 4.11.2006, 23:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Цитата(mihanik @  4.11.2006,  08:57 Найти цитируемый пост)
В QBasic вместо Cstr() используется Str$(), вместо Mid используется Mid$()

Что да то да... плохо уже его помню...
Цитата(mihanik @  4.11.2006,  08:57 Найти цитируемый пост)
Поэтому твой код будет выглядеть так...

Думаю, еще будут вопли по поводу неуказанных типов переменных - придется им хвосты накрутить, кому процентами, а кому и долларами...  smile 




--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0818 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.