Условный оператор

if then if then begin begin ; ; … … ; ; end end else elsebegin ; ; … … end; end;

Program b; Var x,y:real; begin read(x,y); if x>y then x:=x/5 else x:=x+5; write(x,y) end. { Даны два числа. Если первое число больше второго, то его уменьшают в 5 раз. Иначе это число увеличивают на 5.}

!Упражнение для самостоятельного выполнения Составьте программу, которая запрашивает коэффициенты квадратного уравнения и выводит его корни или выдает сообщение, что действительных корней нет. Составьте программу, которая запрашивает коэффициенты квадратного уравнения и выводит его корни или выдает сообщение, что действительных корней нет. Даны три числа. Возвести в квадрат те из них, значения которых неотрицательны. Отрицательные числа оставить без изменения. Даны три числа. Возвести в квадрат те из них, значения которых неотрицательны. Отрицательные числа оставить без изменения. Найти наименьшее из трех чисел. Найти наименьшее из трех чисел.

Функции языка Pascal

Стандартные функции SIN(x) - выдает синус угла, заданного в радианах, результат типа Real. SIN(x) - выдает синус угла, заданного в радианах, результат типа Real. COS(x) - выдает косинус угла, заданного в радианах, результат типа Real COS(x) - выдает косинус угла, заданного в радианах, результат типа Real LN(x) - выдает значение натурального логарифма числа x, результат типа Real LN(x) - выдает значение натурального логарифма числа x, результат типа Real SQRT(x) - вычисляет значение квадратного корня из x, результат - Real SQRT(x) - вычисляет значение квадратного корня из x, результат - Real ARCTAN(x) - возвращает Arctg(x), результат Real ARCTAN(x) - возвращает Arctg(x), результат Real EXP(x) - возводит число e в степень x EXP(x) - возводит число e в степень x SQR(x) - возвращает квадрат числа SQR(x) - возвращает квадрат числа ABS(x) - возвращает модуль числа ABS(x) - возвращает модуль числа

Дополнительные функции ODD(x) - вырабатывает результат булевского типа: для четного аргумента - FALS, для нечетного - TRUE ODD(x) - вырабатывает результат булевского типа: для четного аргумента - FALS, для нечетного - TRUE SUCC(x) - вырабатывает следующее целое число SUCC(x) - вырабатывает следующее целое число PRED(x) - вырабатывает предыдущее целое число PRED(x) - вырабатывает предыдущее целое число TRUNC(x) - вырабатывает целый результат путем отбрасывания дробной части аргумента TRUNC(x) - вырабатывает целый результат путем отбрасывания дробной части аргумента ROUND(x) - вырабатывает целый результат путем округления до ближайшего целого ROUND(x) - вырабатывает целый результат путем округления до ближайшего целого

Дополнительные функции ODD(x) - вырабатывает результат булевского типа: для четного аргумента - FALS, для нечетного - TRUE ODD(x) - вырабатывает результат булевского типа: для четного аргумента - FALS, для нечетного - TRUE SUCC(x) - вырабатывает следующее целое число SUCC(x) - вырабатывает следующее целое число PRED(x) - вырабатывает предыдущее целое число PRED(x) - вырабатывает предыдущее целое число TRUNC(x) - вырабатывает целый результат путем отбрасывания дробной части аргумента TRUNC(x) - вырабатывает целый результат путем отбрасывания дробной части аргумента ROUND(x) - вырабатывает целый результат путем округления до ближайшего целого ROUND(x) - вырабатывает целый результат путем округления до ближайшего целого

!Упражнения: Вывести на экран значение числа e. Вывести на экран значение числа e. Составить программу, которая запрашивает стороны треугольника и вычисляет площадь этого треугольника по формуле Герона. Составить программу, которая запрашивает стороны треугольника и вычисляет площадь этого треугольника по формуле Герона. Составить программу, которая по введенному x вычисляет 1-2х+3х 2 -4х 3 и Составить программу, которая по введенному x вычисляет 1-2х+3х 2 -4х 3 и 1+2х+3х 2 +4х х+3х 2 +4х 3.