Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Лекции_TP.doc
Скачиваний:
10
Добавлен:
22.12.2018
Размер:
1.4 Mб
Скачать

Синтаксис языка.

  1. Операнды – данные , с которыми выполняется данная операция.

  2. Оператор – действия , которые должна выполнять ЭВМ

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

  4. Комментарии: строка заключается в фигурные скобки, поясняющие действие.

Запись текста программы.

  1. В языке нет четких правил разбивки текста на строки.

  2. Написание каждого оператора целесообразно с новой строки.

  3. Операторы одного уровня, находящиеся в разных строках, должны быть выровнены по вертикали.

Операции и выражения.

В любом языке программирования определенный набор операций возможен для определенного типа данных: арифметические (+ , - , * , / ) , логические операции ( AND, OR , NOT ). Это операции работы с логическим типом данных .

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

Пример: если операнды целые или вещественные числа – выражение арифметическое, если логического типа ,то выражение будет логическим .

Примечание:

  • лучше если в выражение будут входить данные одинакового типа;

  • знак “*” ставить обязательно;

  • не могут стоять рядом два знака операций;

  • порядок вычислений выполняется в соответствии с приоритетом операции , как в математике .

Результатом логических выражений могут быть две константы или два значения: истина и ложь (TRUE и FALSE).

Встроенные (стандартные) функции языка turbo pascal.

Аналогичны элементарным функциям математического анализа и некоторых других, составленные для наиболее часто встречаемых действий (встроенных в транслятор языка).

Таблица встроенных функций.

Функция

Назначение

Тип

аргумента

Функции

ABS (X)

Вычисление абсолютного значения Х

REAL

INTEGER

REAL

INTEGER

SQR (X)

Вычисление квадрата Х

REAL

INTEGER

REAL

INTEGER

SIN (X)

Вычисление синуса Х

REAL

INTEGER

REAL

REAL

COS (X)

Вычисление косинуса Х

REAL

INTEGER

REAL

REAL

ARCTAN (X)

EXP (X)

Вычисление экспоненты Х

REAL

INTEGER

REAL

REAL

EXP 10(X)

Вычисление десятичной экспоненты Х

REAL

INTEGER

REAL

REAL

LN (X)

Вычисление натурального логарифма Х

REAL

INTEGER

REAL

REAL

LOG (X)

Вычисление десятичного логарифма Х

REAL

INTEGER

REAL

REAL

SQRT (X)

Вычисление квадратного корня из Х

REAL

INTEGER

REAL

REAL

A DIV B

A MOD B

Вычисление частного при делении

А на В

Вычисление остатка при делении А на В

INTEGER

INTEGER

TRUNC (X)

Нахождение целой части числа

REAL

INTEGER

INTEGER

INTEGER

ROUND (X)

Округление Х в сторону ближайшего целого

REAL

INTEGER

INTEGER

INTEGER

FRAC (X)

Вычисление дробной части числа Х

REAL

REAL

INT (X)

Вычисление целой части действительной величины

REAL

REAL

ODD (X)

TRUE , если Х – нечетное

FALSE , если Х – четное

INTEGER

BOOLEAN

ORD (X)

Нахождение порядкового номера элемента Х в перечне допустимых типов

BOOLEAN

INTEGER

ORD(X)=X выбор аргумента

INTEGER

INTEGER

CHR (X)

Определение символа по его порядковому номеру

INTEGER

CHAR

SUCC (X)

Нахождение элемента, являющегося следующим для заданного

INTEGER

BOOLEAN

CHAR

INTEGER

BOOLEAN

CHAR

PRED (X)

Нахождение элемента, являющегося предыдущим для заданного

Перечислимый тип

EOF (F)

TRUE , если FILE (F)

находится в состоянии окончания, FALSE , если F не закончен

FILE

BOOLEAN

EOLN(F)

TRUE , FALSE проверка файла на окончание строки

FILE

BOOLEAN

RANDOM (X)

Возвращает случайное число от 0 до Х

INTEGER

INTEGER

INTEGER- целое

BOOLEAN-логическое

FILE- файловый

REAL- вещественный

Пример использования RANDOM.

PROGRAM A1;

VAR I: INTEGER

BEGIN

FOR I:=1 TO 10 DO {Цикл}

WRITEN(“случайное число из диапазона от 5 до 7 равно” ;RANDOM(2)+5 ); {вывод}

END.

Математическая процедура RANDOMIZE – обеспечивает несовпадение последовательности случайных чисел , инерцируемых функцией RANDOM.

Примечание: если рользуемся функцией RANDOM без предварительного использования процедуры RANDOMIZE , то при каждом последующем перезапуске программы цепочка случайных чисел будет повторяться.

Задача 1. По заданному радиусу R определить длину окружности и площадь круга.

R Ввести с экрана и результат вывести на экран.

PROGRAM P1;

CONST PI=3.14;

VAR R, L, S: REAL;

BEGIN READLN (R);

L:=2*PI*R;

S:=PI*R*R;

WRITELN(L,S);

END.

Задача 2. Определить квадрат числа А и вывести на печать .

PROGRAM N1 ;

VAR A: INTEGER;

BEGIN

WRITELN (SQR(A));

END.

Задача 3. Для введенного с экрана числа определить его квадрат с размещением

результата в операционной памяти.

PROGRAM T1;

VAR A,REZ:INTEGER;

BEGIN

READ (A);

REZ:= SQR (A);

WRITELN(‘ квадрат числа =’,REZ);

END.

Задача 4. Вычислить квадратный корень числа А.

PROGRAM B1;

VAR A:INTEGER;REZ:REAL;

BEGIN

READ (A);

REZ:= SQRT (A);

WRITELN(‘ корень квадратный = ’,REZ);

END.

Задача 5. Взять целую часть от корня числа А.

PROGRAM P1;

VAR A : REAL ; REZ:INTEGER;COR:REAL;

BEGIN

READ (A);

REZ:= TRUNC (SQRT (A));

WRITELN(‘ целая часть = ’,REZ);

END.

Задача 6. Вычислить косинус числа А.

PROGRAM R1;

VAR A: REAL ; REZ:INTEGER;

BEGIN

READ (A);

REZ:= COS (A);

WRITELN(‘ косинус числа = ’,REZ);

END.

Задача 7. Определить сумму 1) двух чисел А и В, 2) двух целых чисел А и В,

вводя их с экрана

1) 2)

PROGRAM O1; PROGRAM L1;

CONST A=2; B=3; VAR A , B: INTEGER;

BEGIN BEGIN

WRITELN(A+B); READ (A,B);

END. WRITELN(A+B);

END.

Задача 8. Определить минимум из трех чисел А, В, С.

PROGRAM J1;

VAR A,B,C: REAL;

BEGIN

READ(A,B,C);MIN:=A

IF A>B THEN MIN:=B

ELSE

IF A>C THEN MIN:=C

ELSE

IF B>C THEN MIN:=C