(Resolvido) Exercício de recursividade em pascal.

[Kingflare]

Olá pessoal,boa tarde! Tudo bem ? Estou com umas dúvidas em pascal e gostaria de umas ajudas. Tenho o seguinte exercício:

Desenvolva uma pequena aplicação em Pascal que leia do teclado um inteiro n, maior ou igual a 1, e que

e que apresente linhas dessa forma:

1 1 1 1 1

4 4 4 4

9 9 9

16 16

25

Dessa forma eu já consegui fazer usando comandos de repetição, todavia o terceiro exercício pede que façamos esse mesmo exercício usando recursividade(sem repetição), não tenho muita ideia de como poderia começar, alguém poderia me dar uma ideia?

Segue o código da primeira aplicação

program quuest1 (input{teclado}, output{video});

uses crt;

var
     n:integer;

procedure esc_linhas(n{e}:integer);
var
     i,t,j :integer;

  begin
       t:=n;
       n:=t-(n-1);
       for i := t downto 1 do

  begin

       for j:= 1 to i do
       begin
       write(output, sqr(n),'   ');
       end;
       writeln;
       n:=n+1;
end;
end;

begin
     writeln('Nome do Aluno: Beto');
     writeln('Disciplina: Fundamentos de programaçao');
     writeln('Primeira Avaliaçao a distancia');
     writeln('__________________________________________________');
     writeln('Questao 1');

     write(output,'Digite um numero inteiro maior ou igual a 1: ');
     read(input,n);
     if n>=1 then
        esc_linhas(n)
     else
         writeln(output,' Somente números maiores ou igual a 1 são aceitos');
readkey;

end.

Editado Agosto 25, 2014 por Kingflare

[Jhonas]

use o comando goto

exemplos

http://www.tutorialspoint.com/pascal/pascal_goto_statement.htm

http://www.dcc.ufrj.br/~jonathan/docsPascal/apostila/capitulo4.html

abraço

[Kingflare]

Olá, obrigado pela sugestão! Acho que deu certo!