Структура программы. Программа на языке Pascal состоит из разделов: Заголовок Раздел описаний; Раздел операторов. Сначала следует определить ИД и результат (переменные).

Структура программы в общем виде. Program {имя программы} Var {объявление переменных} Begin {инструкций основной программы} End.

Объявление переменных Каждая переменная должна быть объявлена; Объявления переменных помещают в раздел, который начинается словом var; Инструкция объявления переменной выглядит так: var Имя Переменной: Тип; В имени переменной можно использовать буквы латинского алфавита и цифры (первым символом должна быть буква).

ЦЕЛЫЕ ТИПЫ типдиапазон значений Shortint Integer Longint Byte Word

Процедуры ввода информации READ – данные могут вводиться через пробел или ENTER READLN – ввод данных завершается Enter Процедуры вывода информации WRITE – вывод данных, курсор остается в этой же строке WRITELN – вывод данных, курсор – в новой строке

Арифметические операции: Sqr, +, -, *, / Стандартные функции: Нельзя использовать с целыми типами работа функцийиспользуется воператоре вывода. div -вычисляет целую часть от частного, дробная откидывается. 10 div 3=3; 2 div 3=0; mod -вычисляет остаток, полученный при делении. 11 mod 5 = 1; 14 mod 5 = 4;

Операции mod и div div mod 24 mod 10 = 4 24 div 10 =2

Стандартные функции: pi, Sqrt, Sin, Cos, Abs, Exp, Ln. вещественный вещественный: Frac, Int ; вещественный целый: Round, Trunc. вычисление дробной части числа Frac(5.67)=0.67 вычисление целой части числа Int(5.67)=5.0E+00 округление вещественного числа до ближайшего целого Round(5.67)=6 отбрасывание дробной части числа Trunc(5.67)=5 Арифметические операции: Sqr,+, -, *, /

Арифметические опрации +-*+-* Целочисленное деление DIV – деление нацело MOD – остаток от деления Примеры 5 div 220 div 427 div 6 7 mod 320 mod 427 mod 6 16 div 2100 mod mod 10

Примеры программ Запустите Pascal Введите программу: Program f5; Var x,y,cd,ost:integer; Begin write(x=); readln(x); write(y=); readln(y); cd := x div y; ost := x mod y; Writeln (cd=, cd); Writeln (ost=, ost); Readln End. Результаты работы внесите в таблицу для заданных X, Y.

Результаты работы XYCdOst