Бесформатный вывод

10 25

Е-1

Begin

End.

End

Begin

Write('n,m='); ReadLn(n,m);

WriteLn(‘ not= ‘, not n, not m);

WriteLn(‘ and= ‘, n and m);

WriteLn(‘ or = ‘, n or m);

WriteLn(‘ xor= ‘, n xor m);

WriteLn(' shl= ‘,n shl m);

WriteLn(' shr= ‘, n shr m);

В программе организуется ввод двух произвольных целых чисел и печать результата применения к ним всех логических операций. Для выхода из программы следует нажать Ctrl-Z и Enter.

Логические операции над логическими данными дают результат логического типа по правилам, указанным в таблице 3.

Таблица 3. Логические операции над данными типа Boolean

Операнд 1	Операнд 2	not	and	or	xor
True	-	False	-	-	-
False	-	True	-	-	-
False	False	-	False	False	False
False	True	-	False	True	True
True	False	-	False	True	True
True	True	-	True	True	False

Операция отношения IN применяется к двум операндам. Первым (левым) операндом должно быть выражение любого порядкового типа, вторым - множество, состоящее из элементов того же типа, или идентификатор множественного типа. Операция дает TRUE, если левый операнд принадлежит множеству, например:

var с: char;

type digit = set of ' 0 '..' 9 ';

if с in digit then.......

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

В тригонометрических функциях аргумент должен быть задан только в радианах (см. ниже таблицу).

Вызов функции	Тип аргумента	Тип значения	Назначение функции
Abs(x)	Целый/вещественный	Как у аргумента	Абсолютное значение x
Pi	Целый/вещественный	Вещественный	Значение числа Pi
Sin(x)	Вещественный	Вещественный	Синус x (радиан)
Cos(x)	Вещественный	Вещественный	Косинус x (радиан)
Arctan(x)	Вещественный	Вещественный	Арктангенс x (радиан)
Sqrt(x)	Целый/вещественный	Как у аргумента	Квадратный корень из x, x>0
Sqr(x)	Целый/вещественный	Как у аргумента	Значение квадрата x
Exp(x)	Вещественный	Вещественный	Значение E в степени x
Ln(x)	Вещественный	Вещественный	Натуральный логарифм x, x>0
Trunc(x)	Целый	LongInt	Целая часть значения x
Frac(x)	Вещественный	Вещественный	Дробная часть значения x
Int(x)	Вещественный	Вещественный	Целая часть значения x
Round(x)	Вещественный	LongInt	“Правильное” округление x до ближайшего целого
Random	Вещественный	Вещественный	Следующее число из диап.0<=…<1
Random(x)	Word	Word	Следующее число из диап.0<=…<x
Odd(x)	Целый	Логический	Возвращает True, если x-нечетное (x-целое)
Succ(x)	Целый	Логический	Возвращает след. за x значение в перечисляемом типе
Pred(x)	Целый	Логический	Возвращает предыдущее значение x в перечисляемом типе
Chr(x)	Целый(Byte)	Символьный	Возвращает символ ASCII кода x
Ord(x)	Символьный	Целый(Byte)	Возвращает ASCII код символа x
Inc(x)	Целый	Целый	Увеличивает значение x на 1
Dec(x)	Целый	Целый	Уменьшает значение x на 1
Inc(x, n)	Целый	Целый	Увеличивает значение x на N
Dec(x, n)	Целый	Целый	Уменьшает значение x на N
A Div B	Целочисленное деление A на B. Возвращает целую часть частного, дробная часть отбрасывается
A Mod B	Восстанавливает остаток, полученный при выполнении целочисленного деления. A и B должны быть целого типа

Пример:

A = 11; B = 5, тогда A Div B дает 2

A Mod B дает 1

A = 2; B = 3, тогда A Div B дает 0

В Паскале заданы стандартные функции для вычисления трех тригонометрических функций. Для вычисления остальных необходимо использовать известные математические соотношения, например:

ArcSinx = ArcTg (x / Sqrt (1- x*x));

ArcCosx = Pi/2 – ArcSin (x);

ArcCtgx = Pi/2 - ArcTg (x);

Для вычисления логарифма с основанием а используется соотношение .

Возведение x в степень a осуществляется с использованием стандартных функций .

Но таким образом нельзя возвести в целую степень отрицательное число. Это можно сделать с использованием операторов цикла.

Оператор присваивания

Общий вид оператора: <Имя>:= <Выражение>;

Здесь имя - имя переменной, выражение - арифметическое или логическое выражение.

Пример:

Y:= Abs (x) -3.5;

Min:= M Div N;

В операторах присваивания переменная и выражение должны иметь один и тот же тип, а для переменных интервального типа - одно и то же подмножество значений. Нельзя присваивать целочисленным переменным выражение типа Real. Однако разрешается присваивать переменной типа Real выражение целочисленного типа.

Пример:

Y:= Sqrt (Exp (x)) + 2 * Sqr (x) * Sin (x/2) - Exp (5* Ln (x))

Процедура ввода данных

Для ввода данных:

· с клавиатуры во время работы программы исходных данных (значений переменных) предназначена инструкция readln (read);

· используя одну инструкцию readln (read), можно ввести значения нескольких переменных;

· в случае несоответствия типа введенных данных типу переменной, значение которой вводится с клавиатуры, программа завершает работу и на экран выводится сообщение Error №ошибки: invalid numeric format (если программа запущена из среды разработки, т. е. из Turbo Pascal) или Run time error №ошибки (если программа запущена из операционной системы).

Для вызова процедуры ввода используются три оператора:

1) Read (список переменных);

Каждое вводимое значение набирается минимум через один пробел и последовательно присваивается переменным из списка;

2) ReadLn (список переменных);

