Меню сайта
Форма входа
Категории раздела
Учебник по Паскалю [13] Практика [23]
примеры программ
Главная » Статьи » Pascal » Практика
Треугольник задан координатами своих вершин. Найти периметр треугольника.

Треугольник задан координатами своих вершин. Найти периметр треугольника.

Program Triugolnik;

Uses crt;

Var Xa,Xb,Xc,

Ya,Yb,Yc:integer;

ab,ac,bc,p:real;

begin

Clrscr;

Writeln('Введите координаты точки А:');

write('x= ');readln(xa);

write('y= ');readln(ya);

Writeln('Введите координаты точки B:');

write('x= ');readln(xb);

write('y= ');readln(yb);

Writeln('Введите координаты точки C:');

write('x= ');readln(xc);

write('y= ');readln(yc);

ab:=sqrt(sqr(abs(xa-xb))+sqr(abs(ya-yb)));

ac:=sqrt(sqr(abs(xa-xc))+sqr(abs(ya-yc)));

bc:=sqrt(sqr(abs(xb-xc))+sqr(abs(yb-yc)));

p:=ab+ac+bc;

writeln('Периметр триугольника равен ',p:4:2);

writeln('Для выхода нажмите Enter');

readln;

end.

Категория: Практика | Добавил: nazgull (09.02.2012)
Просмотров: 9456 | Теги: Найти периметр треугольника пакаль, треугольник задан координатами свои, Найти периметр треугольника примеры, треугольник на паскале | Рейтинг: 3.3/3
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Ссылки