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

Марина Орёл · 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

Ну спасибо, Марина!
Вы, очевидно, полагаете, что нам тут заняться нечем, кроме как по десять раз выкладывать решение одних и тех же задач в надежде, что Вы однажды соблаговолите обратить свое царственное внимание хоть на какой-нибудь из ответов? Извините, но Вы несколько заблуждаетесь.
Функции и процедуры

Марина Орёл · 22.12.2010, 21:56

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

Марина Орёл · 22.12.2010, 22:01

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

Vladimir_S · 23.12.2010, 10:26

Цитата:

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

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

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

Код:

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.

22.12.2010, 21:23	#1 (permalink)
Марина Орёл Member Регистрация: 07.12.2010 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Подпрограмма Помогите решить в Pascal через подпрограмму задачу. Для векторов x=(-1.2, 3, 5) и y=(1, 2.1, 6, -2, 3) определить, какой из них имеет большую длину.Вычисление длины оформить в виде подпрограммы.

22.12.2010, 21:23
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Давайте обратим внимание на схожие темы Подпрограмма VBA Бейсик, подпрограмма Подпрограмма вывода значений

22.12.2010, 21:26	#2 (permalink)
NamiD Изучающий Регистрация: 17.08.2010 Сообщений: 305 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 174	Pascal уже совсем не помню, но насколько понимаю для написания программы достаточно взять самую тоненькую книжечку по программированию и заглянуть туда... тут вроде все достаточно просто для того, чтобы разобраться самому с нуля

22.12.2010, 21:29	#3 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Ну спасибо, Марина! Вы, очевидно, полагаете, что нам тут заняться нечем, кроме как по десять раз выкладывать решение одних и тех же задач в надежде, что Вы однажды соблаговолите обратить свое царственное внимание хоть на какой-нибудь из ответов? Извините, но Вы несколько заблуждаетесь. Функции и процедуры

22.12.2010, 21:56	#4 (permalink)
Марина Орёл Member Регистрация: 07.12.2010 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	у меня не приняли - то решение не правильное.сказали что надо сделать линейный алгоритм!

22.12.2010, 22:01	#5 (permalink)
Марина Орёл Member Регистрация: 07.12.2010 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Ой извините не линейный алгоритм, а подпрограмму!а в том решении что Вы мне написали нет подпрограммы.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070