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

[Богдан))(]

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

program mnog;
type point=record
x,y:integer;
end;
var p:array[1..1000] of point;
    n,i:integer;sum,per:extended;f3:text;
function storona(a,b,c,d:integer):real;
begin
storona:=sqrt(sqr(c-a)+sqr(d-b) ;
end;
begin

assign(f3,'input.txt');
reset(f3);
readln(f3,n);
for i:=1 to n do
readln(f3,p[i].x,p[i].y);
close(f3);
per:=0;
sum:=0;
for i:=3 to n do
readln(f3,p[i].x,p[i].y);
close(f3);
per:=0;
sum:=0;
for i:=3 to n do
sum:=sum+ 0.5*abs((p[i-1].x-p[1].x)*(p[i].y-p[1].y)-(p[i].x-p[1].x)*(p[i-1].y-p[1].y));

for i:=2 to n do
per:=per+storona(p[i-1].x,p[i-1].y,p[i].x,p[i].y);
per:=per+storona(p[1].x,p[1].y,p[n].x,p[n].y);
writeln(sum);
writeln(per);
readln;readln;end.

Тэги!! Lapp

[Lapp]

подскажите где ощибка!!

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

Начнем с простого: зачем ты читаешь файл повтороно? для надежности? Ну, тогда по крайней мере открой его, иначе вылетит по вводу. Но лучше все же убери повтор..

Второе: скажи, по каким формулам ты считаешь? Откуда ты их взял? Можешь их написать (не запрограммировать, а написать на бумаге)? Пояснить чертежем?

[Богдан))(]

нашел
просто неправильно скопировал

program mnog;
type point=record
x,y:integer;
end;
var p:array[1..1000] of point;
    n,i:integer;
    sum,per:extended;
    f3:text;

function storona(a,b,c,d:integer):real;
begin
storona:=sqrt(sqr(c-a)+sqr(d-b) ;
end;

begin
assign(f3,'input.txt');
reset(f3);
readln(f3,n);
for i:=1 to n do
readln(f3,p[i].x,p[i].y);
close(f3);
per:=0;
sum:=0;
for i:=3 to n do
sum:=sum+ 0.5*abs((p[i-1].x-p[1].x)*(p[i].y-p[1].y)-(p[i].x-p[1].x)*(p[i-1].y-p[1].y));

for i:=2 to n do
per:=per+storona(p[i-1].x,p[i-1].y,p[i].x,p[i].y);
per:=per+storona(p[1].x,p[1].y,p[n].x,p[n].y);
writeln(sum);
writeln(per);
readln;readln;end.

я разбивал многоугольник на треугольники, находил площадь каждого и сумировал
формула вычисления площади треугольника по координатам его вершин
S:=0.5*abs((x2-x1)*(y3-y1)+(x3-x1)*(y2-y1));
площадь считает правильно

а вот с периметр не хочет
т.е если ввожу небольшие числа, то считает все хорошо, а если больште - то выскакивает error 207 invalid floating point operation
как сделать правильно??

[volvo]

как сделать правильно??

Во-первых, пользоваться подсветкой, без нее твой код превращается в месиво, которое разгребать на фиг никому не сдалось.

А во-вторых, что, настолько сложно привести данные, на которых у тебя вылетает программа? Вот обязательно надо, чтоб кто-то начал подбирать, десятки запусков делать, да? А до этого, кстати, надо вообще рисовать где-то многоугольник, и записывать координаты вершин в нужном порядке... Ты ж это сделал уже? Вот и покажи, что вводишь... К тому же что для тебя "больште" - это известно только тебе... Насколько "больште"?

[Богдан))(]

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

program mnog;
type point=record
x,y:real;
end;
var p:array[1..1000] of point;
n,i:integer;
sum,per:real;
f3:text;
function storona(a,b,c,d:real):real;
begin storona:=sqrt(sqr(c-a)+sqr(d-b));
end;
begin
assign(f3,'input.txt');
reset(f3);
readln(f3,n);
for i:=1 to n do readln(f3,p[i].x,p[i].y);
close(f3);
per:=0;sum:=0;

for i:=3 to n do {считает площадь}
sum:=sum+ 0.5*abs((p[i-1].x-p[1].x)*(p[i].y-p[1].y)-(p[i].x-p[1].x)*(p[i-1].y-p[1].y));

for i:=2 to n do {считает периметр}
per:=per+storona(p[i-1].x,p[i-1].y,p[i].x,p[i].y);
per:=per+storona(p[1].x,p[1].y,p[n].x,p[n].y);

assign(f3,'output.txt');
rewrite(f3);
writeln(f3,sum:10:10);
writeln(f3,per:10:10);
close(f3);
end.

что касается чертежа, то его можно найти в любом учебнике по математике за 9 класс!!

[Lapp]

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

Никому не интересно, уверяю тебя.

что касается чертежа, то его можно найти в любом учебнике по математике за 9 класс!!

И все сразу побежали и стали искать любой учебник за 9 класс. А те счастливчики, которые нашли - они сидят и жадно листают его, чтобы только угодить милейшему Богдану))(..

М

Богдан))(, прочти Правила Форума и в следующий раз выполняй их.