Задать вопрос
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. Напечатать номер треугольника с наибольшей площадью. Вычисление площадей ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Решить задачу в паскаль с помощью функций. Даны 3 равносторонних треугольников со сторонами a, b, c. Напечатать номер треугольника с наибольшей площадью. Вычисление площадей организовать с помощью функций, воспользовавшись формулой Герона.
Ответы (1)
Var day:byte; boy:string; pi:real; begin / / В блок памяти boy запишите Ваше имя / / В переменную day запишите Ваш возраст / / Выведите на экран содержимое переменной boy / / Выведите на середину экрана текст "Меня зовут", а рядом - содержимое
Ответы (1)
Что такое разрешение экрана монитора? А) Разновидность монитора Б) Степень освещения экрана монитора в горизонтальном и вертикальном направлениях В) Число пикселей в горизонтальном и вертикальном направлениях экрана Г) размер экрана по диагонали
Ответы (1)
С # 1. Создайте одномерный массив с 31 элементов, которые заполните случайными целыми числами от 11 до 100-11. Выведите значения элементов массива в строку, разделив их пробелами, 11 нечетное число.
Ответы (1)
Злой хакер хочет испортить программное обеспечение на 40 компьютерах компании. На каждом компьютере 37 программ, каждая из которых состоит из 9000 строк кода.
Ответы (2)