|
|
||
|
|
|
|
|
|
D(I) = LEN(C$(I)) |
|
|
|
|
|
|
|
I = 1, K |
|
|
|
|
|
|
|
J = 1, D(I) |
|
|
|
|
|
|
R$(I, J) = MID$(C$(I), J, 1) |
||
|
|
|
|
|
|
I = 1, K |
|
|
|
|
|
|
|
B = 0 |
|
|
|
|
|
|
|
J = 1, D(I) |
|
|
|
|
|
|
|
R$(I, J) = " " |
|
|
|
|
|
|
|
B = B + 1 |
|
|
|
|
|
|
|
C(1) > S(1) |
|
|
|
|
|
|
|
E(1) + 1 |
|
|
|
|
|
|
|
E(1) |
|
|
|
|
|
|
|
I = 2, K |
|
|
|
|
|
|
|
E(I) |
|
|
|
|
|
|
|
конец |
|
1.4. Программа.
CLS
INPUT "Введите текст"; A$
N = LEN(A$)
DIM B$(N), C(N), S(N), D(N), R$(N, N), E(N), C$(N)
FOR I = 1 TO N
B$(I) = MID$(A$, I, 1)
NEXT I
FOR I = 1 TO N
IF B$(I) = "?" THEN
K = K + 1
S(K) = I
END IF
IF B$(I) = "." THEN
T = T + 1
C(T) = I
END IF
NEXT I
IF C(1) > S(1) THEN
C$(1) = MID$(A$, 1, S(1))
ELSE
C$(1) = MID$(A$, C(1), S(1) - C(1))
END IF
FOR I = 2 TO K
IF C(I) > S(I) THEN
C$(I) = MID$(A$, S(I - 1), S(I) - S(I - 1))
ELSE
C$(I) = MID$(A$, C(I), S(I) - C(I))
END IF
NEXT I
FOR I = 1 TO K
D(I) = LEN(C$(I))
NEXT I
FOR I = 1 TO K
FOR J = 1 TO D(I)
R$(I, J) = MID$(C$(I), J, 1)
NEXT J
NEXT I
FOR I = 1 TO K
B = 0
FOR J = 1 TO D(I)
IF R$(I, J) = " " THEN
B = B + 1
END IF
NEXT J
E(I) = B
NEXT I
PRINT "Количество вопросительных предложений равно"; K
IF C(1) > S(1) THEN
PRINT "Количество cлов в 1-м вопросительном предложении равно"; E(1) + 1
ELSE
PRINT "Количество слов в 1-м вопросительном предложении равно"; E(1)
END IF
FOR I = 2 TO K
PRINT "Количество cлов в "; I; "-м вопросительном предложении равно"; E(I)
NEXT I
END
1.5. Контрольный пример.
Вы видите высокого человека у окна? Это известный актер. Вы хотите познакомиться с ним? Я вам помогу в этом.
Количество вопросительных предложений равно 2.
Количество слов в 1-м вопросительном предложении равно 6.
Количество слов в 2-м вопросительном предложении равно 5.
2. Решение нелинейных уравнений.
2.1. Постановка задачи.
Составить программу для нахождения корня уравнения на отрезке [0; 0,8] методом половинного деления с точностью 0.1, 0.01, 0.001, 0.0001.
tg x - 1/3 tg 3 x + 1/5 tg 5 x - 1/3 = 0
Результаты представить в таблице следующего вида:
Метод
Уравнение
Отрезок
Точность
Решение (корень уравнения)
. . .
2.2. Условные обозначения.
N - размерность массива значений точности решения.
E(N) - массив значений точности решения.
X(N) - массив значений корней уравнения с i-ой точностью.
А - имя переменной для записи левой границы отрезка.
В - имя переменной для записи правой границы отрезка.
2.3. Блок-схема алгоритма решения задачи.
начало
A, B, N
описание массивов X(N), E(N)
I=1, N
E(I)
I=1, N
При использовании материалов активная ссылка на источник обязательна.