Como extrair raiz quadrada no pascal

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