Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- programa estudando;
- var
- inteiro: a, b;
- real: x, y;
- caracter: nome;
- inicio
- // Entrada de dados
- escreva ("Digite seu nome: ");
- leia (nome);
- escreva ("Digite um numero real: ");
- leia (x);
- escreva ("Digite outro numero real: ");
- leia (y);
- //Conversão de real para inteiro
- a <- (x div 1);
- b <- (y div 1);
- //Saida de dados
- escreva ("Olá ", nome, ". Bem vindo");
- escreva ("O 1º numero que voce digitou foi ", x, " e seu inteiro eh ", a, ".");
- escreva ("O 2º numero que voce digitou foi ", y, " e seu inteiro eh ", b, ".");
- //verificar qual é maior
- se (X>y) então
- inicio
- escreva ("O ", x, " eh maior que o ", y, ".");
- fim
- senão
- inicio
- se (y>x) então
- inicio
- escreva ("O ", y, " eh maior que o ", x, ".");
- fim
- senão
- inicio
- escreva (x, " eh igual a ", y, ".");
- fim;
- fim;
- //Verifica se é par
- se ((a mod 2) = (0)) então
- inicio
- escreva ("O ", a " eh par");
- fim
- senão
- inicio
- escreva ("O ", a " nao eh par");
- fim;
- se ((a mod 2) = (0)) então
- inicio
- escreva ("O ", a " eh par");
- fim
- senão
- inicio
- escreva ("O ", a " nao eh par");
- fim;
- //Operações simples
- escreva ("A soma de ", x, " e ", y, " eh igual a", x+y, ".");
- escreva ("A multiplicacao de ", x, " e ", y, " eh igual a", x*y, ".");
- escreva ("A soma de ", a, " e ", b, " eh igual a", a+b, ".");
- escreva ("A multiplicacao de ", a, " e ", b, " eh igual a", a*b, ".");
- //Função de exponenciação
- escreva (a, " elevado a ", b, " eh igual a ", exp(a,b);
- escreva (b, " elevado a ", a, " eh igual a ", exp(b,a);
- //Função de radiciação
- escreva ("A raiz quadarada de " a, " eh igual a ", rad(a));
- escreva ("A raiz quadarada de " b, " eh igual a ", rad(b));
- fim.
Add Comment
Please, Sign In to add comment