Алгоритмические языки.
Напомним основные команды и функции Бейсика:
CLS – очистка экрана.
INPUT – Ввод данных с клавиатуры.
LET – Присваивание переменной значения выражения.
REM – Вставка в программу комментария.
END – Завершение выполнения программы.
PRINT – Вывод данных на экран.
DIM – Размерность массива (например, DIM A(2,12), где 2 – число строк, а 12 - число столбцов).
IF условие THEN указание - Оператор условного перехода.
GOTO – переход на строку с указанием номера – Оператор безусловного перехода.
GOSUB – Переход на подпрограмму, с указанием номера строки.
FOR – NEXT – Первый начинает цикл, второй NEXT завершает его, закрывает, Используются всегда вместе.
FOR (для) – TO (до) – STEP (шаг)- (Например FOR M=1 to 10 STEP 2)/
TAB (позиция) – Переход к указанной позиции выводной строки. Используется как операнд оператора PRINT.
LEN (строковое выражение) – Определение длины строки.
MID$ - Выделение заданной части строки символов и, если необходимо, замена ее другой строкой.
RETURN – Возврат из подпрограммы.
STR$ - Преобразование числа в его строковое представление.
VAL(X$) – Преобразование числа из символьной формы представления в числовую.
Задача 1. Нахождение суммы от 1 до 100
Найдите файл qb.exe и запустите его на выполнение. С помощью выведенного на экран встроенного редактора введите текст программы:
S=0
For I=1 to 100
S=S+I
Next I
PRINT S
Запустите программу на выполнения, нажав клавишу Shift+F5. При
обнаружении ошибки в программе, курсор установится на эту строку. Исправьте ошибку и запустите снова программу.
Результат: 5050
Сохраним файл с именем "1.BAS" в рабочей папке с помощью команд меню FILE - SAVE AS.
Задача 2. Нахождение определителя двумерной матрицы
DIM A(1,1)
A(0,0)=2:A(0,1)=3
A(1,0)=1:A(1,1)=2
ОПРЕД=A(0,0)+A(1,1) – A(1,0)+A(0,1)
PRINT «ОПРЕД»; ОПРЕД
Запустите программу на выполнения, нажав клавишу Shift+F5.
Результат: OPRED 6
Сохраним файл с именем "2.BAS" в рабочей папке с помощью команд меню FILE - SAVE AS.
Задача 3. Нахождения SIN угла А=30 градусам.
Перед обращением к функции SIN значение угла А преобразуется из градусной меры в радианы (PA).
PI=3.14
A=30
PA=A*PI/180
PRINT SIN(PA)
Запустите программу на выполнения, нажав клавишу Shift+F5.
Результат: 0.499
Сохраним файл с именем "3.BAS" в рабочей папке с помощью команд меню FILE - SAVE AS.
Задача 4. Получение сведений об абитуриентах, прошедших по конкурсу.
Проходной балл – 14.
INPUT " Введите количество абитуриентов"; N
DIM F$(N), B(N)
FOR I=1 TO N
INPUT "Введите фамилию и общий балл ", F$(I),B(I)
NEXT I
K=0
PRINT" Список абитуриентов, прошедших по конкурсу"
PRINT"-------------------------------------------------------------"
PRINT" Фамилия И.О. Общий балл "
PRINT"-------------------------------------------------------------"
FOR I=1 TO N
IF B(I)>=14 THEN PRINT TAB(3)F$(I);TAB(30)B(I): K=K+1
NEXT I
PRINT"-------------------------------------------------------------"
PRINT ''ВСЕГО";TAB(30)K
END
Запустите программу на выполнения, нажав клавишу Shift+F5.
Введите количество абитуриентов ? 10
Введите фамилию и общий балл ? Алексеева Р.Р, 15
Введите фамилию и общий балл ? Андреева А.И, 13
Введите фамилию и общий балл ? Иванов Н.Н., 14
Введите фамилию и общий балл ? Кольцов В.П.б, 11
Введите фамилию и общий балл ? Линеева А.А., 14
Введите фамилию и общий балл ? Меньшов В.А.,15
Введите фамилию и общий балл ? Петров К.К., 15
Введите фамилию и общий балл ? Сидоров Г.Л, 12
Введите фамилию и общий балл ? Чумаченко Л.Г.,10
Введите фамилию и общий балл ? Яковлева Р.А., 9
Результаты работы
Список абитуриентов, прошедших по конкурсу
-------------------------------------------------------------
Фамилия И.О. Общий балл
-------------------------------------------------------------
Алексеева Р.Р 15
Иванов Н.Н. 14
Линеева А.А. 14
Меньшов В.А. 15
Петров К.К. 15
-------------------------------------------------------------
ВСЕГО 5
Сохраним файл с именем "4.BAS" в рабочей папке с помощью команд меню FILE - SAVE AS.
Задача 5. Определение количества и суммы положительных чисел массива, имеющих четные номера. Массив содержит N элементов.
INPUT N
FOR I=1 TO N
INPUT A(I)
NEXT I
FOR I=2 TO N
IF A(I)>0 THEN K=K+1: S=S+A(I)
I=I+1
NEXT I
CLS
PRINT “Количество ”; k
PRINT “Сумма ”; s
END
Запустите программу на выполнения, нажав клавишу Shift+F5.
Введите: 7
3
-5
-7
842
942
-674
97
Количество 1
Сумма 842
Сохраним файл с именем "5.BAS" в рабочей папке с помощью команд меню FILE - SAVE AS.
Задача 6. Вычислить надбавку N к заработной плате в зависимости от стажа S(лет) по формуле:
Здесь Z – размер заработной платы. Предусмотреть ручной ввод исходных данных и вывод результата на печать.
INPUT S
INPUT Z
IF S<=1 THEN N=0 ELSE
IF 1<S<7 THEN N=0.05*Z ELSE
IF S>=7 THEN N=0.1*Z ELSE
PRINT “НАДБАВКА”; N
END
Запустите программу на выполнения, нажав клавишу Shift+F5.
Введите : 9
5000
Надбавка 500
Сохраним файл с именем "6.BAS" в рабочей папке с помощью
команд меню FILE - SAVE AS.
Задача 7. Вычисление площади треугольника по заданной высоте и стороне с использованием подпрограммы.
CLS
A=5: H=4
GOSUB M
A=8 : H=2
GOSUB M
END
M:
REM ПОДПРОГРАММА
S=A*H/2
PRINT “S=”; S
RETURN
Запустите программу на выполнения, выполнив команду RUN – START.
Результат выполнения программы:
S=10
S=8
Сохраним файл с именем "7.BAS" в рабочей папке с помощью
команд меню FILE - SAVE AS.
Задача 8. Нахождение количества слов в заданном предложении, заканчивающихся на букву В. Слова в предложении отделены пробелами. Предложение заканчивается точкой.
CLS
INPUT " Введите предложение "; A$
K=0
L= LEN(A$)
FOR I=1 TO L
B$=MID$(A$, I, 2)
IF B$= "в " THEN K= K+1
IF B$= "в." THEN K= K+1
NEXT I
PRINT "Количество слов= "; K
END
Запустим программу на выполнение командой меню RUN,
Введите предложение ? Петров и Иванов выполнили задание.
Количество слов=2
Сохраним файл с именем "8.bas" c помощью команд меню FILE SAVE AS в рабочей папке.
Задача 9. Найти произведение цифр вещественного числа, отличных от нуля.
CLS
INPUT " Введите число "; A
B$=STR$(A)
P=1
L= LEN(B$)
FOR I=2 TO L
C$=MID$(B$, I, 1)
IF C$= ". " OR C$= "0" THEN GOTO M ELSE
P=P*VAL(C$)
M: NEXT I
PRINT "Произведение= "; P
END
Запустите программу на выполнения, выполнив команду RUN – START.
Введите число ? 35.04
Произведение =60
Сохраним файл с именем "9.bas" c помощью команд меню FILE SAVE AS в рабочей папке.
Задача 10. Задание для самостоятельного выполнения.
1. Составить программу нахождения суммы 5 целых чисел.
2. Составить программу нахождения произведения 5 чисел.
3. Составить программу определения количества отрицательных элементов массива, имеющих нечетные номера.
4. Составить программу вычисления суммы налога N, которым облагается доход D по формуле:
N=