Лабораторная работа: Разработка программы формирования перестановок, сочетаний, размещений (Turbo Pascal 7.0.)

sochetanye

m, y - целые числа;

sochetanye(m,y:integer);

Операция сочетания

perestanovka

m, y - целые числа;

s - массив;

perestanovka(m,y:integer; s:mas);

Операция перестановки

razmesheniye

m, y - целые числа;

razmesheniye(m,y:integer; s:mas);

Операция размещения

Постановка отдельного примера:

Рассмотрим все возможные перестановки из 7-ми элементов, сочетания из 6 по 3 элемента и размещения из 7 по 3 элемента.

Вывод

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

Приложение

Листинг программы

uses crt;

label kombinatorika;

type

massiwi=array [1..20] of integer;

var

massiwi1:massiwi;

massiwi2:massiwi;

iz_skolki, po_skolko:integer;