Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Функции.

Begin

<раздел операторов>

End.

Ввод данных – это передача информации от внешних устройств в оперативную память. Вывод данных – это передача из оперативной памяти на внешнее устройство.

Ввод с клавиатуры:

read (<список ввода>);

readln (<список ввода>); //следующий оператор с новой строки

Вывод на экран:

write (<список вывода>);

writeln (<список вывода>); //следующий оператор с новой строки

В списке вывода могут присутствовать указатели форматов вывода.

writeln (chislo:8:2);

5) Типы данных: простые и структурированные

Типы данных в Pascal делятся на простые и структурированные, а также указатели.

Простой тип:

· порядковые – целые (byte, integer, word), логические (boolean), символьные char), перечисляемые (color=(red,green)), интервальные (‘a’..’z’)

· вещественные (real, double)

Структурированный тип: массивы, строки, множества, записи, файлы.

Структурированные типы имеют в своей основе простые типы.

6) Арифметические и логические операции, операции сравнения.

Арифметические операции: + - * / div (целое деление) mod(остаток от деления)

Логические операции (либо true, либо false):

Логическое умножение (И) - and

Логическое сложение (ИЛИ) - or

Сложение по модулю 2 (Исключающее ИЛИ) - xor

Побитный сдвиг влево - shl

Побитный сдвиг вправо – shr

Отрицание – not

Унарные операции:

Сохранение знака +

Отрицание знака -

Операции сравнения (либо true, либо false): = <> >= <= > < in(принадлежность)

7) Условный оператор. Оператор выбора

Структура ветвления программируется с помощью условного оператора (либо true, либо false):

If <условие> then <оператор 1> else <оператор 2>;

или неполная форма

If <условие> then <оператор>;

Оператор выбора case является обобщением условного оператора if и используется для выбора одного из нескольких направлений дальнейшего хода программы.

Case <переменная> of

<значение 1>: < оператор 1>;

<значение 2>: < оператор 2>;

<значение n>: < оператор n>;

Else < оператор >

End;

8) Операторы обработки циклов. Вложенные циклы.

Цикл представляет собой последовательность операторов, выполняющихся неоднократно.

Бывают 3 вида циклов:

1) С предусловием.

While <условие> do <оператор>;

Цикл выполняется пока условие истинно. Универсальный цикл, т.к может не выполняться, если условие ложно с самого начала.

2) С постусловием.

Repeat

<оператор>

Until <условие>;

Цикл выполняется пока условие ложно. Всегда выполняется хотя бы один раз.

3) С параметром.

· С шагом +1

For <переменная>:=НачальноеЗначение to КонечноеЗначение do <оператор>

· С шагом -1

For <переменная>:=НачальноеЗначение downto КонечноеЗначение do <оператор>

Для досрочного выхода из цикла используется команда break.

Для перехода к следующей итерации цикла используется команда continue.

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

Например: for i:=1 to n do

for j:=1 to n do

write(i,’*’,j);

9) Организация подпрограмм в Pascal. Типы подпрограмм

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

Каждая подпрограмма описывается один раз, но при необходимости к ней можно обращаться неоднократно.

В Pascal существует 2 вида подпрограмм:

Функции.

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

Function ИмяФункции(ФормальныеПараметры):ТипРезультата;

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

Begin

<операторы>

ИмяФункции:=Результат;

End;

Обращение к функции записывается в правой части оператором присваивания при этом указывается ИмяФункции и в скобках перечисляются ФактическиеПараметры:

Переменная:=ИмяФункции(ФактическиеПараметры);

Пример: Вычислить N!, M!, (N-M)!. Предполагая, что N> M.

program one;

uses crt;

Var

n, m, nf, mf, mnf: integer;

function FACT(x: integer): integer;

Var

i, f: integer;

Begin

f:=1;

for i:=1 to x do

f:=f*i;

FACT:=f;

end;

Begin

clrscr;

Repeat

write('Введите n=');

readln(n);

write('Введите m=');

readln(m);

if n < m then writeln('По условию n>m!Повторите ввод!');

until (n > m);

nf:=FACT(n);

mf:=FACT(m);

mnf:=FACT(n - m);

writeln('N!=', nf);

writeln('M!=', mf);

writeln('N-M!=', mnf);

readkey;

end.