Практика программирования (Бейсик, Си, Паскаль)


Задачи,советы и ответы - часть 17


Совет 3 (QBasic)

Система QBasic не допускает использования операторов DATA-READ в теле функции. Поэтому можно сформировать значения элементов символьных массивов numl$, num2$ и numЗ$ в головной программе, а затем передать их в списке параметров при вызове функции. На этом примере вы можете ознакомиться с использованием массивов в качестве формальных (при описании заголовка функции) и фактических (при обращении к функции) параметров. Вторая возможность, реализованная в программе 2_11a.bas, заключается в объявлении совместного доступа к массивам numis, num2$ и num3$ с помощью оператора DIM SHARED.

Совет 4 (Паскаль)

В качестве наиболее простого способа задания значений элементов массивов

num1. num2 и num3 предлагается поместить соответствующие описания в раздел типизированных "констант".

Программа 2_11.bas

RЕМ Формирование словесного описания числа

DECLARE FUNCTION NumToStr$(m%,numl$(),num2$(),num3$())

CLS

DATA "ноль","один","два","три","четыре","пять","шесть","семь"

DATA "восемь","девять","десять","одиннадцать","двенадцать" .

DATA "тринадцать","четырнадцать","пятнадцать","шестнадцать"

DATA "семнадцать","восемнадцать","девятнадцать"

DIM numl$ (20)

FOR k=0 TO 19: READ numl$(k): NEXT k

DATA "двадцать ","тридцать ","сорок ","пятьдесят "

DATA "шестьдесят ","семьдесят "("восемьдесят ","девяносто "

DIM num2$(8)

FOR k=0 TO 7: READ num2$(k): NEXT k

DATA "","CTO ","двести ","триста ","четыреста ","пятьсот "

DATA "шестьсот ","семьсот ","восемьсот ","девятьсот "

DIM num3$(10)

FOR k=0 TO 9: READ num3$(k): NEXT k

INPUT "Введите целое число от -999 до 999: ",n%




- Начало -  - Назад -  - Вперед -