Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.03.2008, 16:35   #11
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

О господи, узнал много нового из геометрии
Немного исправил твою математику.

Код:
Var x1, x2, x3,
    y1, y2, y3,
    S : Integer;
    a, b, c, p : Real;

Begin
Write ('x1 = '); Readln (x1);
Write ('y1 = '); Readln (y1);
Write ('x2 = '); Readln (x2);
Write ('y2 = '); Readln (y2);
Write ('x3 = '); Readln (x3);
Write ('y3 = '); Readln (y3);

if ((y3-y1)*(x2-x1))=((x3-x1)*(y2-y1)) Then
  Writeln ('Net takova treugolnika!')
Else
  Begin
    a := sqrt(sqr(x2-x1) + sqr(y2-y1));
    b := sqrt(sqr(x3-x2) + sqr(y3-y2));
    c := sqrt(sqr(x3-x1) + sqr(y3-y1));
    p := (a + b + c)/2;

    Write ('Plo4ad: ');
    Writeln (sqrt(p*((p - a)*( p - b)*(p - c))):5:2);

    Write ('Perimetr: ');
    Write ((a + b + c):5:2);

  End;
Readln;
End.
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума Ответить с цитированием
Старый 08.03.2008, 16:43   #12
alen666
Пользователь
 
Регистрация: 08.03.2008
Сообщений: 14
По умолчанию

Огромное спасибо за помощ...выручил сильно..


Тему можно закрывать
alen666 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите исправить ошибку в задаче Vladislav_87 Паскаль, Turbo Pascal, PascalABC.NET 4 04.07.2008 12:27
Калькулятор полиномов. Помогите исправить ошибку fen99 Общие вопросы C/C++ 1 20.06.2008 16:17
Помогите исправить ошибку в задаче VANOLORD Паскаль, Turbo Pascal, PascalABC.NET 9 19.05.2008 22:16
Помогите исправить ошибку в коде... prizrak1390 Общие вопросы Delphi 4 26.04.2008 13:19
Помогите исправить ошибку Булат Общие вопросы Delphi 3 25.04.2008 10:01