Арифметические и логические операторы

+ сложение,

- вычитание,

* умножение,

/ деление,

Div деление нацело (дробная часть отбрасывается). Применяется только для действия с целыми числами;

Mod остаток от целочисленного деления. Применяется только для действий с целыми числами;

Not логическое отрицание;

Or поразрядное логическое сложение ("или");

Xor сложение по модулю 2 (взаимно исключающее "или");

And поразрядное логическое умножение ("и");

Shl разрядный сдвиг влево;

Shr разрядный сдвиг вправо;

> больше;

< меньше;

>= больше или равно;

<= меньше или равно;

= равно;

<> не равно;

В системном модуле Turbo Pascal (Unit System) содержатся функции, не требующие специальных описаний:

Abs(x) вычисление модуля числа любого типа;

Arctan(x) вычисление (в радианах) арктангенса;

Cos(x) вычисление косинуса угла (аргумент - в радианах);

Exp (x)вычисление степени экспоненты e^x;

Frac(x) вычисление дробной части аргумента вещественного числа;

Int(x) вычисление целой части аргумента вещественного числа;

Ln(x) вычисление натурального логарифма;

Pi встроенное значение числа p;

Sin(x) вычисление синуса угла (аргумент - в радианах);

Sqr(x) квадрат вещественного или целого аргумента;

Sqrt(x) квадратный корень вещественного аргумента;

Chr(x) вывод символа, код которого равен целому числу (x);

Ord(x) преобразование символа (x) в целочисленное число (byte);

Trunc(x) вычисление целой части аргумента с отбрасыванием дробной части и преобразованием результата в тип "целое";

Round(x) ближайшее к аргументу целое число спреобразованием его в тип "целое";

Odd(x) только дляцелого аргумента. При чётном аргументе - True (истинно), при нечётном - False.

Примечания:

1.В Pascal нет функции возведения числа в степень, то есть напрямую нельзя записать выражение типа s=a^b. Поэтому для решения подобных задач используется преобразование s = e^b*^Ln(a), полученное из очевидного равенства Ln(s)=b*Ln(a). Следовательно, в языковой интерпритации указанное выражение будет записано так: s:=Exp(b*Ln(a)).

2. Для вычисления значений углов по величинам их функций в Pascal имеется лишь функция ArcTan(x), однако, если известны значения синуса - a или косинуса - b, то соответствующие углы можно вычислить по формулам:

t:= ArcTan(a/Sqrt(1-Sqr(a))) или t:= ArcTan(Sqrt(1-Sqr(b))/b).

Порядок выполнения работы:

1. Ознакомитесь с теоретической частью.

2. Изучите:

o правила записи констант, переменных, стандартных функций;

o организацию ввода-вывода;

3. Разработайте алгоритм решения задачи в соответствии с заданием и составьте программу. Задачи из задания1 выполняются всеми студентами группы, задачи из задания2 выполняются по вариантам. Номер варианта определяется номером компьютера, за которым работает студент.

4. Запустите программу Turbo Pascal;