Переделать с pascal на python
uses crt;
var x1, y1, x2, y2, x3, y3, x4, y4, k: longint;
begin
read (x1, y1, x2, y2, x3, y3, x4, y4);
k: =0;
if (x2-x1)*(x4-x1)+(y2-y1)*(y4-y1)=0 then k: =k+1;
if (x1-x2)*(x3-x2)+(y1-y2)*(y3-y2)=0 then k: =k+1;
if (x2-x3)*(x4-x3)+(y2-y3)*(y4-y3)=0 then k: =k+1;
if (x1-x4)*(x3-x4)+(y1-y4)*(y3-y4)=0 then k: =k+1;
write (k);
readkey;
end.
Да, является
Объяснение:
Всё очень просто, символ "и" в информатике то же самое, что умножение в математике, а "или" тождественно сложению.
Функция или выражение истинно - значит, что функция или выражение равны "1", а ложны - равны "0"
Если X=1, а Y=2, то первое выражение "(X>0)" - истинно, так как 1>0, а истинно - значит = 1
Второе выражение "(Y>1)" так же истинно, так как 2>1, а истинно, как мы выяснили, - значит = 1
Третье выражение "(X<-1)" будет ложным, так как 1<-1 - не верно, а значит это выражение = 0
И получается простейшее уравнение, нам надо выяснить верно ли это, переведя всё в чисто математический вид:
(1*1)+0=1
1=1
Как мы видим, просто посчитав, мы получаем верное равенство, а значит наше выражение истинно при данных значениях X и Y
Часть программы. Решение задач
1. Найдите ошибку в программе:
program ;
var a,b,c,d,f,p:integer;
begin writeln('Введите 5 численных значений:');
readln(a,b,c,d,f );
p:=a+b+c+d+f;
writeln('p=',p);
readln
end.
2. Найдите ошибку в программе:
program Prim 2 1;
var a,b,c,d,f,p:integer;
begin writeln('Введите 5 численных значений:');
readln(a,b,c,d,f ); p:=a+b+c+d+f;
writeln('p=',p);
readln
end.
3. Найдите ошибку в программе:
program Prim_2_1;
begin writeln('Введите 5 численных значений:');
readln(a,b,c,d,f );
p:=a+b+c+d+f;
writeln('p=',p);
readln
end.
4. Найдите ошибку в программе:
program Prim_2_1;
var a,b:integer;
begin writeln('Введите 5 численных значений:');
readln(a,b,c,d,f );
p:=a+b+c+d+f;
writeln('p=',p);
readln
end.
5. Найдите ошибку в программе:
program Prim_2_1;
var a,b,c,d,f,p:integer;
begin writeln('Введите 5 численных значений:');
p:=a+b+c+d+f;
writeln('p=',p);
readln
end.
6. Найдите ошибку в программе:
program Prim_2_1;
var a,b,c,d,f,p:integer;
begin writeln('Введите 5 численных значений:');
readln(a,b,c,d,f );
writeln('p=',p);
readln
end.
7. Найдите ошибку в программе:
program Prim_2_1;
var a,b,c,d,f,p:integer;
writeln('Введите 5 численных значений:');
readln(a,b,c,d,f );
p:=a+b+c+d+f;
writeln('p=',p);
readln
end.
8. Следующий алгоритм в результате выполнения программы находит:
program Prim_2_3;
var a,b,c,d,f,p:integer;
begin writeln('Введите 5 численных значений:');
readln(a,b,c,d,f );
p:=a+b+c;
writeln('p=',p);
readln
end
9. Найдите ошибку в программе:
program Prim_2_1;
var a,b,c,d,f,p:integer;
begin writeln('Введите 5 численных значений:');
readln(a,b,c,d,f );
p=:a+b+c+d+f;
writeln('p=',p);
readln
end.