После каждой цифры в строке добавить букву

@Dino3aBpuK · Регистрация: 15.08.2012

Студворк — интернет-сервис помощи студентам

код на quickbasic, лучше с обьяснением , пожалуйста. Честно скажу сам придумал, переоценил свои возможности
задача:
1234
= 1 a 2 b 3 c 4 d .
abcd
месье знает толк в извращениях .
Спасибо

@m-ch · 21.08.2012, 21:55

В чем именно вопрос?

@Dino3aBpuK · 22.08.2012, 09:18 **[ТС]**

Сообщение от m-ch

В чем именно вопрос?

один массив чисел 1234
второй массив букв abcd
в переменной нужно получить 1a2b3c4d
делаю с помощью сложения и накапливания значений обоих массивов, не совпадает тип.

@m-ch · 22.08.2012, 10:31

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
s1$ = "1234"
s2$ = "abcd"
FOR i% = 1 TO 4
s$ = s$ + MID$(s1$, i%, 1) + MID$(s2$, i%, 1)
NEXT
PRINT s1$
PRINT s2$
PRINT s$

Добавлено через 9 минут
с массивами:

QBasic/QuickBASIC
1
2
3
4
5
6
7
DIM a(1 TO 4) AS INTEGER, b(1 TO 4) AS STRING
a(1) = 1: a(2) = 2: a(3) = 3: a(4) = 4
b(1) = "a": b(2) = "b": b(3) = "c": b(4) = "d"
FOR i% = 1 TO 4
s$ = s$ + LTRIM$(STR$(a(i%))) + b(i%)
NEXT
PRINT s$

@Turn · 25.08.2012, 20:12

В чём проблема???Можно массиву с цифрами дать тип string или "$"
А дальше оператором "+" соединять в цикле цифры и буквы!

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@Dino3aBpuK 0 / 0 / 0 Регистрация: 15.08.2012 Сообщений: 26

	После каждой цифры в строке добавить букву 21.08.2012, 17:06. Показов 1686. Ответов 4 Метки нет (Все метки) код на quickbasic, лучше с обьяснением , пожалуйста. Честно скажу сам придумал, переоценил свои возможности задача: 1234 = 1 a 2 b 3 c 4 d . abcd месье знает толк в извращениях . Спасибо 0

@m-ch 6180 / 945 / 313 Регистрация: 25.02.2011 Сообщений: 1,381 Записей в блоге: 1
	21.08.2012, 21:55
	В чем именно вопрос? 0

@Turn 7 / 7 / 0 Регистрация: 02.08.2012 Сообщений: 183
	25.08.2012, 20:12
	В чём проблема???Можно массиву с цифрами дать тип string или "$" А дальше оператором "+" соединять в цикле цифры и буквы! 0