Практическая работа «Строковые
переменные» скачать
1. Запустите интерпретатор языка
QBASIC
(Откройте
папку
QBASIC,
вложенную в папку Мои документы,
двойным щелчком откройте файл
QBASIC.EХЕ
см. рис.)
2. Нажмите последовательно клавиши
Enter,
Esc
Внимание!
Переход на русский алфавит в этой версии
интерпретатора осуществляется комбинацией клавиш:
Ctrl
+ Shift
(справа!)
Переход на латинский алфавит в этой версии интерпретатора
осуществляется комбинацией клавиш:
Ctrl
+ Shift
(слева!)
Меню интерпретатора открывается клавишей
Alt
Нажимаем клавишу
Alt,
клавишу Enter.
В открывшемся меню клавишей со стрелкой выбираем пункт
Save As , нажимаем
Enter
В новом окне вводим имя файла Имя должно быть
латинскими буквами
не более 8 символов и с расширением
bas.
Например: usl_f.bas
Нажмите
Enter
3. Введите фрагмент программы:
А$= «колобок»
В$ = «соломинка»
1)
Определим длину этих строковых переменных:
PRINT LEN(A$)
PRINT LEN
(B$)
2)
Вырезка фрагмента из значения строковой переменной
MID
$(A$,
3,3)
3) Соединение слов:
PRINT A$
+ « »+ B$
4)
Получите слово «мина» из слова соломинка.
Сделаем физкультминутку.
4. Рассмотрим программу, позволяющую опредeлить
количество букв «а» в значении строковой переменной
A$
CLS
INPUT
«введи значение а»;
a
S=0
FOR I = 1 TO LEN(A$)
IF MID$(A$, I, 1) = «а»
THEN S=S+1
NEXT I
PRINT S
END
Запускаем программу на
исполнение: нажмите клавишу
F5
На запрос введите любое слово и нажмите
Enter.
Сверьте полученный результат с истинным.
!!! Если в программе вы ввели русскую букву
а, то программа будет находить количество русских букв в
значении переменной а$
Сохраняем
программу в памяти компьютера.
Меню интерпретатора открывается клавишей
Alt
Нажимаем клавишу
Alt,
клавишу Enter.
В открывшемся меню клавишей со стрелкой выбираем пункт
Save As , нажимаем
Enter
В новом окне вводим имя файла Имя должно быть
латинскими буквами
не более 8 символов без пробелов и с расширением
bas.
Например: bukva.bas
Нажмите
Enter
Выход из программы.
Нажимаем
Alt,
Enter в открывшемся меню клавишей со
стрелкой выбираем пункт
Exit,
нажимаем Enter
Если у Вас все
получилось, примите мои поздравления!
|