Презентация на тему Встроенные функции

функции выбирается из таблицы, а аргумент записывается в виде

арифметического выражения.
Например: ABS(x).

|x| ABS(x)
SIN(x) sin x SIN(X)
COS(x) cos x COS(X)
TAN(x) tg x —
ATN(x) arctg x ArcTAN(X)
INT(x) целая часть х INT(X)
SQR (x) квадратный

корень SQRT(X)
из х
RND[(x)] выдает случайное число RANDOM[(X)]
из интервала (0,1)

Некоторые встроенные функции

Pascal 7.0

X2 Квадрат аргумента SQR(X)
EXP(X) Показательная функция EXP(X)
LOG(x) Натуральный логарифм LN(N)
--------- Число ПИ PI без

аргумента
SGN(x) Знак числа —
CINT(x) возвращает число равное ROUND(X)
целой части (округляет по правилам
арифметики тип LONGINT
X – INT(x) дробная часть числа FRAC(X)
FIX(x) округляет числи, отбрасывая TRUNC(X)
дробную часть числа
тип LONGINT
X=X+Y увеличивает X на величину Y INC(X,Y)
X=X-Y уменьшает X на величину Y DEC(X,Y)

PRINT a1;a2; …;an; WRITE(а1,а2,...,аn) - выводит последовательно значения переменных а1,а2,

... ,аn

Переход на следующую строку не происходит.
2. PRINT a1;a2; …;an WRITELN(а1,а2,..,аn) выводит последовательно значения а1,а2,.. ,аn.
Переход на следующую строку происходит.
3. PRINT WRITELN - осуществляет переход на новую строку.
Последовательное расположение операторов 1) и 3) равносильно одному оператору 2).

символы с клавиатуры. Например, ждет нажатия заданного количества символов,

пароля или управляющих клавиш. Код клавиши ENTER =13, а код клавиши ESC =27
DO
PRINT “Для выхода нажмите клавишу ENTER”
LOOP WHILE INKEY$ <>CHR(13)

последовательно переменные а1,а2,... ,аn;
READLN(а1,а2,..,аn) - каждое вводимое значение получают

последовательно переменные а1,а2,...,аn.
READLN - переход на новую строку при вводе данных. Такой оператор применяется, когда исполнение программы желательно задержать до нажатия клавиши ENTER.

Pascal 7.0
Вычислить периметр прямоугольника со сторонами А

и В.

Решение.
Обозначим периметр буквой Р, тогда Р =(А+В)*2
Составим программу при конкретных значениях А и В. Пусть А = 8, В = 21.

Uses Crt;
Описываем переменные.
DEFINT A-B, P Var a,b,p: real;
Производим очистку экрана
CLS Begin
clrscr;
Присваиваем переменным значения
A=8 a:=8;
B=21 b:=21;
Вычисляем периметр прямоугольника
P=(A+B)*2 p:=(a+b)*2;
Выводим значения периметра экран.
PRINT “ P=”;P Write('p=' ,p);
END (необязательный оператор) END.(обязательный оператор)

TP

QB

по очереди значения некоторых вышеприведенных функций, аргументом которых является

сумма А+В.
P = SIN(A+В) p:= sin (a + b);
Б) Напечатайте случайное число в пределах от А до В.
P = RND*(B-A) + A p:= random(b-a+1)+a;
В) Напечатайте значения переменной Р в формате: 3 позиции для целой части и 2 для дробной.
PRINT USING “###.##” ;P write(p:6:2);
(6=3+2+1 на точку)