Внимание! center-referat.ru не продает дипломы, аттестаты об образовании и иные документы об образовании. Все услуги на сайте предоставляются исключительно в рамках законодательства.

Готовые дипломные, курсовые, рефераты. Вы можете бес-платно скачать любую понравившуюся работу.

В целочисленных массивах а и b содержатся длины катетов десяти прямоугольных...

Сегодня примерно в 14:47 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.

Тема вопроса с пояснением

В целочисленных массивах а и b содержатся длины катетов десяти прямоугольных треугольников (а[i] - длина первого катета, b[i] - длина второго катета i-го треугольника). Найдите треугольник с наибольшей площадью. Выведите его номер, длины катетов и площадь. Предусмотрите случай, когда таких треугольников несколько.

Ответ с привлечением экспертов

Среди нашей команды есть эксперты, которые успешно отвечают на вопросы из рубрики "Информатика". Напомним, что вы задали следующий вопрос:

В целочисленных массивах а и b содержатся длины катетов десяти прямоугольных треугольников (а[i] - длина первого катета, b[i] - длина второго катета i-го треугольника). Найдите треугольник с наибольшей площадью. Выведите его номер, длины катетов и площадь. Предусмотрите случай, когда таких треугольников несколько.

И сразу же ответим на него:

После проведенного совещания с другими специалистами нашего сервиса, мы склонны пола-гать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:

Const
    n = 10;

var
    a, b: array[1..n]of real;
    i: integer;
    s, maxs: real;

begin
    for i := 1 to n do
    begin
        a[i] := random(3, 10);
        b[i] := random(3, 10);
        
        if (maxs < a[i] * b[i]) then maxs := a[i] * b[i];
    end;
    
    for i := 1 to n do
        if (maxs = a[i] * b[i]) then
            writeln(i, ' Площадь=', a[i] * b[i] * 0.5, ' а=', a[i], ' b=', b[i]);
    
end.

Авторские права 2002-2021 center-referat.ru