1.5 Раздел процедур и функций

В Паскале подпрограммы делятся на процедуры и функции:

Синтаксически процедуры и функции состоят из заголовка (содержащего ключевое слово procedure или function, имени, за которым может следовать описание передаваемых параметров в скобках, тип возвращаемого значения через символ двоеточия для функций и точки с запятой для процедур), после заголовка следует тело, после которого ставится символ ;.

program mine(output);

var i : integer;

procedure print(var j: integer);

function next(k: integer): integer;

begin

next := k + 1

end;

begin

writeln('Всего: ', j);

j := next(j)

end;

begin

i := 1;

while i <= 10 do

print(i)

end.

1.6 Раздел действий (операторов)

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

Раздел операторов начинается зарезервированным словом begin (начало), далее следуют операторы языка, отделенные друг от друга точкой с запятой. Завершает раздел зарезервированное слово end. (конец) с точкой.

Например:

Begin {Начало программы}

Write('Введите значение целого числа A >');

{Вывод запроса на экран}

Readln(A); {Ввод значения A с клавиатуры} Write('Введите значение целого числа B >');

Readln(B);

Proizved := A * B; {Вычисление переменной Proizved}

Write('Произведение чисел ',A,' и ',B,' = ',Proizved);

{Вывод ответа}

end. {Конец программы}

1.7 Примеры решения задач

Разработать программы для вычисления:

(*Вычислить площадь круга*)

Programzad1;{*название программы*}

usescrt; {*поключение к библиотеке*}

constpi=3.14;{*константа не изменяемое число*}

vars,r:real;{*переменные s,r- вещественного значения*}

begin

CLRSCR;{*очищение экрана*}

WRITE ('BBEDITER=');{* Вывод на экран сообщения*}

READLN(R);{*Чтение данных, переход к началу следующей строки*}

S:=PI*R*R;{*S присваивается значение пи умножить на R в квадрате*}

WRITELN('PLOSHADPABHA ',S:5:3);{*Вывод данных на экран и

значения переменной S*}

READLN;{*Переход к началу строки*}

END.

(*Вычислить длину окружности *)

programzad 1_1;{*название программы*}

usescrt; {*поключение к библиотеке*}

constpi=3.14;{*неизменное значение*}

varC,r:real;{*переменные c,r- вещественного значения*}

begin

CLRSCR; {*Очищение экрана*}

WRITE('BBEDITER=');{* Вывод на экран сообщения*}

READLN(R);{*Чтение данных и переход к началу следующей строки*}

C:=2*PI*R;{*C присваивается значение 2 умноженное на пи и на R*}

WRITELN('DLINAPABHA ',C:5:3);{*Вывод данных на экран и

значения переменной C*}

READLN;{*Переход к началу строки*}

END.

(* Вычислить периметр прямоугольника*)

programzad3;

usescrt; {*поключение к библиотеке*}

varP,A,B:reaL;{*переменные c,r- вещественного значения*}

begin

CLRSCR;{*Очищение экрана*}

WRITE('BBEDITEA=');{* Вывод на экран сообщения*}

READLN(A);{*Чтение данных и переход к началу следующей строки*}

WRITE('BBEDITEB=');{* Вывод на экран сообщения*}

READLN(B);{*Чтение данных и переход к началу следующей строки*}

P:=2*(A+B);{*P присваивается значение 2*(A+B)*}

WRITELN('PERIMETRPABEH ',P:5:3);{*Вывод данных на экран изначения переменной P*}

READLN;{*Переход к началу строки*}

END.{*Завершение программы*}

(*Вычислить: сумму, разность и произведение вывести на экран результат*)

programzad3;{*название программы*}

usescrt; {*поключение к библиотеке*}

varA,B,C:real;{*Вводпеременных c,r- вещественного значения*}

begin

CLRSCR;{*Очищение экрана*}

WRITE('BBEDITEA=');{* Вывод на экран сообщения*}

READLN(A);{*Чтение данных и переход к началу следующей строки*}

WRITE('BBEDITEB=');{* Вывод на экран сообщения*}

READLN(B);{*Чтение данных и переход к началу следующей строки*}

C:=A+B;{*С присваивается значение A+B *}

WRITELN('A+B=',C:5:3);{*Вывод данных на экран и

Значения переменной C*}

C:=A-B; {*С присваивается значение A-B *}

WRITELN('A-B=',C:5:3);{*Вывод данных на экран и

значения переменной C*}

C:=A*B; {*С присваивается значение A*B *}

WRITELN('A*B=',C:5:3);{*Вывод данных на экран и

значения переменной C*}

READLN(C);{*Чтение данных и переход к началу следующей строки*}

END.