Стандартные функции

Матем. запись	(:=) TP	(=)MS Excel (x-адрес или имя ячейки со значением)
|x|	abs(x)	abs(x),
arctg x	arctan(x)	atan(x)
cos x	cos(x)	cos(x)
sin x	sin(x)	sin(x)
e^x	exp(x)	exp(x)
[x] – дробная часть числа x	frac(x)	ОСТАТ(число; делитель)
целая часть числа x	int(x)	ЦЕЛОЕ(x)
ln x	ln(x)	ln(x)
p = 3.1415926535…	pi	ПИ()
x^2	sqr(x)	x^2
	sqrt(x)	КОРЕНЬ(x)

Пример: Ввести x и вычислить f по формуле:

Программа на языке TP:	Результаты:
program progfx; var x,f: real; begin write('Введите x -> '); { Вывод текста на экран} readln(x); { Ввод значения переменной x} f:=(sqr(sin(x))*sin(x)+2.5) / abs(ln(x*x+1)- sqrt(2*x*x*x*x+1.012)/(1-3*x*x)); { Вычисление по формуле} writeln('f = ', f: 7: 3); { Вывод результата, т.е. значения f } end.	Введите x -> -3.45 f = 0.831 Введите x -> 0.5 f = 0.646 Введите x -> 112.51 f = 0.235
Условный оператор if
If <условие> then оператор1 else оператор2:	Если (условие истинно) тогда выполняется оператор1 иначе выполняется оператор2;
If <условие> then begin группа операторов1 end else begin группа операторов2 end;	Если (условие истинно) тогда выполняется группа операторов1 иначе выполняется группа операторов2;
begin группа операторов end;	Составной оператор
Оператор цикла с предусловием While
While <условие> do оператор;	Пока условие истинно выполняется оператор;
While <условие> do begin группа операторов end;	Пока условие истинно выполняется группа операторов;
Оператор цикла с постусловием Repeat
Repeat группа операторов until <условие>;	Повторить группу операторов до истинности условия;
Оператор цикла For с целочисленным параметром
For i:=a to (downto) b do оператор;	Для параметра i принимающего целые значения от a до b выполняется оператор;
For i:=a to (downto) b do begin группа операторов end;	Для параметра i принимающего целые значения от a до b выполняется группа операторов;
to (a<b) downto (a>b)

Примеры:

---

Дата добавления: 2015-07-26