Wikilivros

Pascal/Procedures: diferenças entre revisões

Explorar interativamente o histórico
(Ver alterações pendentes à versão publicada)
[edição não verificada][edição não verificada]
← Edição anteriorEdição posterior →
Conteúdo apagado Conteúdo adicionado
VisualTexto wiki
m Pascal: Procedures movido para Pascal/Procedures: Nova formatação...
Linha 1:
uses crt;
= Procedimentos =
{ O Procedimento faráfara a troca dos valores de duas variáveisvariaveis }▼
Tem as mesmas características que as funções apresentadas anteriormente, mas os procedimentos não retornam um valor.
Procedure Troca (Var Valor_1, Valor_2 : Integer);
Var Aux := Valor_1Integer;▼
 
Begin▼
'''Exemplo:'''
Aux := Valor_1;
▲ { O Procedimento fará a troca dos valores de duas variáveis }
Procedure Troca (Var Valor_1, Valor_2 := Integer)Valor_2;
Var AuxValor_2 := IntegerAux;
End;
 
▲ Begin
 
▲ Aux := Valor_1;
Var X, Valor_1Y := Valor_2Integer;
Begin▼
Valor_2 := Aux;
End clrscr;
writeln ( 'entre com o valor de x ' );
Var X,readln Y( :x Integer);
writeln (' entre com o valor de y' );
▲ Begin
readln X( :=y 2);
Troca (X, Y := 5);
TrocaWriteln ('Valor de X = ', YX);
Writeln ('Valor de XY = ', XY);
readkey;
Writeln ('Valor de Y = ', Y);
End.
 
 
Linha 27 ⟶ 29:
 
[[Categoria:Pascal]]
 
 
pronto para compilar no pascal
Obtido em "https://pt.wikibooks.org/wiki/Pascal/Procedures"