Основы ПЭВМ — страница 2

  • Просмотров 1523
  • Скачиваний 197
  • Размер файла 23
    Кб

алгоритма решения задачи. начало A$ N = LEN(A$) описание массивов B$(N), C(N), S(N), D(N), R$(N, N), E(N), C$(N) I=1, N B$(I)=MID$(A$, I, 1) K = 0,T = 0 I = 1, N B$(I) = "?" K = K + 1 S(K) = I B$(I) = "." T = T + 1 C(T) = I C(1) > S(1) C$(1) = MID$(A$, 1, S(1)) C$(1) = MID$(A$, C(1), S(1) - C(1)) I = 2, K C(I) > S(I) C$(I) = MID$(A$, S(I - 1), S(I) - S(I - 1)) C$(I) = MID$(A$, C(I), S(I) - C(I)) I = 1, K 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 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) < A OR X(I) > B E(I); "Решения на этом интервале нет" E(I); X(I) конец 2.4. Программа. CLS INPUT "Введите левую границу отрезка"; A INPUT "Введите правую границу отрезка"; B INPUT "Введите число значений точности"; N DIM E(N), X(N) FOR I = 1 TO N PRINT "Введите"; I; "значение точности" INPUT E(I) NEXT I FOR I = 1 TO N A1 = A B1 = B M1: 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 IF Y * Z >