Raiz quadrada/quadrado de um numero

[Gil]

Hoje venho ensinar mais um pouco sobre o nosso amigo pascal.
Desta vez vou explicar como ler um numero e sair a raiz quadrada e o quadrado do mesmo.

Vamos começar:
Para começar vamos por o já habitual código,já sabe sem aspas excepto nos wirteln:

"program raizquadrado;
uses crt;"

Agora as variáveis:

"var a,raiz,qua:real;"

A gora o programa em primeiro ler a variável a, em seguida calcular o raiz e o quadrado e por fim escrever os resultados:

"begin
writeln('Insira o valor de a');
readln(a);
raiz:=sqrt(a);
qua:=(a*a);
writeln('A raiz quadrada e:',raiz:10:2);
writeln('O quadrado e: ',qua:10:2);"

Não sei se notaram mas usei um novo código "sqrt", o sqrt e uma função do pascal que calcula a raiz quadrada de uma variável ou numero.

para finalizar o código vou por:
"readkey;
end."

Bem cheguemos ao fim de mais uma aula sobre pascal.

Esta aqui o link do código e do executável:

Download

[Rui]

(08-03-2009 07:20 PM)Gil Escreveu:  Hoje venho ensinar mais um pouco sobre o nosso amigo pascal.
Desta vez vou explicar como ler um numero e sair a raiz quadrada e o quadrado do mesmo.

Vamos começar:
Para começar vamos por o já habitual código,já sabe sem aspas excepto nos wirteln:

"program raizquadrado;
uses crt;"

Agora as variáveis:

"var a,raiz,qua:real;"

A gora o programa em primeiro ler a variável a, em seguida calcular o raiz e o quadrado e por fim escrever os resultados:

"begin
writeln('Insira o valor de a');
readln(a);
raiz:=sqrt(a);
qua:=(a*a);
writeln('A raiz quadrada e:',raiz:10:2);
writeln('O quadrado e: ',qua:10:2);"

Não sei se notaram mas usei um novo código "sqrt", o sqrt e uma função do pascal que calcula a raiz quadrada de uma variável ou numero.

para finalizar o código vou por:
"readkey;
end."

Bem cheguemos ao fim de mais uma aula sobre pascal.

Esta aqui o link do código e do executável:

Download

---

Este aqui deu-me muito que fazer xD

[Gil]

Vala podia ser pior... LOL