Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
QBasic Одномерный массив. Определить сколько раз меняется знак в числовой последовательности https://www.cyberforum.ru/ qbasic/ thread267743.html
задан массив вещественных чисел. Определить, сколько раз меняется знак в данной последовательности и запомнить номера позиций, в которых происходит смена знака.
QBasic Дана матрица a(n,n). Перепишите элементы её главной диагонали в одномерный массив y(n)
Нужна помощь!!! В qbasic:Дана матрица a(n,n). Перепишите элементы её главной диагонали в одномерный массив y(n) и разделите их на максимальный элемент главной диагонали. Все переменные должны бать равны 12(i=12,j=12,n=12...). Жалательно комментарии Заранее спасибо
QBasic Поменяйте местами наибольший и наименьший элементы массива Помогите пожалуйста! В qbasic: В заданном массиве a(n) поменяйте местами наибольший и наименьший элементы (первые по порядку, если их несколько).N должно быть равно 8. Желательно комментарии к действиям Заранее спасибо! https://www.cyberforum.ru/ qbasic/ thread267304.html QBasic Массивы и матрицы 1.Переписать подряд в массив Z сначала положительные, а затем от- рицательные элементы массива C(n), подсчитать количество запи- санных в массив Z элементов. 2.Найти в каждой строке матрицы C(n, m) минимальный элемент и по- менять его местами с последним элементом строки. Выручайте пожалуйста, очень нужно... https://www.cyberforum.ru/ qbasic/ thread267178.html
QBasic Спутник земли
Сделать модель взлёта спутника с поверхности земли и дальнейшее его движение по окружности. Режим screen12.
QBasic Выяснить сумму элементов массива, у которых порядковый номер совпадает со значениями https://www.cyberforum.ru/ qbasic/ thread266625.html
Задана последовательность целых чисел. Выяснить сумму элементов массива ,у которых порядковый номер совпадает со значениями.
QBasic Найти сумму элементов побочной диагонали матрицы Помогите пожалуйста! Дана квадратная матрица. Найти сумму элементов побочной диагонали в Qbasic. Заранее спасибо https://www.cyberforum.ru/ qbasic/ thread266618.html QBasic Найти размеры всех прямоугольников, площадь которых равна натуральному числу S
Найти размеры всех прямоугольников площадь которых равна натуральному числу S, стороны которых выражены натуральными числами. Помогите составить программу, пожалуйста!
QBasic Поставить условие, что вводимое число пользователем должно быть только целым https://www.cyberforum.ru/ qbasic/ thread266255.html
Подскажите кто может как в Qbasic поставить условие что вводимое число пользователем должно быть только целым т.е 1;2;3;4;5 и т.д а не 12.5 к примеру и когда вводишь с дробной частью что выводило ошибку и обратно возвращало типа cls p1: Input "Введите целое число" ; a If a... then print "число не целое" : GOTO p1 end if вот что поставить в условии после а...?
QBasic Движущаяся окружность https://www.cyberforum.ru/ qbasic/ thread266163.html
Сделать окружность радиусом 5 пикселей, движущуюся слева направо по экрану. Режим screen12.
QBasic Заштриховать квадрат
Заштриховать квадрат, расположенный в центре экрана, размером 200х200, по вертикали, по горизонтали и по диагонали, с помощью циклов, между штрихами 2 пикселя. Режим screen12.
QBasic Составить алгоритм и программу определения ближайшей к началу координат точки https://www.cyberforum.ru/ qbasic/ thread265973.html
Пожалуйста помогите с программой. Составить алгоритм и программу определения ближайшей к началу координат точки плоскости из трех заданных, где ХА=2, YA=1; ХВ=2, YB=2; ХС=-1, YC=3, в среде программирования QBasik
1255 / 705 / 359
Регистрация: 20.02.2010
Сообщений: 1,035
31.03.2011, 17:51 0

Удалить из текста слова с нечетными номерами и перевернуть слова с четными - QBasic - Ответ 1507305

31.03.2011, 17:51. Показов 1714. Ответов 5
Метки (Все метки)

Ответ

PureBasic
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
CLS
INPUT "vvedate text"; a$
a$ = LTRIM$(RTRIM$(a$))
n = LEN(a$)
q$ = " "
k = 1
FOR i = 1 TO n
    IF MID$(a$, i, 1) = q$ THEN k = k + 1
NEXT
DIM e(k - 1), d$(k)
FOR i = 1 TO n
    IF MID$(a$, i, 1) = q$ THEN r = r + 1: e(r) = i
NEXT
FOR i = 1 TO k
    SELECT CASE i
        CASE IS = 1
            d$(1) = MID$(a$, 1, e(1) - 1)
        CASE IS = k
            d$(k) = MID$(a$, e(r) + 1, n)
        CASE 2 TO (k - 1)
            d$(i) = MID$(a$, e(i - 1) + 1, e(i) - e(i - 1) - 1)
    END SELECT
NEXT
FOR i = 2 TO k STEP 2
    w$ = ""
    FOR j = 1 TO LEN(d$(i))
        w$ = MID$(d$(i), j, 1) + w$
    NEXT
    z$ = z$ + w$ + " "
NEXT
PRINT z$


Вернуться к обсуждению:
Удалить из текста слова с нечетными номерами и перевернуть слова с четными QBasic
2
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.03.2011, 17:51
Готовые ответы и решения:

Удалить из текста слова с четными номерами и перевернуть слова с нечетными номерами
Дан текст, где слова разделены пробелом. Удалить из текста слова с четными номерами и перевернуть...

Как в массиве A(400) найти суммы элементов с четными и нечетными номерами отдельно
я набросил вариант, че-то не получается: CLS DIM A(400) FOR I = 1 TO 400 A(I) = INT(RND * 70)...

Удалить из текста все слова с нечетными номерами и перевернуть слова с четными номерами
Разработать программу, которая редактирует текст, введенный пользователем, удаляя все слова с...

Удалить из предложения все слова с нечетными номерами и перевернуть слова с четными номерами
/*Всем Доброго дня помогите переписать код из си++ в си (Отредактировать заданное предложение, ...

5
31.03.2011, 17:51
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.03.2011, 17:51
Помогаю со студенческими работами здесь

Удалить из строки слова с нечетными номерами и перевернуть слова с четными номерами
Распечатать введенную строку, удалив из нее слова с нечетными номерами и перевернув слова с четными...

Удалить слова с нечетными номерами и перевернуть слова с четными номерами
Здравствуйте. У меня возникла проблема в следующем задании: Отредактировать заданное предложение,...

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

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

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