Desenvolver Tabuada!

[Edua®do]

Galera, Boa Noite!!!

Preciso de uma ajuda, estou fazendo um exercicio para desenvolver uma tabuada e no final ele pede para continuar até o usuário querer parar, ou seja teria que ter uma frase no final dizendo se ele queria continuar a fazer outra tabuada sim ou não se sim fazer noavamente senão finalizar o programa, meu código ficou assim:

program Tabuada;
uses crt;
var
  a,x,w: integer;
  
begin
  clrscr;
write('Entre com o numero da tabuada: ');
    read(a);
    while x < 10 do
    begin
    x:= x + 1;
    w:= a * x;
    writeln( a, 'x' , x , '=' , w);
    end;
    readkey;
end.

Até aqui tudo bem pelo menos ele faz a tabuada uma vez, como poderia fazer para ele continuar fazendo até o usuário querer parar?

Por favor quem puder ajudar agradeço!!!

Abraços!!!!

Editado Outubro 27, 2009 por kuroi
Adicionar tag CODE

[Bruno Péterson]

Olá Edua®do,

Uma forma de resolver seria criando uma variável no início como 'c', junto com 'a', 'x' e 'w'. Então você colocaria um valor para ela (depende da sua lógica) como 1. Depois colocaria um while como no exemplo abaixo:

program Tabuada;
uses crt;
var
a,x,w,c: integer;

begin
  clrscr;
  c:=1; // Coloco valor na variável c.
  while c == 1 do
  begin
    clrscr;
    write('Entre com o numero da tabuada: ');
    read(a);
    while x < 10 do
    begin
      x:= x + 1;
      w:= a * x;
      writeln( a, 'x' , x , '=' , w);
    end;
    write('Deseja entrar com outro número? 1 Sim ou 2 Não ');
    read(c);
    x:=0; // caso precise zerar a variável, faça isso aqui.
  end;
readkey;
end;

Bem, enquanto o usúario digitar 1 na pergunta 'Deseja entrar com outro número?', o programa ficará rodando, quando digitar 2, ou qualquer outro número, sairá.

Caso eu tenha errado na forma de escrever o código me desculpe, pois eu não conheço a linguagem, mas creio que a lógica está correta.

Abraço,

[Pascal Man]

program Tabuada;
uses crt;
var
  a,x,w: integer;
  op: char;
  
begin
  repeat
    clrscr;
    write('Entre com o numero da tabuada: ');
    read(a);
    while x < 10 do
    begin
      x:= x + 1;
      w:= a * x;
      writeln( a, 'x' , x , '=' , w);
    end;
    write('Deseja fazer novamente? (s/n): ');
    readln(op);
  until(op = 'n');
  readkey;
end.

[Kelemo]

Faça do script uma função recursiva e pronto :D