You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
6) Escreva um algoritmo em PORTUGOL que leia um número e imprima a raiz quadrada<br />
do número caso ele seja positivo ou igual a zero e o quadrado do número caso ele seja<br />
negativo.<br />
algoritmo L2P06;<br />
var<br />
real: NUM;<br />
início<br />
imprima("Digite um numero: ");<br />
leia(NUM);<br />
se ( NUM >= 0 ) então<br />
imprima("Raiz quadrada: ", raiz(NUM) );<br />
senão<br />
imprima("Quadrado: ", NUM ** 2 );<br />
fim-se<br />
fim<br />
program l2p06;<br />
var<br />
NUM: real;<br />
begin<br />
write('Digite um numero: ');<br />
readLn(NUM);<br />
if ( NUM >= 0 ) then<br />
writeLn('Raiz quadrada: ', SqRt(NUM):5:2 )<br />
else<br />
writeLn('Quadrado: ', NUM*NUM:5:2 );<br />
end.<br />
NUM = input('Digite um numero: ');<br />
if ( NUM >= 0 )<br />
fprintf(1,'Raiz quadrada: %f\n', sqrt(NUM));<br />
else<br />
fprintf(1,'Quadrado: %f\n', NUM^2);<br />
end<br />
<strong>UFMG</strong> – ICEx – <strong>DCC</strong> – Programação de Computadores – 2º. Sem 2005 – David Menoti 6