М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
aleksandr250804
aleksandr250804
05.11.2020 20:32 •  Информатика

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

👇
Открыть все ответы
Ответ:
Kseniaghl
Kseniaghl
05.11.2020

Монитор — это устройство оперативной визуальной связи пользователя с управляющим устройством и отображением данных, передаваемых с клавиатуры, мыши или центрального процессора. Принципиальное отличие от телевизора заключается в отсутствии встроенного тюнера, предназначенного для приёма высокочастотных сигналов эфирного (наземного) телевещания и декодера сигналов изображения. Кроме того, в большинстве мониторов отсутствует звуковоспроизводящий тракт и громкоговорители.

Компьютерный монитор с кинескопом

Современный монитор состоит из экрана (дисплея), блока питания, плат управления и корпуса. Информация для отображения на мониторе поступает с электронного устройства, формирующего видеосигнал (в компьютере — видеокарта или графическое ядро процессора). В качестве мониторов могут применяться также и телевизоры, большинство моделей которых уже с 1920-х годов оснащаются низкочастотными входами: сначала - сигналов RGB, позже - VGA, а последнее поколение - HDMI. Все ранние домашние и некоторые профессиональные компьютеры были рассчитаны именно на использование телевизора в качестве монитора. Стандарты разложения первых видеоадаптеров (MDA, CGA) также совпадали с телевизионными.

4,4(62 оценок)
Ответ:
Ytbjfdg
Ytbjfdg
05.11.2020
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.
4,5(82 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