14.12.2010, 15:56 | #1 (permalink) |
Member
Регистрация: 07.12.2010
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Функции и процедуры
|
14.12.2010, 15:56 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Наверняка вам пригодится информация, которая содержится в похожих темах Двумерные массивы и процедуры PASCAL Оформление процедуры с массивами Оформить в виде процедуры. Паскаль Процедуры, функции Процедуры и функции. Паскаль Процедуры-подпрограммы-паскаль |
14.12.2010, 17:00 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const x:Array[1..3] of Real=(-1.2, 3, 5); y:Array[1..5] of Real=(1, 2.1, 6, -2, 3); VAR Lx,Ly:Real; i:Integer; BEGIN Lx:=0; Ly:=0; For i:=1 to 3 do Lx:=Lx+SQR(x[i]); Lx:=SQRT(Lx); For i:=1 to 5 do Ly:=Ly+SQR(y[i]); Ly:=SQRT(Ly); WriteLn('Lx= ',Lx:5:3); WriteLn('Ly= ',Ly:5:3); ReadLn; END. |
|
14.12.2010, 17:35 | #3 (permalink) |
Member
Регистрация: 07.12.2010
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Огромное Спасибо!извините за неточность)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|