|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Delphi 7. Линейные алгоритмы.
Заданы координаты трех вершин треугольника (х1,у1) (х2,у2) (х3,у3). Найти периметр и площадь. Заранее Большое СПАСИБО!!!
Последний раз редактировалось Юрис 2009, 27.04.2009 в 21:37. |
#2
|
|||
|
|||
А поцеловать? (с) анекдот
|
#3
|
||||
|
||||
Цитата:
Всегда убивают такие темы на форумах... а потом такие "студенты" еще и умудряются на отлично учиться А потом такие "спецы" еще и работать будут по специальности З.ы. Эхххх.. еслиб спрос на лабы был постоянным, а не перед сессией, я б уже себе на машину напрограммил |
#4
|
||||
|
||||
Зачем програмисту машина?
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#5
|
||||
|
||||
Цитата:
А потом мы еще и удивляемся : почему бардак твориться в стране. |
#6
|
||||
|
||||
Если нечего ответить по теме проходим дальше.
Отвечайте только по существу вопроса, нечего флеймить. |
#7
|
||||
|
||||
А что отвечать, это геометрия школьного курса
Периметр - сумма длин трех отрезков (длина=sqrt( SQR(Х2-Х1)+SQR(Y2-Y1)) а площадь находим по Герону = SQRT(p*(p-a)*(p-b)*(p-c)) И уж если такое человек не знает, то на ФОРУМЕ этом ему вообще делать нечего, я б на месте модеров такие темы удалял. Т.к. это не помощь начинающим, а тупо сделайте мне лабу , а то я не хочу лишнюю сотню отдавать и мозга у меня нет даже спинного, чтобы разобраться. И можете ва меня камнем кинуть, если я не прав. Ладно было бы еще написано, бла-бла, помогите разобраться,никак пончять не могу, а то одно голое задание, на-те решайте!!! |
#8
|
||||
|
||||
Отправил сообщение выше дважды Хз как удалить Вот решил накидать текст програмки
Код:
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, 28.04.2009 в 13:55. |
#9
|
||||
|
||||
А где-же интерфейс? Где меню? Где статусбар в конце концов.
Да и логина нет. Вывод - ваш пример для нормальных пацанов непойдет Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#10
|
|||
|
|||
А под слакой Это идет?
|
#11
|
||||
|
||||
Цитата:
А разве был указан какой путь реализации выбирать? и разве консольный вариант сложен и не изящен? |