Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 07.06.2015
Сообщений: 14
1

Переставить в обратном порядке буквы, расположенные между второй и десятой буквой

23.06.2015, 20:49. Показов 522. Ответов 4
Метки нет (Все метки)

Помогите, пожалуйста, с задачей.
Дано слово из 12ти букв. Переставить в обратном порядке буквы, расположенные между второй и десятой буквой( т. е. с третьей по девятую).
Желательно на freebasic.
Заранее спасибо!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.06.2015, 20:49
Ответы с готовыми решениями:

Как переставить цифры числа в обратном порядке
Написать программу на Бэйсике, которая «реверсируют» заданное целое число, т.е. переставляет...

Переставить в обратном порядке буквы, расположенные между второй и десятой
Дано слово из 12-ти букв. Переставить в обратном порядке буквы, располо- женные между второй и...

Переставить в обратном порядке буквы, расположенные между второй и десятой буквами
Дано слово из 12 букв. Переставить в обратном порядке буквы, расположенные между второй и десятой...

Дано слово из 12 букв. Переставить в обратном порядке буквы, расположенные между второй и десятой буквами (т.е. с третьей по девятую)
Дано слово из 12 букв. Переставить в обратном порядке буквы, расположенные между второй и десятой...

4
236 / 195 / 21
Регистрация: 04.06.2014
Сообщений: 1,309
23.06.2015, 22:31 2
QBasic/QuickBASIC
1
2
3
4
5
6
10 A$ = 'CONTROLSLOVO'
20 FOR I = 2 TO 9
30 B$ = MID(A$,I,1)
40 MID(A$,I,1) = 9-I+2
50 MID(A$,9-I+2,1) = B$
60 NEXT I
Примерно так.
0
0 / 0 / 0
Регистрация: 07.06.2015
Сообщений: 14
23.06.2015, 22:55  [ТС] 3
Спасибо.
А не могли бы вы написать то же самое на Freebasic?

Добавлено через 33 секунды
SmittWesson, Спасибо.
А не могли бы вы написать то же самое на Freebasic?
0
236 / 195 / 21
Регистрация: 04.06.2014
Сообщений: 1,309
25.06.2015, 00:08 4
Цитата Сообщение от takayaann Посмотреть сообщение
А не могли бы вы написать то же самое на Freebasic?
Может Вам ещё пивка принести и в попку поцеловать? Вас взяли на ручки, а Вы уже на шею садитесь. Не хорошо, это.
0
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
19.05.2016, 10:57 5
takayaann
Программа проверена

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
DECLARE SUB SWEP (i!, j!)
CLS
DIM SHARED A AS STRING
 
A = "CO3456789OVO"
PRINT A
 
FOR i = 3 TO 6
   SWEP i, 12 - i
NEXT i
PRINT A
END
 
SUB SWEP (i, j)
   DIM b AS STRING
   DIM c AS STRING
   b = MID$(A, i, 1)
   c = MID$(A, j, 1)
   MID$(A, i, 1) = c
   MID$(A, j, 1) = b
END SUB
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2016, 10:57

Переставить в обратном порядке строки, расположенные между второй и десятой
Дан двумерный массив, состоящий из 12-ти строк и 8-ми столбцов. Переставить в обратном порядке...

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

Переставить в обратном порядке буквы расположенные в слове между K и S буквами
Дано слово из 12 букв. Переставить в обратном порядке буквы расположенные между K и S буквами....

Переменные строкового типа. Переставить в обратном порядке буквы, расположенные между к-й и s-й буквами
Помогите пожалуйста)))) и если можно самым простым способом))) Дано слово 15-ти букв. Переставить...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru