(Pascal) Функции

[S1nek]

1- Написать программу, определяющую отрезок наибольшей длинны, если заданы начала и концы отрезков. Написать функцию, определяющую длину отрезка (входной параметр – координаты вершин начала и конца отрезка).

2-Найти периметр фигуры ABCD по заданным сторонам AB, AC и DC. Используя функцию определения гипотенузы по двум катетам.
Угол ВАС = углу BCD = 90 градусов.

И если не трудно,то обьясните пожалуйста по какому принцыпу ани работают, буду рад описанию к программе

[Stilet]

Написать функцию, определяющую длину отрезка (входной параметр – координаты вершин начала и конца отрезка).

 function len(ax,ay,bx,by:double);begin len:=sqrt(sqr(ax-bx)+sqr(ay-by));end;

если заданы начала и концы отрезков

Ну вот смотри. Допустим описываешь массив

type tPoint=record x,y:double;end; 
var otrezki[1..100,1..2] of tpoint;
 i:integer;

Далее заполняешь их

 for i:=1 to 100 do begin
  read(otrezki[i,1].x,otrezki[i,1].y,otrezki[i,2].x,otrezki[i,2].y);
 end;

После в цикле передаешь в функцию len элементы массива

...:=len(otrezki[i,1].x,otrezki[i,1].y,otrezki[i,2].x,otrezki[i,2].y);

которая вернет тебе длину отрезка. Запоминай ее в некую переменную если ее значение меньше чем длина высчитанного отрезка.

по какому принцыпу ани работают

А это ты у Ань сам спроси.

[S1nek]

Спасибо Stilet но не могли бы ли вы отправить полный текст программы
я плохо разбираюсь в паскале

[Анатоль]

Ну по-моему stilet супер доступно всё объяснил, дальше просто некуда.
А если вы не можете после таких объяснений сми написать код программы, то
вам это и не нужно по видимому. А препод всё равно потом поймёт что вы ничего не знаете, так что пора бы чему то самому научиться.

[S1nek]

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

program Perimetr_ABCD;
function GetHipo(kat1,kat2:real):real;
begin
  GetHipo:=sqrt(sqr(kat1)+sqr(kat2));
end;
var
  AB,AC,DC:real;
  P:real;
begin
  writeln('Vvedite AB');
  Readln(AB);
  writeln('Vvedite AC');
  Readln(AC);
  writeln('Vvedite DC');
  Readln(DC);
  P:=AB+AC+DC+GetHipo(GetHipo(AB,AC),DC);
  WriteLn('Perimetr = ',P:8:3);
  ReadLn;
end.

Как видите программа другая,мне кажется что я неправильно её написал и у меня поэтому возникли такие предложения

[Snejnaya]

Как видите программа другая

Конечно, другая, Stilet про длину отрезка писал, а ты про периметр ABCD.

мне кажется что я неправильно её написал и у меня поэтому возникли такие предложения

почему тебе так кажется? Вроде все верно.

[Stilet]

я плохо разбираюсь в паскале

Признайся что просто лень

 function len(ax,ay,bx,by:double);begin len:=sqrt(sqr(ax-bx)+sqr(ay-by));end;
var a:array[1..1000,1..4] of double;
 mxi,i:integer;mx:double;
begin
 mx:=0;
 for i:=1 to 1000 do begin
  write('Введи АХ ');readln(a[i,1]);
  write('Введи АY ');readln(a[i,2]);
  write('Введи BХ ');readln(a[i,3]);
  write('Введи BY ');readln(a[i,4]);
  if len(a[i,1],a[i,2],a[i,3],a[i,4])>mx then begin
   mxi:=i;  mx:=len(a[i,1],a[i,2],a[i,3],a[i,4]);
  end;
 end;
 write('Наидлинейший отрезок ',a[mxi,1],a[mxi,2],a[mxi,3],a[mxi,4]);
 readln;
end.

[S1nek]

Уважаемый Stilet спасибо за текст программы, но к сожалению она немного не верна, а на счёт лени - есть немножко
так я немного подправил, но не дописал - необходима ваша помощь

Код :

Program Otrezzzki;
function len(ax,ay,bx,by: double):real;
begin len:=sqrt(sqr(ax-bx)+sqr(ay-by));
end;
var a:array[1..4] of double;
L1,L2,i:integer;
begin
for i:=1 to 4 do
begin
writeln('Vvedi koord pervogo otrezka L1');
readln(a[i]);
L1:=len(a[i],a[i],a[i],a[i]);
Writeln('Vvedi koord vtorogo otrezka L2');
L2:=len(a[i],a[i],a[i],a[i]);
if L1>L2 then
begin
writeln('Naidlinneisiu otrezok ',L1);
end;
if L1<L2 then
begin
writeln('Naidlinneisiu otrezok ',L2);
end;
end.

Уважаемый Stilet так как координаты находятся на плоскости мне нужно вводить 4 координаты первого отрезка и 4 второго, по средству цыкла если (if) сравнить эти координаты и вывести результат.
МНЕ ОЧЕНЬ НЕОБХОДИМА ВАША ПОМОЩЬ

[S1nek]

Народ,я мазгами пораскинул и сам всё написал,точнее переписал копитально, если каму необходимо увидеть мой вариант написания этой работы то отпишитесь....
P.S но возникла ещё одна проблема.... но это уже в другой теме....

[Gray_Mc]

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

Народ,я мазгами пораскинул и сам всё написал,точнее переписал копитально, если каму необходимо увидеть мой вариант написания этой работы то отпишитесь....
P.S но возникла ещё одна проблема.... но это уже в другой теме....

Отпишите пожалуйста 2ю прогу