[Юрис 2009]

Заданы координаты трех вершин треугольника (х1,у1) (х2,у2) (х3,у3). Найти периметр и площадь. Заранее Большое СПАСИБО!!!

[lmikle]

А поцеловать? (с) анекдот

[Sphinx]

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

А поцеловать? (с) анекдот

Всегда убивают такие темы на форумах... а потом такие "студенты" еще и умудряются на отлично учиться А потом такие "спецы" еще и работать будут по специальности

З.ы. Эхххх.. еслиб спрос на лабы был постоянным, а не перед сессией, я б уже себе на машину напрограммил

[Страдалецъ]

Зачем програмисту машина?

[Konrad]

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

Всегда убивают такие темы на форумах... а потом такие "студенты" еще и умудряются на отлично учиться А потом такие "спецы" еще и работать будут по специальности

Согласен на 100%.

А потом мы еще и удивляемся : почему бардак твориться в стране.

[Admin]

Если нечего ответить по теме проходим дальше.
Отвечайте только по существу вопроса, нечего флеймить.

[Sphinx]

А что отвечать, это геометрия школьного курса
Периметр - сумма длин трех отрезков (длина=sqrt( SQR(Х2-Х1)+SQR(Y2-Y1)) а площадь находим по Герону = SQRT(p*(p-a)*(p-b)*(p-c))

И уж если такое человек не знает, то на ФОРУМЕ этом ему вообще делать нечего, я б на месте модеров такие темы удалял. Т.к. это не помощь начинающим, а тупо сделайте мне лабу , а то я не хочу лишнюю сотню отдавать и мозга у меня нет даже спинного, чтобы разобраться. И можете ва меня камнем кинуть, если я не прав. Ладно было бы еще написано, бла-бла, помогите разобраться,никак пончять не могу, а то одно голое задание, на-те решайте!!!

[Sphinx]

Отправил сообщение выше дважды Хз как удалить Вот решил накидать текст програмки

Код:

Program lab;

Var
T:Text;
a,b,c,S,P:real;
X1,Y1,X2,Y2,X3,Y3:real;

Begin
AssignFile(T,'input.txt');
Reset(T);
While Not(Eof(T)) do begin
Read(T,X1);
Read(T,Y1);
Read(T,X2);
Read(T,Y2);
Read(T,X3);
Read(T,Y3);
end;
CloseFile(T);
a:=Sqrt(Sqr(X2-X1)+sqr(Y2-Y1));
b:=Sqrt(Sqr(X3-X2)+sqr(Y3-Y2));
c:=Sqrt(Sqr(X1-X3)+sqr(Y1-Y3));
P:=(a+b+c)/2;
S:=SQRT(P*(P-a)*(p-b)*(p-c));
AssignFile(T,'output.txt');
Rewrite(T);
Writeln(T,S);
Write(T,P*2)
closeFile(T);
END.

Admin: Use Tags!

[Страдалецъ]

А где-же интерфейс? Где меню? Где статусбар в конце концов.
Да и логина нет.
Вывод - ваш пример для нормальных пацанов непойдет

[Tovarisch]

А под слакой Это идет?

[Sphinx]

Сообщение от Страдалецъ

А где-же интерфейс? Где меню? Где статусбар в конце концов.
Да и логина нет.
Вывод - ваш пример для нормальных пацанов непойдет

А разве был указан какой путь реализации выбирать? и разве консольный вариант сложен и не изящен?