Процедуры и функции... - Помощь студентам

hohol90 · 24.10.2009, 12:55

Помогите пожалуйста с атестационным примером, очень надо:

Даны действительные числа a, b, c, d. Найти площадь пятиугольника изображенного на рисунке. (Определить процедуру вычисления площади треугольника по трем его сторонам).

ОДИНОЧЕСТВО В СЕТИ · 24.10.2009, 13:02

Код:

var a,b,c,d,s1,s:double;
procedure square(a,b,c:double;var s:double);
var p:real;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*p-c);
end;
begin
readln(a,b,c,d);
s:=0;
square(1,a,2,s1);
s:=s+s1;
square(2,2.5,b,s1);
s:=s+s1;
square(2.5,c,d,s1);
s:=s+s1;
Writeln(s:6:3);
readln;
end.

hohol90 · 24.10.2009, 14:25

Большое спасибо, но если не сложно объясни что значит (Определить процедуру вычисления площади треугольника по трем его сторонам).

OCTAGRAM · 25.10.2009, 05:16

Формула Герона

24.10.2009, 12:55	#1
hohol90 Пользователь Регистрация: 10.10.2009 Сообщений: 34	Процедуры и функции... Помогите пожалуйста с атестационным примером, очень надо: Даны действительные числа a, b, c, d. Найти площадь пятиугольника изображенного на рисунке. (Определить процедуру вычисления площади треугольника по трем его сторонам).

24.10.2009, 13:02	#2
ОДИНОЧЕСТВО В СЕТИ Любопытная Вредина Участник клуба Регистрация: 19.06.2009 Сообщений: 1,285	Код: `var a,b,c,d,s1,s:double; procedure square(a,b,c:double;var s:double); var p:real; begin p:=(a+b+c)/2; s:=sqrt(p(p-a)(p-b)p-c); end; begin readln(a,b,c,d); s:=0; square(1,a,2,s1); s:=s+s1; square(2,2.5,b,s1); s:=s+s1; square(2.5,c,d,s1); s:=s+s1; Writeln(s:6:3); readln; end.` Дурь* - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.

25.10.2009, 05:16	#4
OCTAGRAM Oldschool geek Форумчанин Регистрация: 09.03.2009 Сообщений: 611	Формула Герона If you want to get to the top, you have to start at the bottom http://pascal.net.ru/

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Процедуры и функции	junkie	Паскаль, Turbo Pascal, PascalABC.NET	5	27.04.2009 19:05
Процедуры и функции	Алeксандр	Паскаль, Turbo Pascal, PascalABC.NET	1	22.01.2009 04:54
Процедуры и функции	V25	Паскаль, Turbo Pascal, PascalABC.NET	1	17.11.2008 20:02
Функции и процедуры	_Антон_	Помощь студентам	4	15.11.2008 19:58
Процедуры и функции	KulOle	Паскаль, Turbo Pascal, PascalABC.NET	1	26.10.2008 14:18

24.10.2009, 14:25	#3
hohol90 Пользователь Регистрация: 10.10.2009 Сообщений: 34	Большое спасибо, но если не сложно объясни что значит (Определить процедуру вычисления площади треугольника по трем его сторонам).