Некоторые стандартные функции языка Турбо Паскаль

Имя функции	Описание функции
Abs (x)	Модуль (абсолютная величина) числа x
Sqrt (x)	Извлечение квадратного корня из числа x
Sqr (x)	Возведение числа x в квадрат (во вторую степень)
Exp (x)	Экспонента числа x (т.е. e^x)
Sin (x)	Синус угла x (значение угла должно быть представлено в радианах)
Cos (x)	Косинус угла x (значение угла должно быть представлено в радианах)
Arctan (x)	Арктангенс числа x
Ln (x)	Натуральный логарифм числа x
Random (x)	Датчик случайных чисел – возвращает случайное число из интервала от 0 до x-1. Инициализация датчика случайных чисел выполняется командой Randomize (стандартная процедура).
Round (x)	Округление вещественного числа x до целого
Trunc (x)	Целая часть вещественного числа x
Frac (x)	Дробная часть вещественного числа x

Команда (оператор) вывода:

Write (<список вывода>);

Выводит информацию на экран. Элементами списка вывода могут быть константы и выражения (на экран будут выведены их значения). Элементы списка вывода разделяются запятыми.

Writeln (<список вывода>);

Выводит информацию на экран, после чего переводит курсор в начало следующей строки (т.е. выводит специальный символ «конец строки»).

Команда (оператор) ввода:

Readln (<имя переменной>);

Приостанавливает работу программы и ожидает ввода данных с клавиатуры. После набора данных и нажатия клавиши <Enter> производится проверка соответствия типов введенных данных и указанной переменной. Если их типы совпадают, данные записываются в переменную с указанным именем.

Если необходимо ввести значения нескольких переменных, их имена можно перечислить через запятую.

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

Примеры решаемых задач

Пример 1. Составить программу, которая вычислит площадь и периметр прямоугольного треугольника, если известны его катеты.

Составим модель данной задачи. Исходными данными являются длины катетов A и B. Это числа (могут быть как целыми, так и вещественными). Результат: площадь S и периметр P (действительные числа). Для вычисления периметра необходимо предварительно вычислить длину гипотенузы C (действительное число).

Алгоритм решения: ввод исходных данных, необходимые вычисления, вывод результатов на экран.

Программа:

Program Triangle; {Заголовок программы}

Uses Crt; {Подключение модуля CRT}

Var A, B : Integer; {Описание всех переменных}

S, P, C : Real;

Begin { Начало исполняемой части программы }

Clrscr; { Очистка экрана }

Write(‘Введите длину 1-го катета’); { Ввод исходных данных }

Readln (A);

Write(‘Введите длину 2-го катета’);

Readln (B);

C:=Sqrt (Sqr (A)+Sqr (B)); { Вычисление длины гипотенузы }

S:=A*B/2; { Вычисление площади треугольника }

P:=A+B+C; { Вычисление периметра }

Writeln (‘Площадь ’, S:7:2); { Вывод результатов на экран }

Writeln (‘Периметр ’, P:7:2); { (:7:2 – формат вывода – 7 позиций на экране будет отведено на вывод всего числа, 2 позиции – на вывод его дробной части)}

Readln { Задержка программы до нажатия клавиши <Enter> }

End.

Пример 2. Составить программу, которая вычислит сумму цифр введенного четырехзначного целого числа.

Составим модель данной задачи. Исходными данными является целое число A. Результат: сумма цифр S. Для вычисления сумы цифр необходимо сначала выделить четыре цифры введенного числа: первая цифра – количество тысяч (результат деления числа на 1000 нацело), последняя цифра вычисляется как остаток от деления введенного числа на 10 и т.п.

Алгоритм решения: ввод исходных данных, необходимые вычисления, вывод результатов на экран.

Программа:

Program Digits; Uses Crt; Var A, D1,D2,D3,D4,S : Integer; Begin Clrscr; Write (‘Введите 4-значное число’); Readln (A); D1:=A div 1000; D2:=A div 100 mod 10; D3:=A div 10 mod 10; D4:=A mod 10; S:=D1+D2+D3+D4; Writeln (‘Сумма цифр числа ’, S); Readln End.

{Заголовок программы} {Подключение модуля CRT} {Описание всех переменных} {Начало исполняемой части программы} {Очистка экрана} {Ввод исходного числа} {Вычисление первой цифры} {Вычисление второй цифры} {Вычисление третьей цифры} {Вычисление четвертой цифры} {Вычисление суммы цифр} {Вывод результата на экран} {Задержка до нажатия <Enter>} {Конец программы}