9.2 Passagem por Valor
Program EXEMPLO;
Var
x: integer
Procedure Imp_asterist
(LARGURA:integer);
Var
I:integer;
Begin
For
I: = 1 to LARGURA do
Write(‘*’);
Writeln;
End; { de Imp_asterist
}
Begin
Imp_asterist (20);
X: = 30;
Imp_asterist ( X );
Imp_asterist ( X + 10 );
End. { de exemplo
}
|