Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 26.05.2013
Сообщений: 7
1

В исходной строке а$ определить все слова, отличные от последнего слова. Вывести эти слова в столбик

26.05.2013, 21:20. Показов 1464. Ответов 1
Метки нет (Все метки)

Помогите решить: В исходной строке а$ определить все слова, отличные от последнего слова. Вывести эти слова в столбик. Отблагодарю.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.05.2013, 21:20
Ответы с готовыми решениями:

Вывести в новый файл все слова, отличные от последнего слова
В файле содержится последовательность слов, разделенных пробелом. Текст заканчивается точкой....

Напечатать все слова отличные от последнего слова, предварительно перенести последнюю букву в начало слова
Дано текст, содержащий от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв, между...

Напечатать все слова, отличные от последнего слова, предварительно удалив из каждого слова последнюю букву
1) Программа. Дан текстиз строчных русских букв, закоторым следует точка. Напечатать этот текст...

Напечатать все слова, отличные от последнего слова, предварительно перенеся первую букву в конец слова
Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 латинских...

1
156 / 46 / 70
Регистрация: 01.07.2014
Сообщений: 185
07.07.2014, 13:45 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
DEFSTR F, S-T
DEFINT I-L
CLS
INPUT "TEXT"; t
 
t = " " + t
k = LEN(t)
DIM tm(1 TO k)
FOR i = k TO 1 STEP -1
   s1 = MID$(t, i, 1)
   IF s1 = " " THEN
   j = i
   GOTO 100
   END IF
NEXT i
 
100
s2 = MID$(t, j + 1, k - j)
                             
j = 1
l1 = 1
FOR i = 1 TO k
   l2 = INSTR(l1 + 1, t, " ")
   IF l2 <> 0 THEN
      s3 = MID$(t, l1 + 1, l2 - l1 - 1)
      IF s2 <> s3 THEN
         tm(j) = s3
         j = j + 1
      END IF
      l1 = l2
      i = l2
   END IF
NEXT i
                     
FOR i = 1 TO k
   IF tm(i) <> "" THEN PRINT tm(i)
NEXT i
END
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.07.2014, 13:45

Вывести все слова последовательности, отличные от последнего слова, удалив первую букву
1. Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 строчных...

Напечатать все слова, отличные от последнего слова строки, удалив из каждого слова первую и последнюю буквы
Близиться сессия,а завтра мне сдавать 2 проги. Помогите ребят,могу даже 100 скинуть,если уж так...

Напечатать все слова, отличные от последнего слова, преобразовав по правилу: перенести первую букву в конец слова
Помогите пожалуста решыть: 10.18. Программа. Дана последовательность, содержащая от 2 до 30 слов,...

Вывести слова строки, которые отличны от последнего слова, и определить, есть ли в данной строке одинаковые слова
Дана строка, состоящая из слов, разделённых пробелами. Вывести слова этой строки, которые отличны...


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

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

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