Задачка по геометрии, площадь треугольника. Опции

[Начинающий ПаскальщиГ]

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

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

Сообщение отредактировано: Начинающий ПаскальщиГ - 5.06.2010 21:01

[Unconnected]

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

var a,h,s:real;

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

[Начинающий ПаскальщиГ]

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

var a,h,s:real;

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

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

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

[volvo]

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

[Начинающий ПаскальщиГ]

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

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

[volvo]

Я незнаю как записать все это в виде программы

Что нужно делать, чтобы найти пример программы, которая по формуле Герона вычисляет площадь треугольника, написано выше.

[Freedom]

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

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

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

[Ozzя]

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

Уверен?

[prevedmuraved]

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

[Freedom]

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

Уверен?

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 13:10

[Lapp]

Уверен?

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

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

Подводит обычно память, а не склероз..
Враг не может подвести - даже если очень захочет )).

[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]

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

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

[TarasBer]

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

[volvo]

Начинающий ПаскальщиГ вот держи))

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

{проверяем можно построить треугольник по введенным сторонам}

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