22 true false false 23
22 true false false
23 true false false
24 true false false
31 true false false
32 true true
33 true false false
34 true false false
41 true true
42 true false false
43 true true
44 true false false
Итак, было 16 возможных вопросов, после первого осталось четыре - работа решета. Функция, реализующая анализ элемента массива А, по значениям переменных kr и bk, имеет вид:
function Pr(a,b:Post;kr,bk:integer):boolean;
var i,x:integer;
begin
{проверка по “быкам”}
x:=0;
for i:=1 to 4 do if a[i]=b[i] then inc(x);
if x<>bk then begin Pr:=false;exit;end;
{проверка по “коровам”}
x:=0;
for i:=1 to 4 do if (a[i]<>b[i]) and (Pos(b[i],a)<>0) then inc(x);
if x<>kr then begin Pr:=false;exit;end;
Pr:=true;
end;
Логика - “сделать отсечение” по значению хода h.
procedure Hod(h:Post);
var i,kr,bk:integer;
begin
inc(cnt);write(cnt:2,’.’,h,’-’);
readln(kr,bk);
if
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
