Игра "Сапер" всем известна. Некоторые студенты делают реализацию алгоритма этой игры в качестве курсовой работы. Для таких студентов, я думаю, пригодится эта функция, которая открывает ячейки. Функция рекурсивная.
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 [...]
Очень популярное задание в униварситетах на компьютерных специальностях - это создание тестов для тестирования знаний студентов. Вот пример такой программы.
uses crt;
label bye;
var
fname:string[40];
f: text;
VsegoVopr: integer;
PravOtv: integer;
nOtv: integer;
prav: integer;
Otv: integer;
st:string;
p:integer;
i:integer;
begin
if ParamCount = 0 then
begin
writeln('NE ZADAN FILE VOPROSOV TESTA');
writeln('Komandaya stroka: test imya');
end;
fname := ParamStr(1);
Assign (f,fname);
{$I-}
Reset(f);
{$I+}
if IOResult <> 0 then
begin
writeln('Ne naiden file testa',fname);
end;
writeln('seichas budet test. udachi');
TextBackGround(Blue);
ClrScr;
VsegoVopr := 0;
Prav := [...]
Претендентам на должность программиста Delphi компания Яндекс предлагает решить несколько тестовых задач. Только после этого они принимают решение, рассматривать Ваше резюме или нет. Но задачи достаточно интересные, и сейчас попытаемся найти решение одной из них.
Всегда ли будет корректно работать приведенный код?
type
PSomeRecord = ^TSomeRecord;
TSomeRecord = record
F1: Byte;
F2: DWORD;
end;
function GetSomeRecord: PSomeRecord;
var
A: Byte;
B: DWORD;
begin
A := 1;
B := 2;
GetMem(Result, [...]
