- •Информатика Часть 2
- •Дополнительные задания
- •2. Главное меню
- •3. Подготовка и выполнение программ
- •4. Идентификаторы. Переменные и константы
- •5.Типы данных. Понятие типа данных в op
- •Простые типы данных
- •Арифметические функции
- •Совместимость типов
- •6. Программирование линейных алгоритмов
- •Порядок выполнения работы
- •Варианты заданий.
Арифметические функции
С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.