Занятие №11
Тема занятия: Линейные программы в среде Qbasic.
Цель занятия: приобрести навыки в создании и отладке линейных программ в среде Qbasic..
Ответить на вопросы:
Какой формат имеет оператор INPUT.?
Какую структуру имеет оператор PRINT?
Для чего используется оператор LET?
Какой алгоритм называется линейным?
Составить линейные программы и отладить их на ЭВМ.
Вычислить площадь прямоугольного треугольника и гипотенузы, если известны 2 катета.
Решение
REM
INPUT “введите катеты”;А,В
S=A*B/2
G=SQR(A^2+B^2)
PRINT “площадь= “;S, ” гипотенуза = “;G
END
Написать программу вычисления площади треугольника по трем сторонам, пользуясь формулой Герона.
Найдите координаты центра отрезка, если известны координаты концов.
Решение.
REM координаты центра отр.x3,y3
INPUT “ введите координаты концов отрезка”;x1,y1,x2,y2
x3=(x2-x1)/2
y3=(y2-y1)/2
PRINT “ координаты середины отрезка =”;x3,y3
END
.4) Составить
программу вычисления скорости тела в
момент t при равноускоренном
движении. Известна начальная скорость
и ускорение
,
если известно, что тело движется
прямолинейно.
Решение.
REM скорость тела.
INPUT “ введите начальную скорость”;V0
INPUT “ введите ускорение и время”;A,T
VT=VO+A*T
PRINT “ скорость. =”; VT
END
5) Определить расстояние между двумя точками на плоскости, если известны их координаты.
6) Найдите площадь круга, если известен радиус.
7) Написать программу вычисления длины окружности, площади круга и обьема шара одного и того же радиуса.
8) Вычислить площадь прямоугольного параллелепипеда по его сторонам.
9) Дана длина ребра куба. Написать программу определения площади грани, полной поверхности и объёма куба.
Контрольные вопросы:
Что такое линейная программа?
Какие вы знаете типы величин?
Какие вы знаете способы изменения значений величин в программе?
Какую структуру имеет оператор, заполняющий переменные с клавиатуры?
Какую структуру имеет оператор, выводящий значения переменных на экран?
Что такое отладка программы? Что такое синтаксические и алгоритмические ошибки?
Занятие №12
Тема занятия: Решение задач разветвляющегося типа.
Цель занятия: приобрести навыки в создании и отладке программ разветвляющегося типа.
Ответить на вопросы:
Какой алгоритм называется разветвляющимся?
Начертить блок-схему структуры развилка.
Какой формат имеет оператор условного перехода?
I. Вычисление значения функции для заданного аргумента.
Вариант программы:
INPUT “введите значение Х”; Х
IF Х > 0 THEN Y=SQR(X) ELSE Y=X^2
PRINT “Y=”;Y
END
2)
Решение.
Несмотря на то, что в отличие от предыдущего примера, функция одна, алгоритм будет не линейным, а разветвляющимся, так как выражение под корнем должно быть неотрицательным, в противном случае функция не определена.
REM вычисление Y
INPUT “введите х”;X
IF X<-2/3 THEN PRINT “нет решения” ELSE Y=SQR(3*X+2): PRINT “Y=”;Y
END
Далее рассмотрим алгоритм вычисления более сложных функций.
3)
Здесь надо обратить внимание учащихся на то, что в случае несоблюдения первого условия остается ещё два альтернативных варианта вычисления Y. Поэтому в операторе IF после слова ELSE нужно поставить ещё один оператор IF. Возможен следующий вариант программы:
INPUT “введите х”;X
IF X<=-2 THEN Y=X ELSE IF X<2 THEN Y=-2 ELSE Y=X-4
PRINT “Y=”;Y
Для самостоятельной работы могут быть использованы следующие задачи из этой группы:
Вычислить Y:
Поиск максимального (минимального) числа
1. Даны два числа. Написать программу поиска и печати большего из них.
Пусть даны два числа: А и В, а результат поиска – переменная MAX. Тогда переменной МАХ нужно присвоить значение той переменной (А или В), которое больше. Выяснить это можно с помощью оператора IF. Программа будет выглядеть так:
REM максимум из двух чисел
INPUT “Введите два числа”; A,B
IF A>B THEN MAX=A ELSE MAX=B
PRINT “Большее из чисел ”; A; “ и ”; B; “ равно”;MAX
END
2. Написать программу определения наименьшего из трех чисел.
Даны 3 числа: А, В, С. Найти MIN.
Решить квадратное уравнение AX2+BX+C=0
Если дискриминант уравнения равен нулю, то решения нет. Если дискриминант неотрицательный, то надо найти Х1 и Х2,а затем вывести их на монитор, то есть выполнить несколько действий. Это можно сделать, используя в операторе IF оператор GOTO:
REM квадратное уравнение
INPUT “Введите коэффициенты А, В,С”;A,B,C
D=B^2-4*A*C
IF D<0 THEN PRINT “нет корней”: GOTO M
X1=(-B+SQR(D))/(2A)
X2=(B+SQR(D))/(2A)
PRINT “X1=”;X1, “X2=”;X2
M:END
Контрольные вопросы:
Что такое полная и сокращённая форма оператора IF?
Можно ли после служебных слов THEN и ELSE ставить несколько операторов? Если да, то как они разделяются?
Дать алгоритм поиска максимального числа.