Технический форум - Подпрограмма

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Подпрограмма (http://www.tehnari.ru/f41/t43729/)

Марина Орёл

22.12.2010 21:23

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

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

NamiD

22.12.2010 21:26

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

Vladimir_S

22.12.2010 21:29

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

Марина Орёл

22.12.2010 21:56

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

Марина Орёл

22.12.2010 22:01

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

Vladimir_S

23.12.2010 10:26

Цитата:

Сообщение от Марина Орёл (Сообщение 433289)

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

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

Код:

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.

Часовой пояс GMT +4, время: 05:22.