| 1 | 2 | 3 | |
| Double | 5,0×10-324... 1,7×10308 | 8 байтов(число значащих цифр 15–16) | |
Extended | 3,4×10-4932... 1,1×104932 | 10 байт(число значащих цифр 19–20) | |
Comp | -9,2×1018... 9,2×1018 | 8 байтов(число значащих цифр 19–20) | |
| Символьный | |||
| Char | Любой из 256 символов таблицы ASCII | 1 байт | |
Логический | |||
| Boolean | false, true | 1 байт | |
1.3 Стандартные функции и процедуры
Стандартные функции и процедуры приведены в таблицах 3, 4.
Таблица 3 - Стандартные функции
| Функция | Назначение | Тип аргумента |
| 1 | 2 | 3 |
| Стандартные арифметические функции | ||
| Abs(x) | Вычисление абсолютного значения x (модуль числа) | Вещественный, целый |
| Sqr(x) | Вычисление квадрата x | Вещественный, целый |
| Sqrt(x) | Вычисление квадратного корня из x | Вещественный, целый |
| Sin(x) | Вычисление синуса x | Вещественный, целый |
| Cos(x) | Вычисление косинуса x | Вещественный, целый |
| Arctan(x) | Вычисление арктангенса x | Вещественный, целый |
| Exp(x) | Вычисление экспоненты (числа e=2,71828…) в степени x (ех) | Вещественный, целый |
Продолжение таблицы 3
| 1 | 2 | 3 |
| Ln(x) | Вычисление натурального логарифма x | Вещественный, целый |
| Pi | Число p | Нет |
| Random(range) | Генерирует случайное число целого типа в пределах от 0 до range. Если параметр range не задан, то формируется число вещественного типа в пределах от 0 до 1 | Вещественный, целый |
| Функции преобразования числовых переменных | ||
| Тrunc(x) | Нахождение целой части x (дробная часть числа отбрасывается) | Вещественный, целый |
| Int(x) | Округление вещественного числа x по направлению к нулю | Вещественный |
| Round(x) | Округление x в сторону ближайшего целого по математическим правилам | Вещественный, целый |
| Frac(x) | Вычисление дробной части числа х | Вещественный |
Таблица 4 - Стандартные функции и процедуры
| Название | Назначение |
| Функции, используемые для работы | |
| Pred(x) | Определение предшественника взятого символа х |
| Succ(x) | Определение последующего символа за взятым символом х |
| Ord(x) | Определяет код символа. Например, Ord(‘A’) - 65 |
| Chr(x) | Определяет символ по коду. Например, Chr(65) - ’A’ |
| Low(х) | Возвращают минимальное значение указанного диапазона переменной х |
| High(х) | Возвращают максимальное значение указанного диапазона переменной х |
Продолжение таблицы 4
| Название | Назначение |
| Стандартные процедуры | |
| Dec(x, n), или dec(x) | Уменьшает значение переменной х любого порядкового типа на значение n типа longint. Если параметр n опущен, то процедура уменьшает значение переменной х на 1 |
| Inc(x, n), или inc(x) | Увеличивает значение переменной х любого порядкового типа на значение n типа longint. Если параметр n опущен, то процедура увеличивает значение переменной x на 1 |
| Randomize | Инициализирует генератор случайных чисел |
Операторы ввода данных в переменные с клавиатуры:
Read (<список переменных>);
Readln (<список переменных>);
Операторы являются стандартными, находятся в модуле System, не требующем специального подключения. Данные, вводимые в разные переменные, разделяются пробелом. Отличия операторов заключаются в том, что второй оператор после ввода информации (выполнения оператора) переводит курсор на следующую строку, а первый оператор - нет.
Оператор Readln; без списка переменных используется для задержки информации на экране до нажатия на клавишу Enter и ставится в конце программы.
Операторы вывода текстовой информации на экран:
Write (<список переменных, констант и арифметических выражений>);
Writeln (<список переменных, констант и арифметических выражений>);
Отличия операторов заключаются в том, что второй оператор после вывода информации переводит курсор на следующую строку, а первый оператор - нет. Переменные типа real рекомендуется выводить в форматированном виде.
Форматированный вывод - вывод информации с указанием размерности, т.е. после переменной через двоеточие указывается количество символов под все число, а затем, для вещественных переменных, снова через двоеточие число десятичных знаков.
Например: Write(а:5:2); под а отводится 5 символов, включая точку, знак числа и два десятичных знака величины числа. Знак «+» перед числом при выводе будет опущен. Если в а находится число 2,5678, то выведется на экран: _2.57.
Пример 1. Сгенерировать случайные числа и вывести их на экран:
1) целое в интервале от 0 до 67;
2) целое двухзначное;
3) целое из ряда 60, 70, 80, 90, …, 150;
4) вещественное из ряда -1.5, -1.3, -1.1, …, 0.7, 0.9.
Решение:
var a,b,c: integer;
d:real;
begin
randomize;
a:=random(68); writeln('1 -', a);
b:=random(90)+10; writeln('2 -', b);
c:=random(10)*10+60; writeln('3 -', c);
d:=random(round((0.9-(-1.5))/0.2+1))*0.2-1.5;
writeln('4 -', d:0:1);
readkey;
end.
Пример 2. Вывести на экран код введенного с клавиатуры символа в таблице ASCII.
Решение:
uses crt;
var Letter: char;
Code: byte;
begin
clrscr;
write('Введите символ:');
readln(Letter);
writeln('Код символа', Letter, ' - ', ord(Letter));
write('Введите код символа:');
readln(Code);
writeln('Символ с кодом ', Code, ' - ', chr(Code));
readkey;
end.
В программе Примера 2 сначала вводится символ, который затем сохраняется в переменной Letter. На основании значения этой переменной при помощи стандартной функции ord определяется код символа. Затем выполняется обратное действие - вводится код символа в переменную Code, на основании значения которой затем определяется сам символ при помощи стандартной функции chr. Процедура clrscr находится в модуле crt, очищает экран (окно) и помещает курсор в верхний левый угол.
Пример 3. Написать программу подсчета количества часов, минут и секунд в данном числе суток.
Решение:
uses crt;
var syt,has,min,sec:extended;
begin
clrscr;
write('сут =');
readln(syt);
has:=24*syt;
min:=60*has;
sec:=60*min;
writeln('часов:',has:0:0);
writeln('минут:',min:0:0);
writeln('секунд:',sec:0:0);
readln;
end.
В данном примере вещественные переменные (тип extended) выводятся с округлением до целых.
1.6 Задания для самостоятельного решения
Примечание - Все необходимые значения (исходные данные) ввести с клавиатуры, результаты вывести на экран. Составить блок-схему.
1. Составьте программу для вычисления периметра прямоугольника.
2. Составьте программу для вычисления площади трапеции.
3. Задана окружность радиуса R. Составьте программу для нахождения ее длины и площади ограниченного ею круга.
4. Составьте программу для вычисления длин высот треугольника, у которого длины сторон a, b, c.
5. Составьте программу для вычисления длин медиан треугольника, у которого длины сторон a, b, c.
6. Составьте программу для вычисления площади прямоугольного треугольника по его катетам a и b.
7. Составьте программу, складывающую две обыкновенные дроби. Числители и знаменатели обеих дробей вводить отдельно.
8. Составьте программу, находящую разность двух обыкновенных дробей.
9. Составьте программу, умножающую две обыкновенные дроби.
10. Составьте программу, делящую две обыкновенные дроби.
11. Составьте программу для вычисления величины работы, совершенной при равномерном подъеме груза массой М кг на высоту
H м. Ускорение свободного падения описать как константу G=9,81.
12. Составьте программу для вычисления давления столба жидкости плотностью R высотой H на дно сосуда.
13. Составьте программу для вычисления выталкивающей силы, действующей на тело объемом V, наполовину погруженное в жидкость плотностью R.
14. Составьте программу для вычисления количества теплоты по формуле Q = cm(t2-t1).
15. Составьте программу для вычисления количества теплоты, полученной при сгорании М г керосина, если его теплота сгорания q.