То же, что и оператор Read, только после ввода данных происходит переход на новую строку (т.е. следующий оператор ввода будет вводить данные с новой строки);

3) ReadLn;

Происходит переход на новую строку без ввода данных.

Последовательно расположенные операторы 1, 3 эквивалентны одному оператору 2. Значения переменных вводятся с терминала и должны соответствовать типам переменных из списка ввода. В Паскале допускается вводить следующие данные: целые, вещественные, символьные. С помощью операторов ввода нельзя ввести значение переменной следующих типов: логический, перечисляемый, массив (необходимо вводить значения отдельных элементов массива), множество (следует вводить значения элементов множества) и запись (необходимо вводить значения отдельных полей записи).

Пример:

Var A,B,C: Real;

D,F: Integer;

...

Read (A,B,C);

ReadLn;

Read (D,F);

Для ввода значений переменных на экране набираются числа в следующем порядке:

Процедура вывода данных

Для вывода данных на экран:

· инструкции write и writeln предназначены для вывода на экран монитора сообщений и значений переменных;

· одна инструкция write (writeln) может вывести на экран значения нескольких переменных и (или) несколько сообщений;

· инструкция writeln без параметров переводит курсор в начало следующей строки экрана.

Для вызова процедуры вывода используются три оператора:

1) Write (список переменных);

Выводит последовательно значения переменных из списка;

2) Writeln (список переменных);

То же, что и оператор Write, но после вывода переменных осуществляется переход на новую строку (следующий оператор вывода будет выводить данные с начала новой строки);

3) Writeln;

Осуществляется переход на новую строку без вывода данных.

Как и при выводе, последовательно расположенные операторы вида 1, 3 эквивалентны одному оператору 2.

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

Форматы вывода данных

В процедурах вывода имеются две возможности выводить данные: без указания ширины поля вывода (бесформатный вывод) и с указанием ширины поля вывода (форматный вывод).

Целые, символьные и логические - выводятся, начиная с позиции курсора.

Пример:

а=15 Write ('A=',A); → A=15

c='X' Write ('C=',C); → C=X

d=True Write ('D=',D); → D=TRUE

Вещественные - выводятся в поле шириной 17 позиций в формате с плавающей точкой. Дробная часть мантиссы содержит 10 цифр.

Пример:

а=125.286 Write ('A=',A); → A= 1.2528600000E+02

b=-2.281e1 Write ('B=',B); → B=-2.2810000000E+01

Дата добавления: 2014-01-06