Pagina anteriorIndiceProxima pagina

Algoritmos Computacionais

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 }

     


Pagina anteriorIndiceProxima pagina

araujo@eng.uerj.br