Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
QBasic Вычислить значение выражения плиз. 28 задание. в qbasic )) вообще никак не могу https://www.cyberforum.ru/ qbasic/ thread1434476.html По введенным значениям переменной вычислить и напечатать значение функции QBasic
Линейный процесс ЗАДАНИЕ: Составить блок-схему и программу на Бейсике, которая, по введенным значениям переменной Х={ 1 ; 2 ; 5 ; 7 ; 9 ; 12 } вычисляет и печатает значение функции , где к –...
QBasic Вывести фразы, слова в которых являются всевозможными перестановками слов исходной фразы по заданной фразе а$ сформировать и вывести фразы,слова в которых являются всевазможными перестановками слов исходной фразы https://www.cyberforum.ru/ qbasic/ thread1432458.html QBasic Определить, сколько существует различных комбинаций по размещению цифр в 8 ячейках Уважаемые специалисты! Нужна помощь. Задача: Есть 8 ячеек. Есть 5 цифр: 1,2,3,4,5 Сколько существует различных комбинаций по размещению этих цифр в 8 ячейках? Естественно, три ячейки всегда... https://www.cyberforum.ru/ qbasic/ thread1431394.html
Определите лучший результат и номер спортсмена, показавший его QBasic
В массив занесены данные о результатах выступления спортсменов в упражнении жим лежа : 305,5;363,5;320,5;190;301,5;290;312,5;315.Определите лучший результат и номер спортсмена ,показавший его ....
QBasic Метод хорд касательных в бэйсике здесь написано решение нелинейных уравнений методом хорд-касательных. в результате кроме х=0,739..... вывелись еще два значения -4,941....Е-03 и -2,47....Е-04, можете объяснить что это? https://www.cyberforum.ru/ qbasic/ thread1430002.html
QBasic Фигура Лиссажу Построить фигуру Лиссажу, имея на вход две переменные a, b. Сделать, чтобы шарик(тело) двигался по траектории данной фигуры. Проблема с шариком. Может кто-нибудь помочь? INPUT "a = "; a INPUT "b =... https://www.cyberforum.ru/ qbasic/ thread1428322.html QBasic В исходной строке а$ переставить местами n-ое и t-ое слова
В исходной строке а$ переставить местами п-е и т-е слова. Вывести полученную строку. Если слов с заданными номерами нет, вывести соответствующий ответ. Помогите, пожалуйста.
QBasic Заменить в тексте ЗАДАННОЕ(1) слово на ЗАДАННОЕ(2) слово Дан текст. Заменить в тексте ЗАДАННОЕ(1) слово на ЗАДАННОЕ(2) слово. Помогите пожалуйста с задачей https://www.cyberforum.ru/ qbasic/ thread1427508.html QBasic Определить максимальную оценку за четверть и номера учеников получивших эту оценку https://www.cyberforum.ru/ qbasic/ thread1426793.html
Можете решить.Пожалуйста 1.В 6"Б" классе были проведены 2 контрольные работы.К контрольной ученики не готовились и получили соответствующие оценки.Учитель решил их наказать,и сообщил,что за...
QBasic Задание в QBASIC
Дан массив R (N, M) и число К. Разделить элементы К-ой строки на диагональный элемент, расположенной в этой строке. В полученной матрице найти среднее арифметическое элементов К-й строки.
QBasic Вычислите значение переменной "C" по формуле помогите решить задачку . Вычислите значение переменной "C" по формуле a+b ,если a-нечетное число и a*b,если a-четное. Если можно напишите Блок-схему ,заранее спасибо . https://www.cyberforum.ru/ qbasic/ thread1423974.html
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
18.11.2015, 18:12 0

Если слово имеет нечётную длину, удалить в нём среднюю букву - QBasic - Ответ 8360074

18.11.2015, 18:12. Показов 832. Ответов 1
Метки (Все метки)

Ответ

Задача оказалась очень интересной
Предполагается, что слова разделены одним пробелом

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
DECLARE SUB DEL (s AS STRING, n%)
 
CLS
DIM SHARED s AS STRING
DIM n AS INTEGER
INPUT "STROKA ="; s
s = " " + s + " "
n1 = 1
 
DO
   n2 = INSTR(n1 + 1, s, " ")
   n = n2 - n1 - 1
   IF (n MOD 2 = 1) AND n <> 1 THEN
      n = (n1 + n2) / 2
      DEL s, n
      n1 = n2 - 1
   ELSE
      n1 = n2
   END IF
LOOP UNTIL n2 >= LEN(s)
 
PRINT LTRIM$(RTRIM$(s))
 
END
 
SUB DEL (s AS STRING, n AS INTEGER)
   DIM s1 AS STRING
   DIM s2 AS STRING
 
   s1 = LEFT$(s, n - 1)
   s2 = RIGHT$(s, LEN(s) - n)
   s = s1 + s2
END SUB


Вернуться к обсуждению:
Если слово имеет нечётную длину, удалить в нём среднюю букву QBasic
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2015, 18:12
Готовые ответы и решения:

Если слово имеет четную длину, удалить в нем вторую букву
Сформировать по строке а новую строку по правилу:если слово имеет четную длину,удалить в нем вторую...

Если слову имеет нечетную длину, удалить в нем все буквы "а"
сформировать по строке А новую строку по правилу:если слову имеет нечетную длину,удалить в нем все...

В словах заданной строки, имеющих нечетную длину, удалить среднюю букву
Ввести несколько строк, каждая из которых содержит некоторое количество слов. В словах заданной...

Дано слово если длина слова нечетная то удалить среднюю букву а если четное то удалить две средне
Дано слово если длина слова нечетная то удалить среднюю букву а если четное то удалить две...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.11.2015, 18:12

Преобразовать каждое слово в тексте: если слово нечётной длины, то удалить его среднюю букву
Задан текст. Между словами - пробел, за последним символом точка. Вывести текст, предварительно...

Если слово нечетной длины, то удалить его среднюю букву
Если слово нечетной длины, то удалить его среднюю букву.

Если слово нечетной длины то удалить его среднюю букву
Var s : string; Begin ReadLn(s); if Length(s) mod 2 = 1 then delete(s , 1 +...

Строка: Если слово нечетной длины, то удалить его среднюю букву
30. Дано слово. Если оно нечетной длины, то удалить его среднюю букву.

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