Ребята! помогите решить пару задачек. Просто сам физически не успеваю...
1) Составить программу с использованием функции:
Три треугольника заданы на плоскости координатами вершин:
(A,B,C),(D,F,S),(K,L,M). Вычислить периметры этих треугольников и найти максимальный периметр.

2) Составить программу с использованием процедуры:
Даны векторы: a={ai}i=1,4; b={bi}i=1,4; c={ci}i=1,5; d={di}i=1,5;
Найти значение у=min(P1,P2), где
P1 - скалярное произведение векторов a и b
P2 - скалярное произведение векторов c и d

Заранее всем благодарен.

Пиши в центр помощи,так тебе мало кто ответит.

Блин! Ребята! Не успеваю...
Подскажите хотябы из первой задачи по каким формулам находить периметр..
А то со школы уже и не помню, а учебника под рукой нет..

Цитата(F_13 @ 28.9.2005, 16:47)

Вот первая, максимальный периметр вычислишь сам:

Код

uses Crt; type     TPoint = record        x : Real;        y : Real;      end; {------------------------------------------------------------------------} Function Otr(Ax,Ay,Bx,By : Real) : Real; var  result : Real; begin      if (((Ax > 0) and (Bx > 0)) and ((Ay > 0) and (By > 0))) or         (((Ax > 0) and (Bx > 0)) and ((Ay < 0) and (By < 0))) or         (((Ax < 0) and (Bx < 0)) and ((Ay > 0) and (By > 0))) or         (((Ax < 0) and (Bx < 0)) and ((Ay < 0) and (By < 0))) then        result := sqrt(sqr(abs(Ax - Bx)) + sqr(abs(Ay - By)));      if ((Ax > 0) and (Bx < 0)) or ((Ax < 0) and (Bx > 0)) then begin        if ((Ay > 0) and (By < 0)) or ((Ay < 0) and (By > 0)) then          result := sqrt(sqr(abs(Ax + Bx)) + sqr(abs(Ay + By)))        else if ((Ay > 0) and (By > 0)) or ((Ay < 0) and (By < 0)) then          result := sqrt(sqr(abs(Ax + Bx)) + sqr(abs(Ay - By)));      end      else if ((Ax > 0) and (Bx > 0)) or ((Ax < 0) and (Bx < 0)) then begin        if ((Ay > 0) and (By < 0)) or ((Ay < 0) and (By > 0)) then          result := sqrt(sqr(abs(Ax - Bx)) + sqr(abs(Ay + By)));      end;      Otr := result; end; {------------------------------------------------------------------------} {------------------------------------------------------------------------} Function Perim(Ax,Ay,Bx,By,Cx,Cy : Real) : Real; begin      Perim := Otr(Ax,Ay,Bx,By) + Otr(Bx,By,Cx,Cy) + Otr(Ax,Ay,Cx,Cy); end; {------------------------------------------------------------------------} var A,B,C,D : TPoint; begin      Clrscr;      Write('Input point A (x,y):');      ReadLn(A.x,A.y);      Write('Input point B (x,y):');      ReadLn(B.x,B.y);      Write('Input point C (x,y):');      ReadLn(C.x,C.y);      Write('Input point D (x,y):');      ReadLn(D.x,D.y);      WriteLn('Perimeter ABC: ',Perim(A.x,A.y,B.x,B.y,C.x,C.y));      WriteLn('Perimeter ABD: ',Perim(A.x,A.y,B.x,B.y,D.x,D.y));      WriteLn('Perimeter ACD: ',Perim(A.x,A.y,C.x,C.y,D.x,D.y));      ReadKey; end.

чёта код какойто сложный получился разве нельзя была сначала найти все три периметра а потом просто сравнить их ?

Цитата(Remiznik @ 28.9.2005, 20:00)

чёта код какойто сложный получился разве нельзя была сначала найти все три периметра а потом просто сравнить их ?

Просто решал цикл задач, в первой задаче надо было написать функцию которая находит расстояние между двумя точками, а во второй применив эту функцию написать функцию находящую периметр треугольника расположенного на плоскости, вот собственно вторую задачу здесь и выложил....

всё както за умно ))))

Цитата(Remiznik @ 29.9.2005, 15:37)

всё както за умно ))))

А ты как думал...