Помощь - Поиск - Пользователи - Календарь
Полная версия: Задачка по геометрии
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Начинающий ПаскальщиГ
Здравствуйте!
Составьте программу вычисления площади треугольника по трем сторонам.

А вот как записать незнаю..Только начало могу..
ПОмогите новичку, пожалуйста! yes2.gif
Unconnected
Если для НЕпрямоугольного треугольника (для прямоугольных площадь - половина произведения катетов вроде), то примерно так:

var a,h,s:real;

begin
s:=0.5*a*h;
end.
Начинающий ПаскальщиГ
Цитата(Unconnected @ 5.06.2010 16:59) *

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

var a,h,s:real;

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



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

Составьте программу вычисления площади треугольника по трем сторонам.
volvo
Поиск -> формула Герона
Начинающий ПаскальщиГ
Цитата(volvo @ 5.06.2010 17:05) *

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


Формулу я знаю. Я незнаю как записать все это в виде программы, где нужно ввести любые чиса, чтобы получить площадь.
volvo
Цитата
Я незнаю как записать все это в виде программы
Что нужно делать, чтобы найти пример программы, которая по формуле Герона вычисляет площадь треугольника, написано выше.
Freedom
Цитата(Начинающий ПаскальщиГ @ 5.06.2010 18:07) *

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

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

Уверен? blink.gif
prevedmuraved
формула верна... если склероз не подводит... good.gif
Freedom
Цитата(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=полупериметр
Lapp
Цитата(Ozzя @ 7.06.2010 9:12) *
Уверен? blink.gif

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

Цитата(prevedmuraved @ 7.06.2010 9:31) *
формула верна... если склероз не подводит... good.gif
Подводит обычно память, а не склероз.. smile.gif
Враг не может подвести - даже если очень захочет )).
alecsandr
Начинающий ПаскальщиГ вот держи))
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.
Lapp
Цитата(Lapp @ 7.06.2010 10:22) *
Ozzя, какие сомнения?.. blink.gif

О, я, наконец, понял, что Ozzя хотел сказать.. smile.gif
Ozzя, извини за наезд.. smile.gif
TarasBer
Может, это специально такая загадка была. "Расставить недостающие звёздочки в выражении".
volvo
Цитата
Начинающий ПаскальщиГ вот держи))
Единственное, зачем ЭТО можно держать - это донести до ближайшей мусорки и выкинуть, чтоб никто не видел.

Цитата
{проверяем можно построить треугольник по введенным сторонам}
И по барабану, можно ли его построить. Находим его площадь вне зависимости, от того, можно или нельзя, да? Ты перед тем, как сюда написать, программу проверял? А для кого написано (там, наверху, в красной рамочке, жирным шрифтом) правило под номером 7?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.