Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
sahara94
0 / 0 / 0
Регистрация: 05.04.2011
Сообщений: 32
#1

Строки.

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

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

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

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

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

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

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

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

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

2
softmob
1250 / 700 / 359
Регистрация: 20.02.2010
Сообщений: 1,035
15.05.2011, 16:07 #2
Лучший ответ Сообщение было отмечено sahara94 как решение

Решение

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

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

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

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


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

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

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