Реферат: Основы ПЭВМ

5.1. Постановка задачи

5.2. Задание

6. Вывод

1. Использование символьных функций.

1.1. Постановка задачи .

Написать программу с использованием символьных функций для обработки текста. Считать, что в заданном тексте слова разделены одним пробелом. Подсчитать кол-во вопросительных предложений в заданном тексте и кол-во слов в каждом из таких предложений.

1.2. Условные обозначения .

A$ - имя символьной переменной для записи заданного текста.

N - переменная для записи количества символов в тексте A$.

В$(N) - массив для записи символов, из которых состоит текст A$.

C(N) - массив для записи номера позиции, на котором в тексте находится символ “.”

S(N) - номера позиции, на которой в тексте A$ находится символ "?".

D(N) - массив значений, количества символов в каждом из предложений, из которых состоит текст.

R$(N,N) - массив для записи символов, из которых состоит каждое предложение.

K - переменная для записи количества “?” в тексте A$.

T - переменная для записи количества “.” в тексте A$.

F(N) - массив для записи количества пробелов каждого отдельного предложения.

C$(N) - массив для записи каждого предложения в отдельную ячейку.

B - переменная для подсчета количества пробелов в каждом предложении отдельно.

1.3. Блок-схема алгоритма решения задачи .

начало

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

К-во Просмотров: 677
Бесплатно скачать Реферат: Основы ПЭВМ