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

Вещественные типы

Тип	Название	Размер, байт
Real	Вещественный	6
Single	Одинарной точности	4
Double	Двойной точности	8
Extended	Расширенный	10
Comp	Большое число	8

Автор языка Н. Вирт определил всего один вещественный тип — real и отвел под него разумное количество памяти. Однако аппаратно этот тип в компьютерах семейства IBM PC не поддерживается, поэтому впоследствии в язык были введены типы single и double, а также тип extended для работы с большими числами и с высокой точностью.

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

Над переменными вещественного типа можно выполнять 4 арифметические операции:

+ (сложение);

- (вычитание);

* (умножение);

/ (деление вещественное);

Результат их выполнения – вещественный. В общем случае при выполнении любой операции операнды должны быть одного и того же типа, но один из операндов может быть и целого типа.

Пример объявления вещественных переменных:

var

a:single;

b: real;

c, d: double;

 

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

Разработайте следующую программу: с клавиатуры вводится вещественное число. Необходимо найти сумму двух (старших) цифр дробной части числа. Например, если исходное число 1257,237, то сумма первых двух цифр дробной части равна 5.

 

Стандартные математические функции

Использование подпрограмм модуля позволяет System избежать ненужного программирования многих стандартных функций.

Описание и назначение некоторых числовых функций приводятся в таблице:

Подпрограмма (функция)	Назначение	Тип результата
Abs(х)	│x│	Целый, вещественный
Arctan(х)	arctg х	Вещественный
Sin(х)	sin х	Вещественный
Cos(х)	cos x	Вещественный
Ехр(х)	еx	Вещественный
Ln(x)	In х, х > 0	Вещественный
Sqr(х)	x2	Целый, вещественный
Sqrt(х)	,х≥0	Вещественный
Int (х)	[х] целая часть числа	Вещественный
Frac(х)	{х} дробная часть числа	Вещественный
Trunc(х)	[х] целая часть числа	Целый
Round(х)	Округление до ближайшего целого	Целый

Для обращения к конкретной стандартной функции следует записать в выражении её имя и конкретный фактический параметр.

В языке программирования Паскаль для генерации случайных чисел в заданных диапазонах используется функция random. Перед ее использованием обычно выполняется процедура инициализации датчика случайных чисел - randomize; иначе программа всегда будет выдавать один и тот же результат.

Так выражение random (10), говорит о том, что будет получено любое число в диапазоне (0, 10).

 

7. Объясните назначение условного оператора в языке программирования Паскаль (Delphi). Опишите структуру условного оператора. Приведите пример фрагмента блок-схемы с условием.

Разработайте программу для вычисления суммы положительных чисел. Пять вещественных чисел вводятся с клавиатуры пользователем.

 

Условный оператор IF

Условный оператор позволяет проверить некоторое условие и в зависимости от результатов проверки выполнить то или иное действие.

Структура условного оператора:

if <логическое выражение>

then

 <Оператор 1>

[ else

<Оператор 2>]

Здесь if, then, else - зарезервированные слова (если, то, иначе), квадратные скобки означают, что конструкция else <Оператор 2> может отсутствовать, тогда он называется сокращенным условным оператором.

Например, вычисление квадратного корня из числа "a" проводится при условии a>=0, операторами:

IF a>=0 Then b:= Sqrt(a)

Else                    

begin

WriteLn('a<0');

Readln;

Halt;

end;

Пример фрагмента блок-схемы с условием.

8. Объясните назначение оператора выбора (варианта) в языке программирования Паскаль (Delphi). Опишите структуру оператора выбора (варианта). Приведите пример фрагмента блок-схемы с условием.