Найти периметр треугольника по координатам его вершин

@Flaze · Регистрация: 27.05.2013

Здравствуйте всем. Помогите пожалуйста с программой на зачёт по турбо паскалю.

Описать функцию Perim(Ax,Ay,Bx,By,Cx,Cy) вещественного типа, находящую периметр треугольника ABC по координатам его вершин (Ax, Ay, Bx, By, Cx, Cy — вещественные параметры). С помощью этой функции найти периметры треугольников ABC, ABD, ACD, если даны координаты точек A, B, C, D.

@Puporev · 20.10.2013, 18:17

Pascal

function Perim(ax,ay,bx,by,cx,cy:real):real;
var a,b,c:real;
begin
a:=sqrt(sqr(bx-cx)+sqr(by-cy));
b:=sqrt(sqr(ax-cx)+sqr(ay-cy));
c:=sqrt(sqr(ax-bx)+sqr(ay-by));
Perim:=a+b+c
end;

В программе вводишь координаты 4х точек и 3 раза вызываешь функцию с разными параметрами

@Flaze · 21.10.2013, 14:57 **[ТС]**

выдаёт ошибку( ругается, что нету бегин, а енд есть, но я уже енд с точкой делал, всё-равно не выходит и бегин второй подставлял ( помогите пожалуйста.

@Puporev · 21.10.2013, 14:58

Так я же написал что это не вся программа, а только функция к ней

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

В программе вводишь координаты 4х точек и 3 раза вызываешь функцию с разными параметрами

@Flaze · 23.10.2013, 15:56 **[ТС]**

можно написать как это будет? я не понимаю, честно..

@Puporev · 23.10.2013, 17:08

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

я не понимаю, честно..

Верю, но писать не буду, ты как не понимал,так и будет.

@rusik1994 · 23.10.2013, 17:35

Pascal

var ax,ay,bx,by,cx,cy,dx,dy:real;
begin
writeln('vvedite AX=');
readln(ax);
writeln('vvedite AY=');
readln(ay);
и так далее все координаты

Добавлено через 8 минут

Pascal

function Perim(ax,ay,bx,by,cx,cy:real):real;
var a,b,c:real;
begin
a:=sqrt(sqr(bx-cx)+sqr(by-cy));
b:=sqrt(sqr(ax-cx)+sqr(ay-cy));
c:=sqrt(sqr(ax-bx)+sqr(ay-by));
Perim:=a+b+c
end;
var abc,abd,acd,ax,ay,bx,by,cx,cy,dx,dy:real;
begin
writeln('vvedite AX=');
readln(ax);
writeln('vvedite AY=');
readln(ay);
writeln('vvedite BX=');
readln(bx);
writeln('vvedite BY=');
readln(by);
writeln('vvedite CX=');
readln(cx);
writeln('vvedite CY=');
readln(cy);
writeln('vvedite DX=');
readln(DX);
writeln('vvedite DY=');
readln(dy);
abc:=perim(ax,ay,bx,by,cx,cy);
abd:=perim(ax,ay,bx,by,dx,dy);
acd:=perim(ax,ay,cx,cy,dx,dy);
writeln(abc);
writeln(abd);
writeln(acd);
readln;
end.

весь код программы

Найти периметр треугольника по координатам его вершин

Решение

Решение

@Flaze 1 / 1 / 1 Регистрация: 27.05.2013 Сообщений: 160
		1
	Найти периметр треугольника по координатам его вершин 20.10.2013, 17:54. Показов 3185. Ответов 6 Метки нет (Все метки) Здравствуйте всем. Помогите пожалуйста с программой на зачёт по турбо паскалю. Описать функцию Perim(Ax,Ay,Bx,By,Cx,Cy) вещественного типа, находящую периметр треугольника ABC по координатам его вершин (Ax, Ay, Bx, By, Cx, Cy — вещественные параметры). С помощью этой функции найти периметры треугольников ABC, ABD, ACD, если даны координаты точек A, B, C, D. 0

@Flaze 1 / 1 / 1 Регистрация: 27.05.2013 Сообщений: 160
	21.10.2013, 14:57 [ТС]	3
	выдаёт ошибку( ругается, что нету бегин, а енд есть, но я уже енд с точкой делал, всё-равно не выходит и бегин второй подставлял ( помогите пожалуйста. 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	21.10.2013, 14:58	4
	Так я же написал что это не вся программа, а только функция к ней Сообщение от Puporev В программе вводишь координаты 4х точек и 3 раза вызываешь функцию с разными параметрами 1

@Flaze 1 / 1 / 1 Регистрация: 27.05.2013 Сообщений: 160
	23.10.2013, 15:56 [ТС]	5
	можно написать как это будет? я не понимаю, честно.. 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	23.10.2013, 17:08	6
	Сообщение от Flaze я не понимаю, честно.. Верю, но писать не буду, ты как не понимал,так и будет. 0

Опции темы