import math
kat1 = int(input('Введите первый катет первого треугольника: '))
kat2 = int(input('Введите второй катет первого треугольника: '))
kat3 = int(input('Введите первый катет второго треугольника: '))
kat4 = int(input('Введите второй катет второго треугольника: '))
gipot1 = float(math.sqrt(kat1*kat1 + kat2*kat2))
gipot2 = float(math.sqrt(kat3*kat3 + kat4*kat4))
print(gipot1)
if gipot1 > gipot2:
d1 = gipot1 - gipot2
print('Гипотенуза первого треугольника больше гипотенузы второго треугольника на: ' + str(d1) + '.\nГипотенуза первого треугольника равна: ' + str(gipot1) + '.\nГипотенуза второго треугольника равна: ' + str(gipot2))
else:
d2 = gipot2 - gipot1
print('Гипотенуза второго треугольника больше гипотенузы первого треугольника на: ' + str(d2) + '.\nГипотенуза первого треугольника равна: ' + str(gipot1) + '.\nГипотенуза второго треугольника равна: ' + str(gipot2))
Объяснение:
На чистом паскале никак. Либо используя графические библиотеки (например, GraphABC в Pascal ABC.NET), либо, например Delphi.
GraphABC:
uses GrathABC;
var b: picture;
begin
b:= Picture.Create('1.png');
...
end.
Далее через процедуру OnKeyDown или OnKeyPress считываем ключ с клавиатуры, и если это 2, то показываем изображение.
Примерно это должно выглядеть так:
procedure OnKeyPress(key: integer);
begin
if key = 2 then b.Draw(10, 10);
end;
Delphi: на нём гораздо проще. Здесь есть уже готовая форма, и стандартные компоненты за визуальность).
Через компонент TImage (вкладка Additional) загружаем изображение, устанавливаем у изображения свойство Visible:= false. Далее через OnKeyPress главной формы считываем ключ, и если key = 2, то Image.Visible:= true;
import math
def triangl_1(leg1, leg2):
legip = leg1 ** 2 + leg2 ** 2
gip = math.sqrt(legip)
return gip
def triangl_2(leg1, leg2):
legip = leg1 ** 2 + leg2 ** 2
gip = math.sqrt(legip)
return gip
if triangl_1(10, 12) < triangl_2(9, 15):
print("Первый больше")
else:
print("Второй больше")