Синус угла 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>}
{Конец программы}
