С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
Sprinter
1

Задача "Найти номер треугольника с наибольшей площадью"

06.12.2014, 14:49. Показов 1669. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Очень нужна помощь с данной задачкой,желательно с комментариями.

Даны одномерные массивы A и B из n элементов каждый. Определить номер треугольника со сторонами длиной (Ai, Bi,(Ai+Bi)/2), обладающего наибольшей площадью.

Заранее спасибо.
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
06.12.2014, 14:49
Ответы с готовыми решениями:

Рекурсия: найти номер треугольника с наибольшей площадью
1. Задано N Треугольников координатами своих вершин на плоскости. Напечатать номер треугольника с...

напечатать номер треугольника с наибольшей площадью
задано n треугольников координатами своих вершин на плоскости. напечатать номер треугольника с...

Напечатать координаты треугольника с наибольшей площадью
Даны координаты вершин 2 треугольников. Напечатать координаты треугольника с наибольшей площадью и...

Задача про треугольник с наибольшей площадью (Паскаль)
На плоскости дан набор точек с целочисленными координатами. Необходимо найти такой треугольник...

1
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
06.12.2014, 16:41 2
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const n=7;
      a:array[1..n]of integer=(9,7,1,4,5,6,7);
      b:array[1..n]of integer=(5,7,1,5,5,8,7);
var   i:integer; max:real;maxi:=1;
function s(x,y:integer):real;{вычисление площади треугольника, стороны две, третья - вычисляется}
var p:real;
begin
    p:=(x+y+(x+y)/2)/2;
    s:=sqrt(p*(p-x)*(p-y)*(p-(x+y)/2))
end;    
begin
    max:=s(a[1],b[1]);{считаем, что первый треугольник имеет максимальную площадь}
    for i:=2 to n do {для всех остальных}
     if s(a[i],b[i])>max {если нашли с большей площадью, то им заменяем максимальный} 
      then begin max:=s(a[i],b[i]); maxi:=i end;
    writeln('номер треугольника, обладающего наибольшей площадью: ');
    for i:=1 to n do {таких может быть несколько}
     if max=s(a[i],b[i])then write(i,' ')
end.
0
06.12.2014, 16:41
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
06.12.2014, 16:41
Помогаю со студенческими работами здесь

Найти координаты 3-х точек, которые являются вершинами треугольника с наибольшей площадью
Задача по программированию c++. Помогите с математической частью. Какие формулы, законы, теоремы...

Задано три треугольника со своими сторонами (a, b, c). Найти треугольник с наибольшей площадью
Я только начал изучение c#, а уже задают такие задачи. Задача довольно простая, вот условие: Задано...

Вычислить модуль тангенса угла при вершине равнобедренного треугольника с наибольшей площадью
Вычислить модуль тангенса угла при вершине равнобедренного треугольника с наибольшей площадью, при...

Матрица. Найти номер ее ряда с наибольшей суммой элементов и вывести данный ее номер, а также значение наибольшей суммы
Дана матрица размерности M x N. Найти номер ее ряда з найбольшою суммой элементов и вивести...

Найти номер строки матрицы с наибольшей суммой элементов и вывести данный номер, а также значение наибольшей суммы
Дана матрица размера M × N. Найти номер ее строки с наибольшей суммой элементов и вывести данный...

В матрице размерностью MxN найти номер строки с наибольшей суммой элементов и вывести данный номер, а также значение наибольшей суммы
Данная матрица размерности M x N. Найти номер ее строки с наибольшей суммой элементов и вывести...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD
InfoMaster 14.01.2025
Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .
Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD
InfoMaster 14.01.2025
В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
Как создать интернет-магазин на PHP и JavaScript
InfoMaster 14.01.2025
В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .
Как написать Тетрис на Ассемблере
InfoMaster 14.01.2025
Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .
Как создать игру "Танчики" на Unity3d и C#
InfoMaster 14.01.2025
Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .
Организую платный онлайн микро-курс по доработке Android-клиента Telegram
_Ivana 14.01.2025
Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin
InfoMaster 14.01.2025
Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .
Как создать приложение магазина для iOS/iPhone на Swift
InfoMaster 14.01.2025
Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .
Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь!
Hrethgir 13.01.2025
По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .
UserScript для подсветки кнопок языков программировани­­­­я в зависимости от текущего раздела
volvo 13.01.2025
В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .
Введение в модели и алгоритмы машинного обучения
InfoMaster 12.01.2025
Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .
Как на Python создать нейросеть для решения задач
InfoMaster 12.01.2025
В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru