Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
P_LAB_01_Программирование линейных алгоритмов.doc
Скачиваний:
4
Добавлен:
06.05.2019
Размер:
135.17 Кб
Скачать

Арифметические функции

Сhr(x) - возвращает символ, заданный целым числом x.

Rоund(x) - округляет значение вещественного типа до значения длинного целого типа.

Тrunс(x) - усекает значение вещественного типа до значения длинного целого типа.

Abs(x) - возвращает абсолютное значение аргумента.

Аrctan(x) - возвращает арктангенс аргумента.

Соs(x) - возвращает косинус аргумента.

Ехp(x) - возвращает экспоненту аргумента.

Frас(x) - возвращает дробную часть аргумента.

Int(x) - возвращает целую часть аргумента.

Ln(x) - возвращает натуральный логарифм аргумента.

Рi - возвращает значение числа Pi (3,141592653897932385).

Sin(x) - возвращает синус аргумента.

Sqr(x) - возвращает аргумент в квадрате.

Sqrt(x) - возвращает квадратный корень аргумента.

Совместимость типов

В языке Pascal введены понятия эквивалентности и совместимости типов. Два типа Т1 и Т2 являются эквивалентными (идентичными), если выполняется одно из двух условий:

  • Т1 и Т2 представляют собой одно и то же имя типа;

  • тип Т2 описан с использованием типа Т1 с помощью равенства или последовательности равенств. Например:

type

T1 = Integer;

T2 = T1;

T3 = T2;

Менее строгие ограничения накладываются на совместимость типов. Так, типы являются совместимыми, если:

  • они эквивалентны;

  • являются оба либо целыми, либо действительными;

  • один тип – тип-диапазон, другой - его базовый;

  • оба тип-диапазон с общим базовым;

  • один тип - строковый, другой - символьный.

В Турбо Паскаль ограничения на совместимость типов можно обойти с помощью приведения типов. Приведение типов позволяет рассматривать одну и ту же величину в памяти ЭВМ как принадлежащую разным типам. Для этого используется конструкция

Имя_Типа(переменная или значение)

Напрмер, Integer('Z') представляет собой значение кода символа 'Z' в двухбайтном представлении целого числа, а Byte(534) даст значение 22, поскольку целое число 534 имеет тип Word и занимает два байта, а тип Byte занимает один байт, и в процессе приведения старший байт будет отброшен.

6. Программирование линейных алгоритмов

Основные конструкции алгоритмов – это ограниченный набор блоков и стандартных способов их соединения. Существуют три базовых конструкции алгоритмов – следование, разветвление и цикл.

Структура следования – это последовательное выполнение отдельных блоков или групп блоков в естественном порядке.

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

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

В программе, написанной на языке Pascal, могут быть следующие разделы:

  • заголовок программы;

Program имя_программы;

  • раздел объявления модулей

Uses unit1, unit2;

  • раздел объявления меток;

Label label1, label2;

  • раздел объявления констант;

Const name_const = value;

  • раздел объявления типов;

Type name_type=description_type;

  • раздел объявления переменных;

Var name_variable : type_variable;

  • раздел объявления процедур и функций;

перечисление процедур и функций

  • тело программы (обязательная часть).

Begin

{Операторы языка Pascal}

End.

Пример. Вычислить значение арифметического выражения следующего вида:

, А=1.5.

Программа на языке Pascal:

Program MyProg;{в языке Turbo Pascal эта строка не обязательна}

Const A=1.5; {описание константы}

Var B,C,D,V:real; {описание переменных}

Begin

B:=4.3;

{вывод подсказки}

write('Введите вещественное число C=');

readln(C); {Ввод исходных данных}

write('Введите вещественное число D=');

readln(D);

V:=(A*Sqrt(Abs(Sin(B*C+A)))-Exp(-A*C))/Sqrt(Abs(2*B+D));

write('V=',V); {Вывод результата}

readln;

End.