Составить и вывести отдельные описания слов

@antipusechka · Регистрация: 03.06.2015

Author24 — интернет-сервис помощи студентам

по введенной совокупности сочетаний символов, разделенных знаками "," составить и вывести отдельные описания слов: "целые числа- четные, нечетные";"дробные числа - по числу знаков после десятичной точки";"слова - по числу букв". Вывести комментарии по всем сочетаниям с учетом падежей. исходная информация вводится с клавиатуры

echs · 01.08.2015, 19:46

Первая половина вашего задания не сложная и я могу
предложить вам алгоритм её решения.
Алгоритм:
1. Введена некоторая строка символов S.
2. Произведён операцию S = "," + S + ","
3. Введем две переменные n1 и n2, которые
будут обозначать номера позиций двух запятых
4. n1 = 1
5. n2 = INSTR(n1+1, S, ",")
Примечание: между n1 и n2 находится либо
число либо слово.
6. S2 = MID$(S, n1 + 1, n2 - n1 - 1)
7. N = INSTR(1, S2, ".")
Примечание: мы ищем точку. Если она есть, то
это вещественное число
8. S1 = RIGHT$(S2, 1)
9. N = INSTR(1, "1234567890", S1)
Примечание: мы ищем цифру. Если она есть, то
это целое число. Определить какое число,
чётное или нечетное вы сумеете.
10. Если это не число, то это слово
11. n1 = n2
12. Если n2 < LEN(S), то перейти на пункт 5.

P.S.
Что касается того, чтобы определить падеж
слова в русском языке. То такой алгоритм
мне неведом.

@CoderHuligan · 03.08.2015, 15:29

В программе использованы наработки geh.

QBasic/QuickBASIC

DIM AS STRING A,Z,F
DIM AS INTEGER i, s,nom1,nom2,b,m,k
 LINE INPUT A
 A=","+A+"," 
 s=LEN(A)
 nom1=1
WHILE nom1<>s
 nom2=INSTR(nom1+1,A,",")
    F=MID$(A,nom1+1,nom2-nom1-1)
      IF INSTR(1,F,ANY "0123456789") > 0 THEN
        IF INSTR(1,F,".") > 0 THEN
                k=((nom2-nom1-1)-INSTR(1,F,".")) MOD 10
              SELECT CASE k
                 CASE 1
                    Z="znak"
                 CASE 2 TO 4
                    Z="znaka"
                 CASE 5 TO 20
                    Z="znakov"
                
              END SELECT
                  PRINT "V chisle "; F; "soderzhitsya"; k; Z; " posle tochki."
        ELSE
            m=VAL(F)
           IF m MOD 2=0 THEN
            PRINT "Chislo"; m; "chetnoe."
           ELSE
            PRINT "Chislo"; m; "nechetnoe."
           EndIf
            
           EndIf 
      ELSE
        m=(nom2-nom1-1) MOD 10
        SELECT CASE m
            CASE 1
                Z="bukva"
            CASE 2 TO 4
                Z="bukvi"
            CASE 5 TO 20
                Z="bukv"
        END SELECT
        PRINT "V slove  "; F; " soderzhitsya "; nom2-nom1-1;Z
      EndIf
      nom1=nom2
WEND
SLEEP

@antipusechka 0 / 0 / 0 Регистрация: 03.06.2015 Сообщений: 1
		1
	Составить и вывести отдельные описания слов 03.06.2015, 18:45. Показов 1475. Ответов 2 Метки нет (Все метки) по введенной совокупности сочетаний символов, разделенных знаками "," составить и вывести отдельные описания слов: "целые числа- четные, нечетные";"дробные числа - по числу знаков после десятичной точки";"слова - по числу букв". Вывести комментарии по всем сочетаниям с учетом падежей. исходная информация вводится с клавиатуры 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	01.08.2015, 19:46	2
	Первая половина вашего задания не сложная и я могу предложить вам алгоритм её решения. Алгоритм: 1. Введена некоторая строка символов S. 2. Произведён операцию S = "," + S + "," 3. Введем две переменные n1 и n2, которые будут обозначать номера позиций двух запятых 4. n1 = 1 5. n2 = INSTR(n1+1, S, ",") Примечание: между n1 и n2 находится либо число либо слово. 6. S2 = MID$(S, n1 + 1, n2 - n1 - 1) 7. N = INSTR(1, S2, ".") Примечание: мы ищем точку. Если она есть, то это вещественное число 8. S1 = RIGHT$(S2, 1) 9. N = INSTR(1, "1234567890", S1) Примечание: мы ищем цифру. Если она есть, то это целое число. Определить какое число, чётное или нечетное вы сумеете. 10. Если это не число, то это слово 11. n1 = n2 12. Если n2 < LEN(S), то перейти на пункт 5. P.S. Что касается того, чтобы определить падеж слова в русском языке. То такой алгоритм мне неведом. 0

	03.08.2015, 15:29

Составить и вывести отдельные описания слов

Решение