Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ как передаются данные

Автор: qwerty) 14.05.2007 18:49

Суть вопроса вот в чем как значения sg и и массив f,который формируется в процедуре shet передаются после процедуры и не теряются....Сеня спросили на защите...

program abs;
type vect=array[1..100] of real;
var a,b,c,d,f :vect;n,n1,m,m1,z,sg,p,sgf:integer;
procedure wwod(n:integer;var x:vect;q:string);
var i:integer;
begin
For i:=1 to N do begin write (q,'[',i,']=');readln(x[i]);
end;end;
procedure shet (n,m:integer;x:vect);
var i:integer;p,sg:real;
begin p:=1;
for i:=1 to n do
p:=p*x[i];
sg:=exp(1/n*ln(p));
f[m]:=sg;
end;
BEGIN
Write('n=');
readln(n);
Write('m=');
readln(m);
Write('n1=');
readln(n1);
Write('m1=');
readln(m1);
wwod (n,A,'A');
wwod (m,B,'B');
wwod (n1,C,'C');
wwod (m1,D,'D');
shet (m,1,A);
shet (n,2,B);
shet (n1,3,C);
shet (m1,4,D);
shet (4,5,F);
For z:=1 to 4 do
writeln ('f[',z,']=',f[z]);
writeln('sgf=',f[5]);
end.



Автор: Tan 14.05.2007 19:14

Так ты же в этой процедуре изменяешь глобальный массив

 f[m]:=sg;
Либо я не так уловил вопрос.

Автор: qwerty) 14.05.2007 19:19

Да все прально,а как он дальше этот массив то передается

Автор: volvo 14.05.2007 19:29

А он никуда и не передается... Он - глобальный, куда ему еще передаваться - то надо? И так к нему есть доступ отовсюду...

Автор: qwerty) 14.05.2007 19:33

И еще она спрашивает,почему не теряется

Автор: Tan 14.05.2007 19:37

У тебя есть глобальный массив, как написал volvo доступ к нему есть ото всюду, поэтому изменяя его в любом уровне программы ты изменишь его для всей программы. А эти значения sg внутри процедуры присваиваются массиву. После того как ты выходишь из процедуры, этих sg больше нет, но ведь ты передал их главному массиву во время выполнения процедуры. Они именно передались и принадлежат главному массиву.

Автор: qwerty) 14.05.2007 19:39

Цитата(Tan @ 14.05.2007 16:14) *

Так ты же в этой процедуре изменяешь глобальный массив
 f[m]:=sg;
Либо я не так уловил вопрос.



Цитата(Tan @ 14.05.2007 16:37) *

У тебя есть глобальный массив, как написал volvo доступ к нему есть ото всюду, поэтому изменяя его в любом уровне программы ты изменишь его для всей программы. А эти значения sg внутри процедуры присваиваются массиву. После того как ты выходишь из процедуры, этих sg больше нет, но ведь ты передал их главному массиву во время выполнения процедуры. Они именно передались и принадлежат главному массиву.

во,спасибо большое,понял