Rotinas - Parte 1

verifique a escotilha Botão azul posição 1 Olhe pelo visor Gire a manivela Botão azul posição 2 Gire a manivela Aperte o botão vermelho

RotinaPreparo()

Coloque a carne

verifique a escotilha Botão azul posição 1 Olhe pelo visor Gire a manivela Botão azul posição 2 Gire a manivela Aperte o botão vermelho

RotinaPreparo()

Procedimento RotinaPreparo()

Inicio

verifique a escotilha Botão azul posição 1 Olhe pelo visor Gire a manivela Botão azul posição 2 Gire a manivela Aperte o botão vermelho

FimProcedimento

Inicio

RotinaPreparo() Coloque a carne RotinaPreparo()

FimAlgoritmo

Prática 01: Detector de pesado

algoritmo "DetectorPesado"
var
   I: inteiro
   N, Pesado: caractere
   P, Mai: real
Procedimento Topo()
inicio
      LimpaTela
      Escreval("----------------------------------")
      Escreval(" D E T E C T O R  DE  P E S A D O ")
      Escreval(" Maior Peso ate agora: ", Mai, "Kg")
      Escreval("----------------------------------")
FimProcedimento
inicio
      Topo()
      Para I <- 1 ate 5 faca
           Escreva("Digite o nome: ")
           Leia(N)
           Escreva("Digite o peso de ", N, ": ")
           Leia(P)
           Se (P > Mai) entao
                 Mai <- P
                 Pesado <- N
           FimSe
           Topo()
      FimPara
      Topo()
      Escreval("A pessoa mais pesado foi ", Pesado, ", com ", Mai, " quilos.")
fimalgoritmo

Passagem de parâmetro

Tipo 1: por valor

Procedimento Soma(A, B: inteiro) Inicio

Escreval(”Recebi o valor”, A) Escreval(”Recebi o valor”, B) Escreval(”A soma vale”, A+B)

FimProcedimento

algoritmo "FazSomaProcedimento"
var
  X, Y: inteiro
Procedimento Soma(A, B: inteiro)
inicio
   Escreval("Recebi o valor ", A)
   Escreval("Recebi o valor ", B)
   Escreval("A soma entre os dois e ", A + B)
FimProcedimento
inicio
   X <- 5
   Y <- 3
   Soma(X, Y)
fimalgoritmo

Prática 02: verificador par/ímpar

algoritmo "ParOuImparProcedimento"
var
    N: inteiro
Procedimento ParOuImpar(V: inteiro)
inicio
     Se (V % 2 = 0) entao
        Escreval("O numero ", V, " e PAR")
     senao
        Escreval("O numero ", V, " e IMPAR")
     FimSe
FimProcedimento
inicio
       Escreva("Digite um numero: ")
       Leia(N)
       ParOuImpar(N)
fimalgoritmo

Escopo

----------------------------------------------------------------------------------------
Algoritmo "testeEscopo"
var                                                              Global
	N1, N2: inteiro
----------------------------------------------------------------------------------------
Procedimento Rotina(A, B: inteiro)
var
	X, Y: inteiro
inicio                                                 Local
	X <- A
	Y <- B
	Escreva(N1, N2, A, B, X, Y)
FimProcedimento
----------------------------------------------------------------------------------------
inico
	N1 <- 5
	N2 <- 3               
	Rotina(N1, N2)                                             Global
	Escreva(N1, N2, A, B, X, Y)
FimAlgoritmo
----------------------------------------------------------------------------------------