Програмирование на языке Basic. Федоряка Н.И. - 36 стр.

UptoLike

ВУЗ: 

МичГАУ | Мичуринск

Составители: 

Рубрика: 

36
Пример:
REM Сравнение строк
s1$="abc"
s2$="abc"
s3$="klmn"
IF s1$=s2$ THEN PRINT "Строки равны"
IF s1$=s3$ THEN PRINT "Строки равны"
END
Программа выведет "Строки равны только один раз".
Функции для работы со строками:
LEN(s$)
Вычисляет длину строки (количество симво-
лов).
MID
$(s$,n,k)
Выделяет из строки s$ k символов начиная с
n-го символа.
VAL(s$)
Преобразует числовую часть начала стро
ки в
число.
STR$(x) Преобразует число в символьную форму.
ASC(s$) Вычисляет десятичный код символа.
CHR$(x) Преобразует код в символ.
INKEY$
Функция опроса клавиш, нажатых на клавиа-
туре.
Пример: составить программу подсчитывающую, количество букв
"а" в предложении.
REM кол-во букв "а"
INPUT "Введите предложение", s$
FOR I=1 TO LEN(s$)
IF MID$(s$,I,1)="а" THEN k=k+1
NEXT
PRINT "Кол-во букв а =", k
END
Пример: Заменить все буквы "а" в предложении на буквы "о".
REM замена букв
ss$=""
INPUT "Введите предложение", s$
FOR I=1 TO LEN(s$)
IF MID$(s$,I,1)="а" THEN
ss$=ss$+"о"
ELSE
ss$=ss$+MID$(s$,I,1)
END IF
NEXT
PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com
               Пример:
         REM Сравнение строк
         s1$="abc"
         s2$="abc"
         s3$="klmn"
         IF s1$=s2$ THEN PRINT "Строки равны"
         IF s1$=s3$ THEN PRINT "Строки равны"
         END
               Программа выведет "Строки равны только один раз".
               Функции для работы со строками:
                             Вычисляет длину строки (количество симво-
                   LEN(s$)
                             лов).
                             Выделяет из строки s$ k символов начиная с
                MID$(s$,n,k)
                             n-го символа.
                             Преобразует числовую часть начала строки в
                   VAL(s$)
                             число.
                   STR$(x)   Преобразует число в символьную форму.
                   ASC(s$)   Вычисляет десятичный код символа.
                  CHR$(x)    Преобразует код в символ.
                             Функция опроса клавиш, нажатых на клавиа-
                   INKEY$
                             туре.

                Пример: составить программу подсчитывающую, количество букв
         "а" в предложении.
         REM кол-во букв "а"
         INPUT "Введите предложение", s$
         FOR I=1 TO LEN(s$)
         IF MID$(s$,I,1)="а" THEN k=k+1
         NEXT
         PRINT "Кол-во букв а =", k
         END
                Пример: Заменить все буквы "а" в предложении на буквы "о".
         REM замена букв
         ss$=""
         INPUT "Введите предложение", s$
         FOR I=1 TO LEN(s$)
         IF MID$(s$,I,1)="а" THEN
         ss$=ss$+"о"
         ELSE
         ss$=ss$+MID$(s$,I,1)
         END IF
         NEXT

         36


PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com

Страницы