Boa noite galera! Sou novo aqui no fórum e vou iniciar o curso de análise e desenvolvimento de sistemas. Eu estava querendo fazer um programa simples para calcular a raiz quadrada de um número com precisão de duas casas decimais, procurando pela internet achei o seguinte programa: { Calcula a raiz quadrada de um numero com duas casas decimais de precisão. }
program RaizQuadrada;uses crt;var Raiz, x: real;Achou: boolean;beginclrscr;write('Digite um numero : ');readln(x);writeln;if x < 0then writeln('Nao existe raiz quadrada de um numero negativo.')else beginAchou := false;Raiz := 0.01;while not(Achou) dobeginif (Raiz * Raiz) = xthen Achou := trueelse if (x - (Raiz * Raiz)) <= 0.01then Achou := trueelse Raiz := Raiz + 0.01;end;writeln('A raiz quadrada de ', x:10:2, ' e = ', Raiz:10:2);end;writeln;write('Pressione [Enter] para prosseguir.');readln;end.
Achei este programa muito grande pra uma tarefa tão simples, então fiz o programa desse outro jeito:
program Raiz_quadrada;varA: real;beginwrite('Digite um numero: ');readln(A);writeln;if (A < 0) thenwriteln('Não existe raiz quadrada de um numero negativo!')elsewriteln('A raiz quadrada de ',A:0:2,' é ',sqrt(A):0:2);writeln;write('Tecle <ENTER> para encerrar');readln();end.
Os dois programas fazem a mesma coisa, minha dúvida é a seguinte: Realmente tem que usar todas as funções do primeiro programa ou o segundo programa já está de bom tamanho?? Desde já agradeço pela ajuda!