Программа 5:
#
# (c) NaaMan
import math
print( 'Введите через пробел длины сторон: ')
a, b, c = map( float, input().split())
if a+b>c and a+c>b and b+c>a:
d = list((a,b,c))
d.sort()
a,b,c = d
if a*a + b*b == c*c:
print('Треугольник прямоугольный')
else:
x = (a*a + b*b - c*c) / (2 * a * b)
gamma = math.acos(x)
grd = gamma / math.pi * 180
print('Угол С = %3.4f градусов'% grd)
else:
print('Таких треугольников не существует!')
Программа 6:
#
# (c) NaaMan
import math
print( 'Введите через пробел a и b: ')
a, b = map( int, input().split())
print( 'Введите через пробел c и d: ')
c, d = map( int, input().split())
print( 'Максимальное из двух меньших - ', max( min( a, b), min( c, d)))
Программа 7:
#
# (c) NaaMan
import math
print( 'Выберите режим перевода')
print( '0 - из градусов в рад')
print( '1 - из рад в градусы')
n = int( input( '> '))
x = float( input( 'Введите меру угла: '))
if n:
res = x / math.pi * 180 # rad -> grad
else:
res = x * math.pi / 180 # grad -> rad
print( 'Результат: %3.4f'% res)
Объяснение:
program z1;
uses GraphABC;
var t:integer;
begin
SetWindowSize(400,400);
write('Введите показания температуры: ');
read(t);
SetPenWidth(3);
if t<=0 then
begin
SetPenColor(clBlue);
Line (150,200,200,150);
Line (200,150,250,200);
Line (250,200,200,250);
Line (200,250,150,200);
FloodFill(200,200,clSkyBlue);
Line (100,200,300,200);
Line (200,100,200,300);
Line (100,100,300,300);
Line (100,300,300,100)
end
else
begin
SetPenColor(clYellow);
Line (100,200,300,200);
Line (200,100,200,300);
Line (100,100,300,300);
Line (100,300,300,100);
SetBrushColor(clYellow);
Circle(200,200,50)
end
end.
Объяснение:
Вводим температуру
Если t <= 0 рисуем снежинку, иначе (если t > 0) рисуем солнышко
1. Private Sub CommandButton1_Click()
Dim n, s As Single
n = Val(TextBox1.Text)
If (n < 500) Then s = n
If ((n >= 500) And (n <= 1000)) Then s = n * 0.95
If ((n > 1000) And (n <= 10000)) Then s = n * 0.93
If (n > 10000) Then s = n * 0.91
MsgBox (s)
End Sub