Форум «Всё о Паскале» _ Задачи _ площадь и преиметр многоугольника
Автор: Богдан))( 19.02.2010 3:24
многоугольник задан на плоскости координатами вершин в порядке обхода. найти его площадь и периметр. подскажите где ощибка!!
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 19.02.2010 4:23
Цитата(Богдан))( @ 18.02.2010 23:24)
подскажите где ощибка!!
Если бы ошибка была одна, можно было бы подсказать. Но у тебя их много, и это сделать непросто..
Начнем с простого: зачем ты читаешь файл повтороно? для надежности? Ну, тогда по крайней мере открой его, иначе вылетит по вводу. Но лучше все же убери повтор..
Второе: скажи, по каким формулам ты считаешь? Откуда ты их взял? Можешь их написать (не запрограммировать, а написать на бумаге)? Пояснить чертежем?
Автор: Богдан))( 19.02.2010 21:20
нашел просто неправильно скопировал
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 19.02.2010 22:24
Цитата
как сделать правильно??
Во-первых, пользоваться подсветкой, без нее твой код превращается в месиво, которое разгребать на фиг никому не сдалось.
А во-вторых, что, настолько сложно привести данные, на которых у тебя вылетает программа? Вот обязательно надо, чтоб кто-то начал подбирать, десятки запусков делать, да? А до этого, кстати, надо вообще рисовать где-то многоугольник, и записывать координаты вершин в нужном порядке... Ты ж это сделал уже? Вот и покажи, что вводишь... К тому же что для тебя "больште" - это известно только тебе... Насколько "больште"?
Автор: Богдан))( 20.02.2010 0:21
извини. не подумал, что у тебя плохое зрение!! кстати, нашел ошибку. вот правильная прога может кому интересно
Цитата
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);
что касается чертежа, то его можно найти в любом учебнике по математике за 9 класс!!
Автор: Lapp 20.02.2010 3:45
Цитата(Богдан))( @ 19.02.2010 20:21)
извини. не подумал, что у тебя плохое зрение!! кстати, нашел ошибку. вот правильная прога может кому интересно
Никому не интересно, уверяю тебя.
Цитата
что касается чертежа, то его можно найти в любом учебнике по математике за 9 класс!!
И все сразу побежали и стали искать любой учебник за 9 класс. А те счастливчики, которые нашли - они сидят и жадно листают его, чтобы только угодить милейшему Богдану))(..
М
Богдан))(, прочти Правила Форума и в следующий раз выполняй их.