Программирование алгоритмов линейной структуры

Стандартные алгебраические функции

Функция	Описание	Пример	Результат
ABS	Возвращает абсолютную величину (модуль) аргумента	ABS(-2.56)	2,56
SQR	Возвращает квадратный корень из аргумента	SQR (9)	3
SIN	Возвращает значение синуса аргумента (аргумент ука­зывается в радианах)	SIN(3)	0,14112
COS	. Возвращает значение косинуса аргумента (аргумент указывается в радианах)	COS(3)	0,98992599
TAN	Возвращает значение тангенса аргумента (аргумент указывается в радианах)	TAN(3)	-0,1425465
EXP	Находит значение показательной функции ех;, где х — аргумент, а е — основание '.' натурального логарифма, равное 2,718...	EXP(l)	2,718282
LOG	Возвращает логарифм по основанию е	LOGO)	1,09861229
INT	Возвращает целую часть аргумента (от англ. INTeger — целый)	INT(30,l)	30
SGN	"Возвращает 1, если аргумент больше нуля; 0, если аргумент равен нулю;-1,если аргумент меньше нуля (от англ. SiGN — знак)	SGN (3) SGN(O)  SGN(-3)	1 0 -1

Пример № 1: Задана длина пути S в милях (1 миля=1,603 км) и время t в часах. Определите скорость V в км/час
Решение

10 CLS

20 Input “Введите длину пути в милях S”; S

30 Input “Введите время t”; t

40 S=S*1,603

50 V= S/t

60 Printer “Скорость V в км/час =”; V

70 End

Пример № 2: Вычислить , 

при а=0,27, b=0,38, x=0,73

Решение:

10 CLS

20 a = 0.27

30 b = 0.38

40 x = 0.73

50 y = 1 / (a ^ 1 / 3 - b * (ABS(x - a * b) ^ 1 / 2)) * (x - ABS(b / a) *ATN(-ABS(b / a * x - EXP(x) * tg(x))))

60 PRINT "y="; y

70 END

Пример № 3: Даны два положительных числа. Вычислить среднее арифметическое и среднее геометрическое чисел.

Решение:

10 CLS

20 Input “Введите x1”; x1

30 Input “Введите x2”; x2

40 If x1>0 and x2>0 then goto 50

50 a=(x1*x2)^1/2

60 b=(x1+x2)/2

70 Print “Среднее арифметическое = “; a

80 Print “Среднее геометрическое = “; b

90 End

Пример № 4: Даны два натуральных числа m и n. Найдите остаток от деления числа m на число n.

Решение:

10 cls

20 Input “m=”; m

30 Input “n=”; n

40 If n<>0 then Ost=m mod n

40 Else Input “Деление невозможно”

50 Print “Остаток =”; Ost

60 End

Пример № 5: Селекционер вывел новый сорт зерновой культуры и сеял с опытной делянки k  кг семян. Посеяв 1 кг семян, можно за сезон собрать p кг семян. Через сколько лет селекционер сможет засеять новой культурой поле площадью S га, если норма высева n кг/га?

Решение:

10 CLS

20 INPUT "N="; n

30 INPUT "S="; S

40 INPUT "k="; k

50 INPUT "p="; p

60 God = LOG(S * n / k) / LOG(p)

70 PRINT "Vremaj="; God

80 END