begin var xc:=300; var yc:=250; var r:=150; var dx:=Trunc(r*cos(Pi/3)); var dy:=Trunc(r*sin(Pi/3)); Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc), (xc-dx,yc+dy),(xc+dx,yc+dy)); r:=r-10; dx:=Trunc(r*cos(Pi/3)); dy:=Trunc(r*sin(Pi/3)); Pen.Color:=clRed; Brush.Color:=Pen.Color; Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc), (xc-dx,yc+dy),(xc+dx,yc+dy)); Font.Color:=clWhite; Font.Size:=50; Font.Style:=fsBold; SetCoordinateOrigin(xc-90,yc-40); Write('STOP'); end.
''' Программа просит ввести основание и прилегающую высоту треугольника, присваивает введённые значения переменным a и h, вычисляет площадь треугольника и печатает значения a, h и площади треугольника. Вычисление площади треугольника оформлено в виде вс функции. '''
def trig_area(a, h): a = 0.5 * a * h if a.is_integer(): return int(a) else: return a
a = int(input('Введите основание: ')) h = int(input('Введите прилегающую высоту: ')) print('\nОснование: {}\nВысота: {}\nПлощадь: {}'.format(a, h, trig_area(a, h)))
uses GraphABC;
begin
var xc:=300;
var yc:=250;
var r:=150;
var dx:=Trunc(r*cos(Pi/3));
var dy:=Trunc(r*sin(Pi/3));
Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
(xc-dx,yc+dy),(xc+dx,yc+dy));
r:=r-10;
dx:=Trunc(r*cos(Pi/3));
dy:=Trunc(r*sin(Pi/3));
Pen.Color:=clRed;
Brush.Color:=Pen.Color;
Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
(xc-dx,yc+dy),(xc+dx,yc+dy));
Font.Color:=clWhite;
Font.Size:=50;
Font.Style:=fsBold;
SetCoordinateOrigin(xc-90,yc-40);
Write('STOP');
end.