Основы ПЭВМ

    Дисциплина: Программирование
    Тип работы: Реферат
    Тема: Основы ПЭВМ

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

    А.Н.Косыгина

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

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

    по курсу

    основы ПЭВМ

    Группа № 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. Блок-схема алгоритма решения задачи.

    начало

    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. Программа.

    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

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

    Вы ...

    Забрать файл

    Похожие материалы:


ПИШЕМ УНИКАЛЬНЫЕ РАБОТЫ
Заказывайте напрямую у исполнителя!


© 2006-2016 Все права защищены