Язык программирования ABC PASCAL - [9]

Program Circles; Uses GraphABC, CRT; var r : integer; begin SetWindowSize(500,500); repeat SetBrushColor(random($FFFFFF)); circle(random(500),random(500),random(10)); delay(10); until keypressed; end.

Здесь используются несколько новых для нас приемов. Во-первых, функция keypressed, определенная в модуле CRT. Она возвращает значение true, если пользователь нажал любую клавишу. Оператор выбора цвета окружности SetBrushColor в качестве параметра использует значение random($FFFFFF). Аргумент функции random представляет максимально возможное числовое значение цвета, записанное в шестнадцатеричной системе исчисления, таким образом окружности будут заливаться случайным цветом от 0 (соответствует черному цвету) до $FFFFFF (соответствует белому цвету). К таким обозначениям цветов мы вернемся во время изучения языка HTML. Функция delay(n) выполняет задержку выполнения программы на n миллисекунд. Мы ее используем для того, чтобы окружности не выводились слишком быстро.

Задание №7.

1. Напишите программу, которая вводила бы целые числа и суммировала их до тех пор, пока пользователь не ввел число 0. (5 баллов)

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

- 24 -

Тема №8. Вещественные вычисления

До сих пор мы оперировали целыми числами. Однако в физических вычислениях в вычислениях, связанными с измерениями, мы сталкиваемся с другим классом чисел. В математике их называют вещественными (или действительными). Подмножеством вещественных чисел являются рациональные числа. В языке Pascal вводится тип данных real, который является моделью вещественных чисел в математике.

Рассмотрим сразу пример:

Program Krug;
Uses CRT;

// Вычисление длины окружности

var  r : real; // Радиус окружности
 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²¹ ). В языке Pascal такое число можно записать в следующем виде 6.67E21, т.е. вместо •10 в языке Pascal пишется буква E (большая или маленькая, всё равно). Приведем еще примеры записи вещественных чисел с плавающей точкой:

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

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

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

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

2.99•10³³, -0.21•10^-10, 35.6•10⁸, 1200000, 0.000015 (5 баллов)

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

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

- 25 -

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

Program Formats;
Uses CRT;
var  x : 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):

Program Table;
Uses CRT;
var  r, s : real;
begin
 r:=0.1; // Начальное значение
repeat
 s:=2*pi*r; // Вычисление длины
 writeln (r:3:1,s:6:2); // Вывод
 r:=r+0.1; // Увеличение радиуса на 0.1
until r>1.0; // Условие окончания цикла
end.

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