Dado um número x, fazer um programa para calcular e exibir o valor da função y
Para x < 0
y = 1/x
Para x = 0
Não há função
Para x > 0
y = √x / y
Pseudocódigo:
programa exercicio20 var x, y : real; inicio leia x; se (x < 0) entao y ← 1 / x; senao se (x > 0) entao y ← raiz(x) / x; senao se (x = 0) entao escreva "Não ha funcao" fim_se; fim_se; fim_se; escreva y; fim.
Pascal:
// Autor: Rafael Oliveira
// Data: 24/03/2014
Program exercicio20;
uses crt;
var
x, y : real;
Begin
writeln('Insira um Numero');
readln(x);
if (x < 0) then
y := 1/x
else
if (x > 0) then
y := sqrt(x)/x
else
if (x = 0) then
writeln('Nao ha funcao');
writeln('y = ', y);
writeln('Pressione para fechar');
readkey;
End.