Игра "Сапер" всем известна. Некоторые студенты делают реализацию алгоритма этой игры в качестве курсовой работы. Для таких студентов, я думаю, пригодится эта функция, которая открывает ячейки. Функция рекурсивная.
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 [...]
Разберем простой алгоритм сортировки методом вставки. Хотя существуют и более эффективные алгоритмы сортировок, этот метод достаточно прост в реализации и не треует оперативной памяти даже под стек.
Program SortByVstavka;
var A: array of Integer;
i, j, key: Integer;
begin
//Заполняем массив A
for i := 0 to Length(A) - 1 do
begin
key := A[i];
j [...]
Про рекурсию я уже рассказывал на примере вычисления факториала. Но паскаль также поддерживает и так называемую косвенную рекурсию. Это когда некоторая функция вызывает другую функцию, которая в свою очередь вызывает первую функцию.
Program Primer_Kosvennoi_Rekursii;
Var
a : integer;
Procedure Recurs_2 (Var Y:integer); Forward;
Procedure Recurs_1 (Var X:integer);
Begin
X := X-1;
if X > 0
[...]
Приведем реализацию алгоритма нахождения определенного интеграла методом Ньютона-Котеса. Используется язык программирования Паскаль. Программа написана для операционной системы 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;
[...]
Free Pascal представляет собой 32 и 64 битный профессиональный компилятор языка Паскаль. Он доступен для различных процессоров: Intel x86, Amd64/x86_64, PowerPC, PowerPC64, Sparc, ARM и следующих операционных системам: Linux, FreeBSD, Mac OS X / Darwin, DOS, Win32, Win64, WinCE, OS / 2, Netware и MorphOS. Синтаксис языка совместим с TP 7.0, а также с большинством версий [...]
