![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
PORTUGAL |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 20 Пол: Мужской Репутация: ![]() ![]() ![]() |
Привет парни, нужна помощь подскажите, как найти площадь ромба в программе на паскале??
|
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Какие исходные данные есть? Площадь ромба может быть найдена через сторону и угол, а может - через произведение диагоналей. Что у тебя известно?
|
PORTUGAL |
![]()
Сообщение
#3
|
Новичок ![]() Группа: Пользователи Сообщений: 20 Пол: Мужской Репутация: ![]() ![]() ![]() |
Короче есть фигурка - круг, а внутри ромб! Нужно найти площадь круга и площадь ромба, а потом отнять от площади круга площадь ромба! Ну типа есть мой огород(круг) а на нем кусочек соседского(ромб), и нужно найти площадь моего огорода! Исходные данные не данные, наверное, можно ввести любые!
|
klem4 |
![]()
Сообщение
#4
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Площадь ромба :
S = a*Ha = a*a*sin(alpha) = 0.5 * d1 * d2
//Площадь круга :
S = Pi*R*R
//где : a сторона ромба, d1,d2-диаганали, alpha - угол между ними.
//R - радиус круга.
// Ha - высота, проведенная к стороне a
Если ввести можно любые данные, то какие пробелемы -то ? ![]() исправил формулы случайно написал для параллелограмма ![]() -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
![]() ![]() |
![]() |
Текстовая версия | 18.04.2025 11:46 |