Помогите решить задачу. Паскаль

lalka · 12.02.2014, 19:28

Всем привет. Помогите сделать блок схему и код программы к ней в Pascal. Вот задача по которой нужно составить это

Задача.
Рассчитать площадь треугольника по формуле S= √p*(p-a)*(p-b)*(p-c) где p=(a+b+c)/2

Vladimir_S · 12.02.2014, 19:33

Lalka, а самостоятельно справиться с этой школьной ерундистикой? Никак? А попытаться?

lalka · 12.02.2014, 20:57

если бы справился, не писал бы

Gruvi · 12.02.2014, 22:47

Аналогичных задач на форуме навалом, поищи.

lalka · 13.02.2014, 01:42

попробовать поискать.... попробовать самому решить.... я бы не стал писать если бы искал сам. мне нужно быстрое решение! для этого я и создал тему.

Vladimir_S · 13.02.2014, 10:02

Цитата:

Сообщение от lalka

для этого я и создал тему.

Ну что же, грех не вознаградить столь каторжный труд. Получите.

1. Простой вариант.

Код:

Var
 a,b,c,p,S:Real;
Begin
 Write('a = ');
 Readln(a);
 Write('b = ');
 Readln(b);
 Write('c = ');
 Readln(c);
 p:=(a+b+c)/2;
 S:=Sqrt(p*(p-a)*(p-b)*(p-c));
 Writeln('S = ', S:0:3);
 Readln
End.

2. Посложнее. Проверяется корректность вводимых длин сторон. Они должны быть:
а) положительными
б) каждая не должна превышать суммы двух других.

Код:

Var
 a,b,c,p,S:Real;

Function Test(at,bt,ct:real):boolean;
begin
 Test:=(at>0) and (bt>0) and (ct>0) and
 (at<=bt+ct) and (bt<=at+ct) and (ct<=at+bt);
end;

Begin
 Repeat
  Write('a = ');
  Readln(a);
  Write('b = ');
  Readln(b);
  Write('c = ');
  Readln(c);
  If Not(Test(a,b,c)) then writeln('Incorrect values!!!');
 Until Test(a,b,c);
 p:=(a+b+c)/2;
 S:=Sqrt(p*(p-a)*(p-b)*(p-c));
 Writeln('S = ', S:0:3);
 Readln
End.

lalka · 13.02.2014, 14:35

огромное спасибо

12.02.2014, 19:28	#1 (permalink)
lalka Member Регистрация: 12.02.2014 Сообщений: 12 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите решить задачу. Паскаль Всем привет. Помогите сделать блок схему и код программы к ней в Pascal. Вот задача по которой нужно составить это Задача. Рассчитать площадь треугольника по формуле S= √p(p-a)(p-b)*(p-c) где p=(a+b+c)/2

12.02.2014, 19:33	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Lalka, а самостоятельно справиться с этой школьной ерундистикой? Никак? А попытаться?

12.02.2014, 20:57	#3 (permalink)
lalka Member Регистрация: 12.02.2014 Сообщений: 12 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	если бы справился, не писал бы

12.02.2014, 22:47	#4 (permalink)
Gruvi VIP user Регистрация: 10.03.2011 Сообщений: 765 Записей в дневнике: 1 Сказал(а) спасибо: 10 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 3453	Аналогичных задач на форуме навалом, поищи.

13.02.2014, 01:42	#5 (permalink)
lalka Member Регистрация: 12.02.2014 Сообщений: 12 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	попробовать поискать.... попробовать самому решить.... я бы не стал писать если бы искал сам. мне нужно быстрое решение! для этого я и создал тему.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

13.02.2014, 14:35	#7 (permalink)
lalka Member Регистрация: 12.02.2014 Сообщений: 12 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	огромное спасибо