Подпрограмма

[Марина Орёл]

Подпрограмма

Помогите решить в Pascal через подпрограмму задачу.
Для векторов x=(-1.2, 3, 5) и y=(1, 2.1, 6, -2, 3) определить, какой из них имеет большую длину.Вычисление длины оформить в виде подпрограммы.

 

[NamiD]

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

 

[Vladimir_S]

Ну спасибо, Марина!
Вы, очевидно, полагаете, что нам тут заняться нечем, кроме как по десять раз выкладывать решение одних и тех же задач в надежде, что Вы однажды соблаговолите обратить свое царственное внимание хоть на какой-нибудь из ответов? Извините, но Вы несколько заблуждаетесь.
http://www.tehnari.ru/f41/t43325/#post429336

 

[Марина Орёл]

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

 

[Марина Орёл]

Ой извините не линейный алгоритм, а подпрограмму!а в том решении что Вы мне написали нет подпрограммы.

 

[Vladimir_S]

Ой извините не линейный алгоритм, а подпрограмму!а в том решении что Вы мне написали нет подпрограммы.

Да пожалуйста...

Type
 Ar=Array[1..5] of Real;

Const
 x:Ar=(-1.2, 3, 5,0,0);
 y:Ar=(1, 2.1, 6, -2, 3);

VAR
 Lx,Ly:Real;

Function Lng(LL:Ar):Real;
 var
  i:Integer;
  L:Real;
 begin
  L:=0;
  For i:=1 to 5 do
   L:=L+SQR(LL[i]);
  Lng:=SQRT(L);
 end;

BEGIN
 WriteLn('Lx= ',Lng(x):5:3);
 WriteLn('Ly= ',Lng(y):5:3);
 ReadLn;
END.