Вычислительные системы и микропроцессорная техника

Программа на языке BASIC

Программа была составлена на языке BASIC  и отлажена на IBM-совместимом компьютере.

Текст программы

REM Программа по курсовой работе (каф 403).

REM Список переменных:

REM SCHET% - счетчик циклов.

REM D% - входной код.

REM B%, C% - выходные коды.

    CLS

REM Задается размерность входного кода.

    DIM D%(32)

REM Установка списка данных в начальное положение.

    RESTORE

REM Запись входного кода. Цикл.

    FOR I%=1 TO 32

REM Чтение I-го элемента входного кода.

    READ D%(I%)

    NEXT I%

REM Поиск первой комбинации 010. Цикл.

    FOR SCHET%=2 TO 31

REM Проверка совпадения.

    IF D%(SCHET%-1)=0 AND D%(SCHET%)=1 AND D%(SCHET%+1)=0 THEN GOTO 1

REM Сдвиг "окна".

    NEXT SCHET%

REM Запись и вывод результата.

1   B%=SCHET%: PRINT "Номер первой единицы, стоящей между нулями: ";B%

REM Поиск последней комбинации 010. Цикл.

    FOR SCHET%=31 TO 2 STEP -1

REM Проверка совпадения и запись результата.

    IF D%(SCHET%-1)=0 AND D%(SCHET%)=1 AND D

%(SCHET%+1)=0 THEN GOTO 2

    NEXT SCHET%

REM Запись и вывод результата.

2   C%=SCHET%: PRINT "Номер последней единицы, стоящей между нулями: ";C%

REM Входной код.

    DATA 0,0,0,1,1,0,1,0,1,1,0,0,0,0,0,1,0,1,1,1,1,1,1,1,0,1,1,0,0,1,0,1

В результате работы программы, на экран было выведено сообщение:

Номер первой единицы, стоящей между нулями:  7

Номер последней единицы, стоящей между нулями:  30 Использованная .литература

1.Аванесян Г.Р. Лёвшин В.П. «Интегральные микросхемы ТТЛ, ТТЛШ» М93;

2.Лебедев О.Н. «Применение микросхем памяти в электронных устройствах» М94;

3.Мельников Б.С. Щеглов А.В. «Методические указания к курсовой работе...» М91;

4.«Цифровые интегральные микросхемы» М94.

Для заметок

[1] Необходимые микросхемы регистров и ПЗУ в серии 1533 отсутствуют.

1	2	3	4	5	6	7	8	9	10	11

Copyright © by Radioland. All Right Reserved.
Published on: 2004-09-01 (536 Reads)