Задать вопрос
24 января, 10:09

1) Даны 3 равносторонних треугольников со сторонами a, b, c. Напечатать номер треугольника с наибольшей площадью. Вычисление площадей организовать с помощью функций, воспользовавшись формулой Герона.

2) Выведите посредине экрана своё имя, высотой в 8 строк, состоящее из разноцветных звёздочек.

+5
Ответы (1)
  1. 24 января, 11:13
    0
    Действительно, не нужно вычислять площадь. В первом способе мы не будем вычислять площадь, но во втором, будь по Вашему, мы вычислим площадь через функцию вычисления площади по Герону.

    1) var a, b, c, ma:real;

    begin

    read (a, b, c) ;

    ma:=max (max (a, b), c) ;

    if a=ma then write (1,' ') ;

    if b=ma then write (2,' ') ;

    if c=ma then write (3,' ') ;

    end.

    2) var a, b, c, pa, pb, pc, ma:real;

    function geron (aa, bb, cc:real) : real;

    begin

    pa:=sqrt ((3*a) * (2*a) * (2*a) * (2*a)) ;

    pb:=sqrt ((3*b) * (2*b) * (2*b) * (2*b)) ;

    pc:=sqrt ((3*c) * (2*c) * (2*c) * (2*c)) ;

    end;

    begin

    read (a, b, c) ;

    geron (a, b, c) ;

    ma:=max (max (pa, pb), pc) ;

    if pa=ma then write (1,' ') ;

    if pb=ma then write (2,' ') ;

    if pc=ma then write (3,' ') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «1) Даны 3 равносторонних треугольников со сторонами a, b, c. Напечатать номер треугольника с наибольшей площадью. Вычисление площадей ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы