Результаты вычислений

Текст программы

Приложение №2. Образец оформления задания №3

Тема: Составление и отладка разветвляющейся программы

1. Постановка задачи

Составить программу для вычисления значения следующей функции:

2Блок-схема алгоритма решения задачи:

CLS

REM Разветвляющая программа

REM вариант7, гр.118, Иванов И.И.

Pi=3.14

INPUT «Введите а»;а

INPUT «Введите х»;х

IF x>0 THEN

y=sin(Pi/(12+x))+x^2-5*a

ELSE

y=sin(Pi/(12+x))+x^2+5*a

END IF

PRINT «y=»;y

END

При X= …… Y=…….

Приложение №3. Встроенные функции

Наиболее часто встречающиеся операции над скалярными типами данных реализованы в языке QBASIC с помощью встроенных (иногда говорят — стандартных) функций и процедур. Наиболее известные функции над переменными целого, вещественного, логического и литерного типов приведены в таблице.

Функция	Содержание
АBS(X)	Модуль (абсолютная) величина X, |Х|
ATAN(X)	Главное значение арктангенса X, ArctgX
COS(X)	Косинус от X, заданного в радианах, CosX
ЕХP(X)	Показательная функция от X, е
TAN (X)	Тангенс от X, заданного в радианах, TgX
FIX(X)	Целая часть числа X в вещественной форме, ]Х[
LOG(X)	Натуральный логарифм от X, LnX
SIN(X)	Синус от X, заданного в радианах, SinX
SGN (X)	Возвращает значение 1,если X>0 ,-1,если X<0
SQR(X)	Корень квадратный из X, √X
RANDOM(N)	Равномерно распределенное псевдослучайное целое число от 0 до N
RND	Равномерно распределенное псевдослучайное вещественное число от 0 до 1
CINT(X)	Возвращает значение X, округленное до ближайшего целого числа
INT(X)	Возвращает ближайшее целое число, меньшее или равное X, если X > 0, и большее или равное X, если X < 0
TIME$	Возвращает значение системного времени ПЭВМ

В языке QBASIC из учебных целей реализована только функция арктангенса АTAN, остальные функции арксинус, арккосинус, арккотангенс должны вычисляться по известным формулам, через арктангенс. Аналогично реализована функция натурального логарифма LOG. Пример использования встроенной функции:

Математическое выражение	QBASIC
Y=	Y=SQR(2*X^2+8)