Вещественного типа

Встроенные функции для обработки данных

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

Данных целого типа

Встроенные процедуры и функции для обработки

Целые типы

Над целыми числами выполняются операции:

"+" – сложение; "*" – умножение;" / "– деление;

"-" – вычитание; div – целочисленное деление;

mod – получение остатка от целочисленного деления.

В разделе описания переменных данные вещественного типа можно описать так:

var a,b: real;

c,d: single;

k: double;

l,m,n: extended;

Длина, байт	Название	Диапазон десятичного порядка	Количество значащих цифр
	single	от -45 до +38	от 7 до 8
	real	от -39 до +38	от 11 до 12
	double	от -324 до +308	от 15 до 16
	extended	от -4951 до +4932	от 19 до 20
	comp	от до	от 19 до 20

Обращение	Реализуемое действие
abs(x)	Модуль аргумента
arctan(x)	Àрктангенс (радианы)
frac(x)	Дробная часть числа
int(x)	Целая часть числа
ln(x)	Натуральный логарифм
pi	=3.14159...
random	Псевдослучайное число, принадлежащее интервалу[0,1]
randomize	Инициализация датчика псевдослучайных чисел
sqrt(x)	Корень квадратный
sqr(x)	Квадрат аргумента
sin(x)	Синус(радианы)
сos(x)	Косинус(радианы)
exp(x)	Экспонента

Например, если переменные описаны следующим образом:

var

x,y : integer;

a,b : real;

то можно записать операторы присваивания

x:=x+5;

y:=x;

a:=b;

b:=5.33*x+y/2;

4. ПРОЦЕДУРЫ ВВОДА И ВЫВОДА

read (<список ввода>);

readln (<список ввода>);

writeln(<список ввода>);

write(<список ввода>);

5. ПРИМЕР ЛИНЕЙНОЙ ПРОГРАММЫ

program pr2 ; var a,b,s,p:real; begin writeln('Введите длины стоpон пpямоугольника:'); read(a,b); s:=a*b; p:=(a+b)*2; writeln('Площадь = ',s:5:3); writeln('Пеpиметp = ',p:5:3); end.

6. РАЗВЕТВЛЯЮЩИЯСЯ ПРОГРАММЫ

program pr3; var x,y:real; begin writeln('Введите x:'); readln(x); if x>0 then y:=x*x*x+3 else y:=x*sin(x); writeln(y); end.

7. УСЛОВНЫЙ ОПЕРАТОР

if <условие> then <оператор1> else <оператор2>.

	if a>b then max:=a else max:=b;
	if k>0 then s:=s+k;
	if a>b then if a>c then max:=a else max:=c;
	if a>b then if a>c then max:=a else max:=c else if b>c then max:=b else max:=c;

8. СОСТАВНОЙ ОПЕРАТОР

	if c>0 then begin s:=s+c; k:=k+1 end else c:=c-1;
	if n<m then begin n:=n+1; m:=m-1; end else begin n:=n-1; m:=m+1; end;

9. ЛОГИЧЕСКИЙ ТИП

	if (a>b) and (a>c) then max:=a;
	if (x=y) or (x=z) then z:=y;

10. Оператор case

case <выражение> of <список выбора> else <оператор> end;

Здесь case, of, else, end - ключевые слова (пер. с англ.: выбор, из, иначе, конец);

11. Оператор перехода

goto <метка>

12. ПРИМЕР РАЗВЕТВЛЯЮЩЕЙСЯ ПРОГРАММЫ

program pr7; var k,l,n,m:byte; begin writeln('Введите кооpдинаты полей k,l,n,m: '); read(k,l,n,m); if odd(k+l) and odd(n+m) or not odd(k+l) and not odd(n+m) then writeln('Поля одного цвета ') else writeln('Поля pазного цвета '); end.

13. ЦИКЛИЧЕСКИЕ ПРОГРАММЫ

Program pr9; var a, b, h, x, y: real; begin writeln('Введите a,b,h:'); read(a,b,h); x:=a; repeat y:=x*sin(x); writeln('x = ',x:5, ' y= ',y:5); x:=x+h; {К "старому" значению х добавляется h и результат пересылается снова в х} until x>b; end.

14. Оператор цикла с постусловием

repeat <операторы> until <условие>

program pr10; var i:integer; begin i:=1; repeat writeln(i); i:=i+2; until i>10; end.

15. Оператор цикла с предусловием

while <условие> do <оператор>;

program pr11; const stopcod=-1; var c: integer;{количество вводимых чисел} sum,{сумма вводимых чисел} number:real;{вводимое число} begin sum:=0; c:=0; writeln('Введите пеpвое число последовательности:'); read(number); while number<>stopcod do begin sum:=sum+number; c:=c+1; writeln('Введите cледующее число последовательности:' ); read(number); end; if c=0 then writeln ('Сpеднее значение pавно нулю') else writeln ('Сpеднее значение pавно ',sum/c); end.

16. Оператор цикла со счетчиком

for <п.ц.>:=<н.з> to <к.з.> do <оператор>;

program pr13; var i,n:integer; sum,{сумма ряда} k:real;{очеpедной член pяда} begin sum:=0; i:=1; writeln('Введите число членов pяда:'); read(n); k:=1; for i:=1 to n do begin k:=k*10/i; sum:=sum+k; end; writeln ('Сумма pяда pавна ',sum); end.