Amp; Теоретический материал.

Лабораторная работа № 4

Процедуры и функции

Вариант 1

Цели лабораторной работы. Продолжение знакомства с интерфейсом среды Delphi. Отработка навыков использования операторов повторений. Создание пользовательских процедур и функций. Отработка первоначальных навыков отладки и выполнения программ.

amp; Теоретический материал.

Описание пользовательской процедуры.

Procedure < имя> (< список формальных параметров>);

Описание пользовательской функции.

Function < имя> [< список формальных параметров> ]: < тип функции>;

: Примеры.

Нахождение числа сочетаний, с использованием пользовательских процедуры и функции (применение функции предпочтительнее) факториал .

program Example6_1; {Нахождение числа сочетаний, с использованием процедуры для нахождения факториала}

{$APPTYPE CONSOLE}

uses

SysUtils, windows;

Var fact1, fact2, fact3, sot: longint; m, n: integer;

Procedure fact(n: integer; var f: longint);

var i: integer;

Begin

f: =1;

For i: =2 To n Do

f: =f*i;

End;

Begin {Основная программа}

Setconsoleoutputcp(1251);

Setconsolecp(1251);

Writeln('Введите значения m и n');

Readln(m, n);

fact(n, fact1); fact(m, fact2); fact(n-m, fact3);

sot: =fact1 div fact2 div fact3;

Writeln('Число сочетаний из ', n, ' элементов по ', m, ' равно ', sot);

Readln

End.

program Example6_2; {Нахождение числа сочетаний, с использованием функции факториал}

{$APPTYPE CONSOLE}

uses SysUtils, windows;

Var sot: longint; m, n: integer;

Function fact(n: integer): longint;

var i: integer; f: longint;

Begin

f: =1;

For i: =2 To n Do

f: =f*i;

fact: =f

End;

Begin {Основная программа}

Setconsoleoutputcp(1251);

Setconsolecp(1251);

Writeln('Введите значения m и n');

Readln(m, n);

Sot: =fact(n) div fact(m) div fact(n-m);

Writeln('Число сочетаний из ', n, ' элементов по ', m, ' равно ', sot);

Readln

End.