перевести с 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.

Показать ответ

Ответ:

Rairaku24

07.09.2020 17:18

PROGRAM MatrixMax
var a : array [1..3, 1..4] of integer
b : array [1..3] of integer
Max, i, j : integer
BEGIN
crt;
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
read (a[i, j]); // вводим элементы в массив a[1..3, 1..4]
end;
writeln; // делаем пустой перевод строки
end;
for i:=1 to 3 do
begin
b[i] := a[i, 1];
for j:=1 to 4 do
begin
if a[i, j] > b[i] then b[i] := a[i, j];
// находим максимальный элемент в каждой строке и записываем в b[1..3]
end;
end;
Max := b[1];
for i:=1 to 3 do if b[i] > Max then Max := b[i];
// Находим максимальный элемент из максимальных элементов
writeln (Max); // Выводим его на экран
END.

0,0(0 оценок)

Ответ:

Сын12ru

24.03.2020 06:15

А9)1 4 7 10 13 16 19 22 25 28 31 34 37 40 43 46 49 52 55 58 61 64 67 70 73 76 79 80 81 82 83 85 88 91 94 97 100

A10) 28

Объяснение:

А9

k:=0

Ты проверяешь 100 чисел от 1 до 100 (строка про i for i:=1 to 100 do) и ниже у тебя 2 условия

if (i div 4 =20) or (i mod 3 = 1) then

k:=k+1

это условие говорит, что если i div 4=20 или i mod 3=1 тогда ты k увеливаешь на 1. То есть если число подходит хотя бы по 1 из условий ты увеливаешь k на единицу

div это целая часть от деления или по другому чтоб было понятнее то что в числе до запятой. Допустим 7 div 3 =2 так как 7 делить на 3=2,33 но целая часть это 2

Так вот по нашему первому условию подойдут числа 80 81 82 83 потому что их целая часть от деления на 4 будет равна 20

Во втором условии i mod 3=1 mod это остаток от деления но это уже не то что после запятой а именно остаток. Как столбиком поделишь то что будет в остатке это mod. Например 10 mod 3 =1 так как 10 делить на 3 это будет 3 целых и 1 в остатке.

Так вот по нашему второму условию подходят все числа от 1 до 100 в которых после деления на 3 останется 1. Это числа 1 4 7 10 13... 82 85 88 91 94 97 100. Заметь что число 82 подходило и по первому условию так что его 2 раза не считаем. И после каждого подходящего такого числа мы к увеливаем на 1. Всего таких чисел 37 а нам надо вывести значение к которое будет равно количеству этих чисел. Сами числа написаны в ответе

А10

Так как s не присвоили никакого значения значит s изначально 0

Даны элементы массива B[1] B[2] B[3] B[4] B[5] B[6] B[7]

k:=-5

Ты снова проверяешь 7 элементов (строка for n:=1 to 7 do) сначала первый потом 2 потом 3 и тд до 7

B[n] сначала будет B[1] так как n cначала проверяешь первый элемент массива

B[n]:=k+n;

то есть сначала повторяюсь проверяешь B[1]

B[1]:= -5+1=-4

k:=k+1 то есть k:=-5+1 =-4

s:=s+2*B[1]=0+2*(-4)=-8

Теперь проверяем n=2