Algorítimos

algoritmo "ex25"
// Função : Faça um algoritmo que leia dois números e identifique se são iguais ou diferentes. Caso eles sejam iguais imprima // uma mensagem dizendo que eles são iguais. Caso sejam diferentes, informe qual número é o maior, e uma // mensagem que são diferentes.
// Autor :
// Data : 1/12/2010
// Seção de Declarações var num1, num2: inteiro

inicio
// Seção de Comandos escreva("Digite o primeiro número: ") leia(num1) escreva("Digite o segundo número: ") leia(num2) se num1 = num2 entao escreval("Os números são iguais!") senao se num1 > num2 entao escreval("O número",num1," é maior que o número",num2) escreval("Eles são diferentes!!!") senao escreval("O número",num2," é maior que o número",num1) escreval("Eles são diferentes!!!") fimse fimse fimalgoritmo

disalgoritmo "valores"
// Função :
// Autor :
// Data : 23/05/2014
// Seção de Declarações var n1,n2,n3,n4: real inicio escreva(primeiro valor 1)
Leia (v1) escreva ( segundo valor 2) leia (v2) escreva (terceiro valor 3) leia (v3) escreva (quarto valor 4) leia (v4) escreval ( v1+v2+v3+v5)

algoritmo "ex40"
// Função :
// Autor :
// Data : 1/12/2010
// Seção de Declarações var mat1: vetor[1..4,1..4] de inteiro mat2: vetor[1..4,1..4] de inteiro x, y: inteiro soma1, soma2: inteiro

inicio
// Seção de Comandos

// Recebimento dos valores da matriz para x de 1 ate 4 faca para y de 1 ate 4 faca escreva("Digite o valor",x,"-",y,": ") leia(mat1[x,y]) fimpara fimpara // Troca entre as posições entre duas matrizes para x de 1 ate 4 faca mat2[1,x]