Игра "Сапер" всем известна. Некоторые студенты делают реализацию алгоритма этой игры в качестве курсовой работы. Для таких студентов, я думаю, пригодится эта функция, которая открывает ячейки. Функция рекурсивная.
procedure matrix.OpenCells(i,j:integer);
var t:integer;
begin
t := 0;
if (i < 1) or (j < 1) then t := 1;
if (i = n+1) or (j = n+1) then t := 1;
if t [...]
Итак, сегодня наша задача формулируется следующим образом. Для заданной длинны кода расчитать все возможные двоичные кодовые комбинации. То есть, другими словами, нам неоходимо сгенерировать двоичную последовательности в естественном порядке. Формула, которая нам потребуется для вычисления выглядит следующим оразом n!/(n-2)! (открывай учебник по коминаторике). А реализовывать алгоритм удем на языке С++.
#include < iоstream >
#include < cоnio.h [...]
PHP поддерживает широкие объектно-ориентированные возможности, полная поддержка которых была введена в пятой версии языка. Класс в PHP объявляется с помощью ключевого слова class. Методы и поля класса могут быть общедоступными (public, по умолчанию), защищёнными (protected) и скрытыми (private). PHP поддерживает все три основных механизма ООП — инкапсуляцию, полиморфизм и наследование (родительский класс указывается с помощью ключевого словаextends после имени класса). [...]
Приведем реализацию алгоритма нахождения определенного интеграла методом Ньютона-Котеса. Используется язык программирования Паскаль. Программа написана для операционной системы DOS. Пояснительную записку и реализацию некоторых отдельных функций вы можете найти в разделе "Курсовые".
program Newton_Cotes_metod;
uses
k_unit,k_graph,graph,crt;
const
t=15;
var
c:char;
a1,b1,a,b:real;
n1,v,r,n:integer;
h,y:array[0..t] of double;
ea,k:word;
int:double;
f:string;
begin
ea:=10;
v:=detect;
initgraph(v,r,'');
cleardevice;
[...]
Наивный алгоритм используется для поиска самой длинной повторяющийся подстроки в двух строках. Привожу реализацию данного алгоритма на Delphi. Думаю, что пригодится студентам для выполнения курсовых работ.
function TForm1.GetSequence(str1, str2: string): string;
var i,j,max, max_i,max_j:integer;
Matrix: array of array of integer;
begin
//устанавливаем размерность массива
SetLength(Matrix, Length(str1));
for I:=0 to length(Matrix)-1 do
SetLength(Matrix[i],length(str2));
//строим матрицу
max:=0;
for i:=0 to length(Matrix)-1 do
for j:=0 to length(Matrix[i])-1 do
begin
if (i=0)or(j=0) then
Matrix[i,j]:=0
else
if [...]
