Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
 Аватар для Kalina
0 / 0 / 0
Регистрация: 13.11.2012
Сообщений: 4

В заданном номере телефона увеличить 4ю цифру на 1 и вывести результат

18.12.2008, 17:00. Показов 1580. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Очень срочно нужна помошь в решении задачи.По Qbasic . В заданном номере телефона увеличить 4ю цифру на "1" и вывести результат.( если 4я цифра равна 9,то заменить ее на "0").Телефон вводить в виде 3цифры,тире,2цифры,тире,2цифры.
Заранее огромное спасибо!
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
18.12.2008, 17:00
Ответы с готовыми решениями:

В заданном номере телефона увеличить четвертую цифру на 1 и вывести результат
В заданном номере телефона увеличить четвертую цифру на 1 и вывести результат. Если же четвертая цифра = 9, то заменить ее на знак пустого...

Номере телефона в маске
Здравствуйте, как сделать , что бы в маску числа вводились с самого начала, а не с любого места в маске?(при добавлении в базу пробелы в...

Замена в номере телефона
Убираю все не числа в номере телефона: $tel = preg_replace('/\D*/', '', $tel); Подскажите, как сюда еще добавить проверку-замену: если...

2
0 / 0 / 2
Регистрация: 10.11.2010
Сообщений: 6
11.11.2010, 13:10
QBasic/QuickBASIC
1
2
3
4
5
6
PRINT "VVEDITE TELEPHONNIY NOMER"
PRINT "PRIMER: 11-22-33"
INPUT N$
N1 = VAL(MID$(N$, 5, 1))
IF N1 = 9 THEN N2 = 0 ELSE N2 = N1 + 1MID$(N$, 5, 1) = LTRIM$(STR$(N2))
PRINT N$
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
11.11.2010, 19:36
Лучший ответ Сообщение было отмечено как решение

Решение

читайте внимательнее условие
3цифры,тире,2цифры,тире,2цифры.
PureBasic
1
2
3
INPUT "vvedite nomer ", a$
IF MID$(a$, 5, 1) = "9" THEN MID$(a$, 5, 1) = "0" ELSE MID$(a$, 5, 1) = CHR$(ASC(MID$(a$, 5, 1)) + 1)
PRINT a$
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
11.11.2010, 19:36
Помогаю со студенческими работами здесь

Regex для замены в номере телефона
Как через Regex заменить в строке 8(066)-1234567 и 8095-123-45-67 на (066)-1234567 и 095-123-45-67 ??

Определить цифры, отсутствующие в номере телефона
Допустим у меня есть блок: int i=3; if(условие) { i=5; } Console.Writeline(i); Мне выводит 3,а надо 5.Я так понимаю это...

Проверка на наличие первой цифры 8 в номере телефона
Всем доброго дня. У меня есть форма на которой расположен MasketBox с маской (000) 000-00-00. Подскажите как можно проверить...

Определить, какие цифры отсутствуют в номере мобильного телефона
Задано номер мобильного телефона. Определить, какие цифры отсутствуют в этом номере. входные данные В единственной строке задано...

Задан номер мобильного телефона - определить, какие цифры отсутствуют в этом номере
Задан номер мобильного телефона. Определить, какие цифры отсутствуют в этом номере. Помогите!


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru