Основы ПЭВМ

Государственный Комитет Российской Федерации по высшему образованию Московская государственная текстильная академия имени А.Н.Косыгина

кафедра информатики и вычислительной техники

Практическая работа

по курсу

основы ПЭВМ

Группа № 46-94

Студент Бондаренко Ю.М.

Руководитель Цымбалюк М.Я.

Проверила Маланина Е.М

Москва 1995

Содержание:

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

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

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

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

1.4. Программа

1.5. Контрольный пример

2. Решение нелинейных уравнений

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

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

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

2.4. Программа

2.5. Результаты решения уравнения

3. Обработка данных для получения статистических оценок

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

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

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

3.4. Программа

3.5. Контрольный пример

4. Работа с каталогами и файлами в MS - DOS

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

4.2. Задание

5. Работа с каталогами и файлами

в системе NORTON COMMANDER

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

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

<

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать