Algoritmos

Ler um número e se ele for maior que 20 exibir a metade do número e se for menor exibir o dobro

Pseudocódigo:

programa exercicio11
var
   numero : real;
inicio
   leia numero;
     se (numero > 20) entao
        numero ← ( numero / 2)
     senao
        numero ← ( numero * 2 );
     fim_se;
 escreva numero;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 20/03/2014
Program exercicio11;
 uses crt;
 var
 numero : real;
 Begin
 writeln('Insira um número');
 readln(numero);
 	if (numero > 20) then
 	  numero := (numero / 2)
 	  else
 	  	numero := (numero * 2);
 	writeln('Numero = ', numero:0:1);
 writeln('Pressione para fechar');
 readkey;  
End.

Etiquetas

Artigos relacionados

Adblock detectado

Por favor, considere apoiar-nos, desativando o seu bloqueador de anúncios