vita12062006

22.06.2022 16:53 •  Информатика

перевести с Pascal в Phyton

uses crt;
var a,b,c,d,e,f,i,nb,nc:integer;
function hod(n,x,y:integer):boolean;
begin
case n of
1:hod:=((abs(x-e)=1)and(abs(y-f)<=1))or((abs(x-e)<=1)and(abs(y-f)=1));
2:hod:=(x=e)or(y=f)or(abs(x-e)=abs(y-f));
3:hod:=(x=e)or(y=f);
4:hod:=abs(x-e)=abs(y-f);
5:hod:=((abs(x-e)=1)and(abs(y-f)=2))or((abs(x-e)=2)and(abs(y-f)=1));
end;
end;

begin
repeat
writeln('Введите поле белой фигуры:');
write('a=');read(a);
write('b=');read(b);
until (a in [1..8])and(b in [1..8]);
repeat
writeln('Введите поле черной фигуры:');
write('c=');read(c);
write('d=');read(d);
until (c in [1..8])and(d in [1..8])and((c<>a)or(d<>b));
repeat
writeln('Введите поле для хода:');
write('e=');read(e);
write('f=');read(f);
until (e in [1..8])and(f in [1..8])and((e<>a)or(f<>b))and((e<>c)or(f<>d));
writeln('Выберите белую фигуру');
writeln('1-король 2-ферзь 3-ладья 4-слон 5-конь');
repeat
read(nb);
until nb in [1..5];
writeln('Выберите черную фигуру');
writeln('2-ферзь 3-ладья 4-слон 5-конь');
repeat
read(nc);
until nc in [2..5];
if not hod(nb,a,b) then write('Белая фигура не может пойти на указанное поле')
else
begin
if not hod(nc,c,d) then write('Белая фигура может пойти на указанное поле, не попав под бой')
else write('Белая фигура может пойти на указанное поле, но попав под бой');
end;
end.