Como calcular a raiz quadrada em pascal

Chamamos de operadores matemáticos ou aritméticos o conjunto de símbolos que representa as operações básicas da matemática, a saber:

+ adição ; - subtração ; * multiplicação ; / divisão ;

Exemplos:

-2 + 2 ; ABC / 5 ; aula * ABC + XPTO – 8.

Construa um algoritmo que calcule a média aritmética entre quatro notas quaisquer fornecidas pelo usuário.

Program media; uses crt; var N1, N2, N3, N4: real; begin clrscr; writeln('Digite as 4 notas'); readln( N1, N2, N3, N4 ); writeln('A média do aluno é: ',(N1+N2+N3+N4)/4); readkey; end.

Existem comandos que executam funções matemáticas. Consulte a ajuda do compilador para uma lista detalhada. Dentre os principais temos:

DIV Retorna o quociente inteiro da divisão.

Sintaxe:

num_inteiro:=(num1)DIV(num2);

MOD Retorna o resto da divisão.

Sintaxe:

resto:=(num1)MOD(num2);

Exemplo: Faça um programa para ler 2 números inteiros, dividi-los e escrever o resto de sua divisão.

program resto; uses crt; var a,b,c:integer; begin clrscr; writeln('Digite 2 números inteiros'); readln(a,b); c:=(a)mod(b); writeln('O resto da divisão do número ',a,' pelo número ',b,' é ',c); readkey; end.

INT(x) – resulta a parte inteira de um número X.

FRAC(x) – resulta a parte fracionária de X.

ABS(x) – resulta o valor absoluto de X. Não importa se o número é negativo ou positivo, com ABS sempre retorna positivo.

SQR(x) – resulta no quadrado de X.

SQRT(x) – resulta na raiz quadrada de X (para X real não negativo)

Exemplos

(15)DIV(7) resulta 2 (15)MOD(7) resulta 1 INT(34.567) resulta 34 FRAC(546.34) resulta 34 ABS(-34) resulta 34 SQR(4) resulta 16 SQRT(64) resulta 8

sqr

Retorna o quadrado do argumento.

Sintaxe

function sqr ( x : < integer, real > ): < integer, real > ;

Exemplo

Program PascalZIM ;

begin

writeln( 'O quadrado de 5 = ', sqr(5) ) ;

writeln( 'A raiz quadrada de 2 = ', sqrt(2.0) ) ;

end.

Created with the Freeware Edition of HelpNDoc: Full featured Help generator

Olá! Já faz algum tempo que não atualizo meu blogger, e hoje estava dando uma olhada e vi uns comentários que não tinha visto e peço desculpa para os dois que pediram minha ajuda nesse poste, eu estava estudando e dei uma abandonada no meu blogger por falta de tempo. Mas eu fiz com muito temo de atraso, mas fiz o que ele pediu, um programa que extrai a raiz quadrada de um valor, e eleva o mesmo valor ao quadrado. Na verdade tem duas funções que faz esse trabalho, para raiz quadrada usa a função sqrt(x) “exibe a raiz quadrada de x, onde x pode ser qualquer variável”)e sqr(x) “eleva x2 ao quadrado, onde x pode ser qualquer variável”. Não vou explicar muito aqui porque já fiz isso como comentário, vou colocar o arquivo para download e também por o código logo abaixo.

//programa por Alessandro ribeiro da silva //curso técnico em programação de jogos digitais, formandos de 2011 pelo Instituto federal do Paraná em Telêmaco Borba //cursando técnico em informática voltado para web, formatura em 2012(se Deus quiser que acabe a greve dos funcionários federais) //alessandrozinco2009.blogspot.com, //Telêmaco Borba-PR, 26/06/2012 as 01:03 am Program Pzim ; var a,c : integer; //declacara uma variável do tipo inteiro var b: real; //declara uma variável do tipo real, obs: se declarar inteiro // mas receber um valor do tipo real, o programa da erro. Begin writeln('Digite um valor: '); //vai mostrar a mensagem pedindo um valor, esse // valor será do tipo inteiro readln(a); //recebe o valor do tipo inteiro digitado pelo usuário b:=sqrt(a); //função que extrai a raiz quadrado, mas retorna um valor do tipo real writeln('raiz quadrada de ',a,' eh: ',b); //exibe o valor da raiz quadrada, // obs.: se quiser exibir um valor inteiro use a função "Round(b)" sem asteriscos // por exemplo, sem ela o valor da raiz quadrada de 9 seria 3.000, com ela // exibe apenas 3 writeln; //serve apenas para pular uma linha c:= sqr(a); //eleva ao quadrado writeln; writeln(a,' elevado ao quadrado eh ',c); // observações: // write: escreve tudo na mesma linha, se tiver varias mensagem usando write será exibido todas na mesma linha // writeln: escreve cada mensagem e pula uma linha // read: da mesma forma que acima, ele le a entrada de dados e executa próxima sentença na mesma linha // readln: le a entrada de dados e executa a próxima sentença na linha seguinte // o ln no final do comando funciona como quebra de linha

End.

Aconselho a baixar o arquivo aqui, o codigo acima é meio confuso porque tem muitos comentários no meio.
Se quiser baixar o palcalzim que um ótimo compilador por sinal! Clique aqui Qualquer duvidas ou sugestões serão bem vindos.

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais