Obtendo o quadrado de um número (n) positivo através da soma dos n primeiros números ímpares em Pascal

Program NUMERO_AO_QUADRADO;
uses crt;
var
numero, quadrado, impar, i: integer;
begin

     // Site: http://programjm.blogspot.com.br/
     // Autor: João Matheus Santos Assis

     // Inicializando as variáveis.
     impar := 1;
     numero := -1;


     // Garantindo que o valor da variável número irá ser maior ou igual a zero.
     while (numero < 0) do begin
           write ('Numero: ');
           readln(numero);
     end;



     for i := 1 to numero do begin
         quadrado := quadrado + impar;
         impar := impar + 2;
     end;


     // Exibindo o resultado.
     writeln(numero ,' ao quadrado: ', quadrado);

readkey;
end.



Palavras-Chaves: Quadrado, Soma, Número, Positivo, Ímpares, Pascal.


Artigos relacionados em Pascal:

• Calculando o IMC em Pascal
• Quadrado e Cubo dos números entre 1 e 20 em Pascal.
• Programa que imprimi os divisores de n entre A e B em Pascal.
• Programa que calcula o fatorial de um número em Pascal
• Programa que verifica se um número é primo em pascal
• Calculadora Simples em Pascal
• Resolvendo Sistemas de Equações do Primeiro Grau com Duas Incógnitas em Pascal

Feito no Dev-Pascal 1.9.2 | Executável