Александр Цветков - Язык программирования PASCAL

s : real; // Длина окружности

begin

write ('Введите радиус: '); readln (r);

s :=2*3.1415926*r;

writeln ('Длина окружности: ',s:8:2);

end.

Обратите внимание на описание переменных (тип real). Конечно, переменные можно описывать и несколько в одном операторе (r, s : real), но мы захотели добавить комментарии к описанию, поэтому описали переменные в отдельных операторах. Ввод вещественных чисел с клавиатуры ничем не отличается от ввода целых чисел.

Вещественные числа могут, как и целые, участвовать в арифметических выражениях. К ним применимы операции сложения +, вычитания –, умножения *, а также деления /. Деление выполняется обычным способом, как в математике, т.е. 5/2 будет 2.5. Деление на цело (div), остаток от деления (mod) для вещественных чисел не определены! Запись вещественных чисел может быть в двух формах. Первая форма называется «с фиксированной точкой». Пример: 3.5, 2.0, +36.6, –40.123.

Обратите внимание на то, что в качестве разделителя целой и дробной части используется точка, а не запятая. Вторая форма записи называется «с плавающей точкой».

Эта запись похожа на стандартизованное представление чисел в математике (например 6.67 • 10 21). В языке Pascal такое число можно записать в следующем виде 6.67E21, т.е. вместо •10 в языке Pascal пишется буква E (большая или маленькая, всё равно). Приведем еще примеры записи вещественных чисел с плавающей точкой:

3E1, –2e+10, +1.234E– 10, 65.2e+20.

Часть числа до буквы E называется мантиссой, а после буквы E – порядком или экспонентой.

Задание 8 (часть 1)

1. Запишите в языке Pascal в формате с плавающей точкой следующие числа:

2.99•10 33, -0.21•10 -10, 35.6•10 8, 1200000, 0.000015 (5 баллов)

2. Запишите в языке Pascal в формате с фиксированной точкой следующие числа:

2.71828, 1.25•10 2, -1.5•10 -1(3 балла)

- 25 -

Вывод вещественных чисел с помощью оператора write/writeln происходит обычным способом. При выводе мы можем применять форматы вывода, отделяя их от переменной двоеточием. Формат вывода может состоять из одного или двух чисел, разделенных двоеточием (см. пример). При указании двух чисел первое определяет число позиций, резервируемых для вывода всего числа, а второе – число позиций для дробной части. Если в качестве формата вывода используется одно число, то оно определяет число позиций, резервируемых для вывода всего числа, а само число выводится в формате с плавающей точкой. В этом случае рекомендуется задавать значение формата не меньше 10, так как под экспоненту отводится пять позиций и еще две позиции выделяется под знак числа и десятичную точку. Если при выводе формат числа не указывать, то Pascal попытается вывести число наиболее компактным способом. Лучше уяснить действие форматов поможет следующий пример:

ProgramFormats;

UsesCRT;

varx : real;

begin

x:=1234.567;

writeln(x);

writeln(x:8:3);

writeln(x:8:2);

writeln(x:8:1);

writeln(x:12);

writeln(x:14);

end.

Рассмотрим еще одну программу, которая строит таблицу длин окружностей радиусами от 0.1 до 1 см с шагом 0.1 (заметьте, что для числа π используется встроенная константа pi):

ProgramTable;

UsesCRT;

varr, s : real;

begin

r:=0.1; // Начальное значение

repeat

s:=2*pi*r; // Вычисление длины

writeln (r:3:1,s:6:2); // Вывод

r:=r+0.1; // Увеличение радиуса на 0.1

untilr>1.0; // Условие окончания цикла

end.

Задание 8 (часть 2)

3. Проанализируйте пример и постройте аналогичную программу, вычисляющую площади круга (по формуле s = πr 2). (2 балла)

4. Напишите программу, которая вводила бы с клавиатуры значения времени и скорости, вычисляла бы пройденный путь. (3 балла)

5. Напишите программу, которая вводила бы с клавиатуры 10 вещественных чисел и вычисляла бы их среднее арифметическое. (5 баллов)

6. * Напишите программу, которая вводила бы градусы, минуты и секунды дуги переводила их в градусы и его десятичные доли.

- 26 -

При решении сложных задач разумно разбить алгоритм на несколько более простых составляющих. В языке Pascal существуют специальные средства для этого – подпрограммы. Есть два вида подпрограмм: процедуры и функции. Функция получает информацию от вызывающей программы через свои параметры. Параметры, описанные в заголовке функции, называются формальными параметрами. Параметры, указанные при вызове функции называют фактическими. Типы и число фактических параметров должны соответствовать типу и числу формальных параметров. Следующий пример иллюстрирует работу функций.