Pascalzim
Var
a,n:real inicio a0 n0 mostre (¨digite um numero:¨) leia (n)
Se n > 0 então a 3.14 * quadrado (n) mostre (¨area do circulo =;a) fim-se mostre (¨acabou¨)
3- Elabore um algoritmo que receba o valor do salário de um funcionário, processe e mostre esse salário acrescido em 12%.
Var
sal,resp:real inicio resp 0 sal 0 mostre (¨digite o valor do salário do funcionario¨:) leia (salario)
Se salário < = 0 então mostre (¨valor do salário invalido¨:) senão resposta salario (sal*12/100) mostre (¨salario acrescido de 12%=;resposta¨) mostre (¨acabou¨) fim 4- Elabore um algoritmo que receba um número , processe e mostre se ele é par ou ímpar. Var nr ,resp:real
Inicio
Resp 0 nr0 mostre (¨digite um número¨) leia (m) se nr par resto der 1 por 2 e 2 e 0 então mostre (¨ o número é par)
Senão
Mostre (¨número ímpar¨)
Fim-se
Mostre(¨acabou)
Fim
5- Elabore um algoritmo que receba dois números.Processe e mostre o resultado do cálculo da área do retângulo.
Var
A,b:real
Resposta:inteiro
Inicio a0 b0 resp0 mostre (¨digite um valor para a maior que zero¨) leia (a) mostre (¨digite um valor para b maior que zero¨) leia (b) se nr 1=n2 então mostre (¨resultado invalido¨) senão resposta a*b mostre (área do retângulo = resposta) mostre (¨acabou¨)
Fim-se
Fim
6- Elaborar um algoritmo para receber o valor do raio de um círculo validar para que seja maior que zero.Logo depois processe o cálculo da área e mostrar o resultado.
Var
A,r:real
Begin
A:=0;
B:=0;