IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
  Ответить  Открыть новую тему 
> Задачка по геометрии, площадь треугольника.
Начинающий ПаскальщиГ
сообщение 5.06.2010 16:45
Сообщение #1





Группа: Пользователи
Сообщений: 8
Пол: Мужской

Репутация: -  0  +

Здравствуйте!
Составьте программу вычисления площади треугольника по трем сторонам.

А вот как записать незнаю..Только начало могу..
ПОмогите новичку, пожалуйста! yes2.gif

Сообщение отредактировано: Начинающий ПаскальщиГ - 5.06.2010 17:01
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Unconnected
сообщение 5.06.2010 16:59
Сообщение #2


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +

Если для НЕпрямоугольного треугольника (для прямоугольных площадь - половина произведения катетов вроде), то примерно так:

var a,h,s:real;

begin
  s:=0.5*a*h;
end.


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Начинающий ПаскальщиГ
сообщение 5.06.2010 17:00
Сообщение #3





Группа: Пользователи
Сообщений: 8
Пол: Мужской

Репутация: -  0  +

Цитата(Unconnected @ 5.06.2010 16:59) *

Если для НЕпрямоугольного треугольника (для прямоугольных площадь - половина произведения катетов вроде), то примерно так:

var a,h,s:real;

begin
  s:=0.5*a*h;
end.



Ой,извините не ту задачу дал...
Вот:

Составьте программу вычисления площади треугольника по трем сторонам.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 5.06.2010 17:05
Сообщение #4


Гость
Поиск -> формула Герона
 К началу страницы 
+ Ответить 
Начинающий ПаскальщиГ
сообщение 5.06.2010 17:07
Сообщение #5





Группа: Пользователи
Сообщений: 8
Пол: Мужской

Репутация: -  0  +

Цитата(volvo @ 5.06.2010 17:05) *

Поиск -> формула Герона


Формулу я знаю. Я незнаю как записать все это в виде программы, где нужно ввести любые чиса, чтобы получить площадь.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 5.06.2010 17:12
Сообщение #6


Гость
Цитата
Я незнаю как записать все это в виде программы
Что нужно делать, чтобы найти пример программы, которая по формуле Герона вычисляет площадь треугольника, написано выше.
 К началу страницы 
+ Ответить 
Freedom
сообщение 5.06.2010 17:57
Сообщение #7


Пионер
**

Группа: Пользователи
Сообщений: 113
Пол: Мужской
Реальное имя: Надир

Репутация: -  6  +

Цитата(Начинающий ПаскальщиГ @ 5.06.2010 18:07) *

Формулу я знаю. Я незнаю как записать все это в виде программы, где нужно ввести любые чиса, чтобы получить площадь.

P:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));

Сообщение отредактировано: Freedom - 7.06.2010 9:09


--------------------
From ZERO to HERO
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Ozzя
сообщение 7.06.2010 8:12
Сообщение #8


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  + 

S:=sqrt(p*(p-a)(p-b)(p-c));

Уверен? blink.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
prevedmuraved
сообщение 7.06.2010 8:31
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 17
Пол: Мужской
Реальное имя: pavel

Репутация: -  0  +

формула верна... если склероз не подводит... good.gif


--------------------
Жизнь хитра - когда у меня на руках все карты,
она внезапно решает играть в шахматы.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Freedom
сообщение 7.06.2010 9:09
Сообщение #10


Пионер
**

Группа: Пользователи
Сообщений: 113
Пол: Мужской
Реальное имя: Надир

Репутация: -  6  +

Цитата(Ozzя @ 7.06.2010 9:12) *

S:=sqrt(p*(p-a)(p-b)(p-c));

Уверен? blink.gif

http://ru.wikipedia.org/wiki/%D0%A4%D0%BE%...%BE%D0%BD%D0%B0
S:=sqrt(p*(p-a)*(p-b)*(p-c)); где P=полупериметр

Сообщение отредактировано: Freedom - 7.06.2010 9:10


--------------------
From ZERO to HERO
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Lapp
сообщение 7.06.2010 9:22
Сообщение #11


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +

Цитата(Ozzя @ 7.06.2010 9:12) *
Уверен? blink.gif

Ozzя, какие сомнения?.. blink.gif

Цитата(prevedmuraved @ 7.06.2010 9:31) *
формула верна... если склероз не подводит... good.gif
Подводит обычно память, а не склероз.. smile.gif
Враг не может подвести - даже если очень захочет )).


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
alecsandr
сообщение 7.06.2010 13:01
Сообщение #12


Пионер
**

Группа: Пользователи
Сообщений: 61
Пол: Мужской
Реальное имя: Alexander

Репутация: -  0  +

Начинающий ПаскальщиГ вот держи))
uses crt;
var
 a,b,c,p,s: real;
begin
 clrscr;
 {считываем переменные}
 writeln('vvedite storony a');
 read(a); 
 writeln('vvedite storony b');
 read(b);
 writeln('vvedite storony c');
 read©;
 {проверяем можно построить треугольник по введенным сторонам}
 if ((a+b)<=c) or ((a+c)<=b) or ((c+b)<=a) then
  writeln('Treugolnik s takimi storonami nelza stroit')
  else { иначе }
   p:=0.5*(a+b+c); {считаем полупериметр}
   s:=sqrt(p*(p-a)*(p-b)*(p-c));{ площадь по формуле Герона}
   writeln('s= ',s:2:3);{вывод на экран}
  readkey;
 end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Lapp
сообщение 7.06.2010 13:58
Сообщение #13


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +

Цитата(Lapp @ 7.06.2010 10:22) *
Ozzя, какие сомнения?.. blink.gif

О, я, наконец, понял, что Ozzя хотел сказать.. smile.gif
Ozzя, извини за наезд.. smile.gif


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
TarasBer
сообщение 7.06.2010 14:06
Сообщение #14


Злостный любитель
*****

Группа: Пользователи
Сообщений: 1 755
Пол: Мужской

Репутация: -  62  +

Может, это специально такая загадка была. "Расставить недостающие звёздочки в выражении".


--------------------
http://groups.google.com/group/sellme-dev/...bbc6c83649aaf56
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 7.06.2010 15:47
Сообщение #15


Гость
Цитата
Начинающий ПаскальщиГ вот держи))
Единственное, зачем ЭТО можно держать - это донести до ближайшей мусорки и выкинуть, чтоб никто не видел.

Цитата
{проверяем можно построить треугольник по введенным сторонам}
И по барабану, можно ли его построить. Находим его площадь вне зависимости, от того, можно или нельзя, да? Ты перед тем, как сюда написать, программу проверял? А для кого написано (там, наверху, в красной рамочке, жирным шрифтом) правило под номером 7?
 К началу страницы 
+ Ответить 
« Предыдущая тема · Задачи · Следующая тема »
 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

Режим отображения: Стандартный · Переключить на: Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

- Текстовая версия 8.05.2024 7:27
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"