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.


6958019909192833.html
6958035540028145.html
    PR.RU™