Навигация
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 | ||
| A1 = A B1 = B | ||
| Y = TAN(A1) - 1 / 3 * TAN(A1) ^ 3 + 1 / 5 * TAN(A1) ^ 5 - 1/ 3 | ||
| X(I) = (A1 + B1) / 2 | ||
| Z = TAN(X(I)) - 1/ 3*TAN(X(I)) ^3 + 1/ 5 * TAN(X(I)) ^ 5 - 1/ 3 | ||
| Y * Z > 0 | ||
| A1 = X(I) | ||
| B1 = X(I) | ||
| ABS(A1 - B1) > E(I) | ||
| I=1, N | ||
| X(I) B | ||
| E(I); "Решения на этом интервале нет" | ||
| E(I); X(I) | ||
| конец | ||
Похожие работы
... данных, а в категории развлекательных ПК – к средствам воспроизведения звука. -------------------------------------------------------------------------------------------------Классификация персональных компьютеров по конструктивным особенностям: Бытовые ПЭВМ предназначены для массового потребителя, поэтому они должны быть достаточно дешевыми, надежными и иметь, как ...
... ; - монотонность труда; - большой объём информации, обрабатываемой в единицу времени; - нерациональная организация рабочего места; - биологические - повышенное содержание в воздухе рабочей зоны микроорганизмов. К работе оператором, программистом, инженером и техником ПЭВМ, пользователем ПЭВМ допускаются: - лица не моложе 18 лет, прошедшие обязательный при приеме на работу и ежегодные ...
... надежно закрыть некоторые возможные каналы утечки из других групп. Так, криптографические средства позволяют надежно закрыть канал, связанный с хищением носителей информации. Обзор методов защиты информации Проблемы защиты информации программного обеспечения имеют широкий диапазон: от законодательных аспектов защиты интеллектуальной собственности (прав автора) до конкретных технических устройств ...
... со времени установления беременности и в период кормления ребенка грудью к выполнению всех видов работ, связанных с использованием ПЭВМ, не допускаются. Выводы и предложения В первой части дипломной работы рассмотрены теоретические основы менеджмента банковских услуг: понятие и классификация банковских услуг; маркетинговый подход к менеджменту банковских услуг; качество банковских услуг ...
0 комментариев