Форум программистов, компьютерный форум, киберфорум
Наши страницы

QBasic

Войти
Регистрация
Восстановить пароль
 
sahara94
0 / 0 / 0
Регистрация: 05.04.2011
Сообщений: 32
#1

Строки. - QBasic

15.05.2011, 15:51. Просмотров 682. Ответов 2
Метки нет (Все метки)

задание1)
Путем копирования и склейки выделить из слова “КРАПИВА” слова “КИПР”, “КАРА”,”ПАР”.

Задание 2)
Составить программу, подсчитывающую количество букв «F» в строке. Заменить все буквы «F» на «К».

Задание 3)
Составить блок схему 1 и 2 задания
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2011, 15:51
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Строки. (QBasic):

Каждый элемент соответствующей строки разделить на сумму элементов этой строки - Basic
Задан двухмерный массив вещественных чисел А(n,m). Необходимо каждый элемент соответствующей строки разделить на сумму элементов этой...

Даны строки a$ и b$. Вывести все символы строки a$, не входящие в строку b$ - QBasic
Даны строки a$ и b$. Вывести все символы строки a$, не входящие в строку b$.

Как дополнить все строки «*» до самой длинной строки - QBasic
Создать файл, содержащий произвольные текстовые строки. Дополнить все строки символом «*» до самой длинной строки. Это я все сделал...

Вывести на экран часть строки после";" и до конца строки строка вводится с клавиатуры - QBasic
задание в названии Добавлено через 6 минут срочно плиз

Даны два файла, получить третий, содержащий чётные строки первого файла и нечётные строки второго файла - QBasic
Даны два файла, получить третий, содержащий чётные строки первого файла и нечётные строки второго файла.

Вывести на экран часть строки от начала строки и до ";" - QBasic
Вывести на экран часть строки от начала строки и до ; строка вводится с клавиатуры

2
softmob
1249 / 699 / 155
Регистрация: 20.02.2010
Сообщений: 1,035
15.05.2011, 16:07 #2
2)
PureBasic
1
2
3
4
5
6
7
CLS
INPUT "vvedite text"; a$
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 1) = "F" THEN k = k + 1: MID$(a$, i, 1) = "K"
NEXT
PRINT a$
PRINT "k="; k
Добавлено через 4 минуты
1)
PureBasic
1
2
3
4
a$ = "KRAPIVA"
PRINT MID$(a$, 1, 1) + MID$(a$, 5, 1) + MID$(a$, 4, 1) + MID$(a$, 2, 1)
PRINT MID$(a$, 1, 1) + MID$(a$, 3, 1) + MID$(a$, 2, 1) + MID$(a$, 3, 1)
PRINT MID$(a$, 4, 1) + MID$(a$, 3, 1) + MID$(a$, 2, 1)
1
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
16.06.2016, 17:23 #3
1. проверено
(Кто не видел идеальный код? - Он перед вами!)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
DECLARE FUNCTION M$ (i!)
CLS
DIM SHARED a AS STRING
a = "KRAPIVA"
 
PRINT M(1) + M(5) + M(4) + M(2)
PRINT M(1) + M(3) + M(2) + M(3)
PRINT M(4) + M(3) + M(2)
END
 
FUNCTION M$ (i)
   M = MID$(a, i, 1)
END FUNCTION
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.06.2016, 17:23
Привет! Вот еще темы с ответами:

Ввести строки и через n символов первой строки вставить вторую строку, и так до конца строки - C++ Builder
Помогите исправить баг задача состоит в следующем :ввести строку и простроку тоесть две строки и надо через (n) символов первой строки...

Даны три строки. Определить можно ли из символов третьей строки получить первую и вторую строки - Java
Помогите пожалуйста! 1)Даны три строки. Определить можно ли из символов третьей строки получить первую и вторую строки. 2)Дана...

Слить две строки, вставив символы одной строки между символами другой строки - Pascal
Строка a из n символов лексикографически меньше строки b из n символов, если существует такой индекс j, что aj < bj, а для всех i < j ai =...

Сравнить строки, первый несовпадающий элемент строки-приемника записать в регистр AL, строки-источника - в DL - Assembler
Помогите написать программу на ассемблерене совсем еще разобрался с этим задание: Ввести с клавиатуры две строки одноразрядных...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru