перевести с 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.
Ответы
Var
a:array[1..100,1..100] of integer;
c:array[1..20,1..20] of real;
b:array[1..20,1..20] of real;
i,j,n,k:integer;
t:real;
r:integer;
begin
randomize;
t:=0;
Writeln('Введите порядок матрицы: ');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
a[i, j] := random(10);
end;
for i:=1 to n do
for j:=1 to n do
begin
b[i,j]:=1/i+j-1;
end;
for i:=1 to n do
for j:=1 to n do
begin
for k:=1 to n do
begin
t :=t+a[i,k]*b[k, j];
end;
c[i,j]:=t;
t:=0;
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(' ',c[i,j]:2:2);
end;
Writeln;
end;
end.
a:array[1..100,1..100] of integer;
c:array[1..20,1..20] of real;
b:array[1..20,1..20] of real;
i,j,n,k:integer;
t:real;
r:integer;
begin
randomize;
t:=0;
Writeln('Введите порядок матрицы: ');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
a[i, j] := random(10);
end;
for i:=1 to n do
for j:=1 to n do
begin
b[i,j]:=1/i+j-1;
end;
for i:=1 to n do
for j:=1 to n do
begin
for k:=1 to n do
begin
t :=t+a[i,k]*b[k, j];
end;
c[i,j]:=t;
t:=0;
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(' ',c[i,j]:2:2);
end;
Writeln;
end;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Упростить логические выражения
Автор: burylin9
Номер 5. 30 составить алгоритм, рисующий букет как на картинке.
Автор: treneva359
решить номера 4, 5, 6 информатика 9 класс
Автор: buhh20104519
Вvba чему равно значение выражения 22 \ 3* 3 - 15 mod 4?
Автор: shilinmikhaillg
Самостоятельная работа по теме «Массивы. Сортировка массивов. Строковые переменные»
Автор: Aleksandrovna Kolesnik1764
Составить таблицы истинности
Автор: Олимов Протопопова
Монитор — это устройство оперативной визуальной связи пользователя с управляющим устройством и отображением данных, передаваемых с клавиатуры, мыши или центрального процессора. Принципиальное отличие от телевизора заключается в отсутствии встроенного тюнера, предназначенного для приёма высокочастотных сигналов эфирного (наземного) телевещания и декодера сигналов изображения. Кроме того, в большинстве мониторов отсутствует звуковоспроизводящий тракт и громкоговорители.
Компьютерный монитор с кинескопом
Современный монитор состоит из экрана (дисплея), блока питания, плат управления и корпуса. Информация для отображения на мониторе поступает с электронного устройства, формирующего видеосигнал (в компьютере — видеокарта или графическое ядро процессора). В качестве мониторов могут применяться также и телевизоры, большинство моделей которых уже с 1920-х годов оснащаются низкочастотными входами: сначала - сигналов RGB, позже - VGA, а последнее поколение - HDMI. Все ранние домашние и некоторые профессиональные компьютеры были рассчитаны именно на использование телевизора в качестве монитора. Стандарты разложения первых видеоадаптеров (MDA, CGA) также совпадали с телевизионными.