0 / 0 / 0
Регистрация: 12.12.2015
Сообщений: 5
1

В новый массив собрать все слова с длиной символов 5 и более

12.12.2015, 22:49. Показов 1262. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Создать два одномерных массива слов.В первый массив собрать все слов с длиной символов 5 и более.Во второй остальные за исключением пустых.В первом массиве первую и последнюю букву поднять в верхний регистр,средние оставить в нижнем.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2015, 22:49
Ответы с готовыми решениями:

Все слова, длиной более пяти символов, начинать с прописной буквы
Добрый день! Требуется написать программу в VBA: Дан текст, слова которого отделяются друг от...

Сформировать новую строку, в которую включить все слова, длиной не более 4 символов
Дана строка, состоящая из слов, разделенных пробелами. Сформировать новую строку, в которую...

Найти слова длиной не более трех символов
в строке, содержащей слова через пробел, найти слова не более 3-х символов и составить новую...

Создать тестовый файл содержащий слова длиной не более 5 символов
Создайте тестовый файл по строкам. Максимальная длинна слова, в этом файле, равна пяти символам.

2
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
13.12.2015, 15:15 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Программа проверена

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
CLS
RANDOMIZE TIMER
DIM A(1 TO 10) AS STRING
DIM B(1 TO 10) AS STRING
DIM C AS STRING
DIM c1 AS STRING
DIM c2 AS STRING
DIM c3 AS STRING
DIM k AS INTEGER
DIM n AS INTEGER
 
i = 1
j = 1
 
DO
   n = 1 + 9 * RND
   C = ""
 
   FOR o = 1 TO n
      k = 97 + 25 * RND
      C = C + CHR$(k)
   NEXT o
   IF LEN(C) >= 5 AND i <= 10 THEN
      A(i) = C
      i = i + 1
   ELSEIF LEN(C) < 5 AND j <= 10 THEN
      B(j) = C
      j = j + 1
   END IF
LOOP UNTIL i + j > 21
 
FOR i = 1 TO 10
    LOCATE i, 2
    PRINT A(i)
    LOCATE i, 15
    PRINT B(i)
NEXT i
 
FOR i = 1 TO 10
   c1 = LEFT$(A(i), 1)
   c2 = RIGHT$(A(i), 1)
   c3 = MID$(A(i), 2, LEN(A(i)) - 1)
   c1 = UCASE$(c1)
   c2 = UCASE$(c2)
   A(i) = c1 + c3 + c2
NEXT i
 
FOR i = 1 TO 10
    LOCATE i, 22
    PRINT A(i)
NEXT i
END
0
0 / 0 / 0
Регистрация: 12.12.2015
Сообщений: 5
13.12.2015, 16:31  [ТС] 3
Спасибо огромное
0
13.12.2015, 16:31
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.12.2015, 16:31
Помогаю со студенческими работами здесь

Дана строка длиной не более 255 символов. Найти длину самого короткого слова
Дана строка длиной не более 255 символов. Строка содержит слова, разделенные между собой пробелами....

Найти слова в исходной строке длиной не более 3-х символов и составить из них новую строку
найти слова в исходной строке длиной не более 3-х символов и составить из них новую строку, ввод...

Найти слова в исходной строке длиной не более 3-х символов и составить из них новую строку
найти слова в исходной строке длиной не более 3-х символов и составить из них новую строку, ввод...

Вводим строку не более 40 символов и выводим в одномерный массив все слова этой строки
Вводим строку не более 40 символов и выводим в одномерный массив все слова этой строки

Текст, состоящий не более чем из 255 символов, разбить на строки длиной не более 50 символов в строке
Текст, состоящий не более чем из 255 символов, разбейте на строки длиной не более 50 символов в...

Написать программу, разбивающую текст на строки длиной не более N символов, причем слова текста не разрывать
1.Есть ли в тексте символы «а» и «в»? 2. Написать программу, разбивающую текст на строки длиной не...


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

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

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