Wikilivros

Pascal/Procedures: diferenças entre revisões

Explorar interativamente o histórico
(Ver alterações pendentes à versão publicada)
[edição verificada][edição verificada]
← Edição anteriorEdição posterior →
Conteúdo apagado Conteúdo adicionado
VisualTexto wiki
Rejeitou a última alteração do texto (de 177.132.92.72) e reverteu para a edição 185880 de Helder.wiki.bot
Colocada seção (source) para realce de código + mantida a coerência maiúscula/minúscula no código...
Linha 1:
<source lang="pascal">
uses crt;
{ O Procedimento fará a troca dos valores de duas variaveis }▼
Procedure Troca (Var Valor_1, Valor_2 : Integer);
Var Aux : Integer;
 
▲{ {O Procedimento fará a troca dos valores de duas variaveis }
Begin
procedure troca(var valor_1, valor_2: integer);
Aux := Valor_1;▼
var Valor_1 aux:= Valor_2integer;
begin
Valor_2 := Aux;▼
▲ Auxaux := Valor_1valor_1;
End;▼
valor_1 := valor_2;
▲ Valor_2valor_2 := Auxaux;
▲ Endend;
 
var x, y: integer;
 
begin
Var X, Y : Integer;
Begin
clrscr;
writeln ( 'entreEntre com o valor de x :' );
readln ( x );
writeln (' entreEntre com o valor de y:' );
readln ( y );
Troca troca(Xx, Yy);
Writeln writeln('Valor atual de Xx = ', Xx);
Writeln writeln('Valor atual de Yy = ', Yy);
readkey;
Endend.
</source>
 
 
'''Notas:'''
* A palavra reservada **Var**<code>var</code>, será devidamente melhor apresentada na seção de passagem de parâmetros.
 
{{AutoCat}}
 
 
pronto para compilar no pascal
Obtido em "https://pt.wikibooks.org/wiki/Pascal/Procedures"