Ir para conteúdo
Fórum Script Brasil
  • 0

[Pascal] Programa Tabuada


Edua®do

Pergunta

Galera, Boa Tarde!!!

Preciso de uma ajuda de vocês, estou fazendo um programinha para calcular tabuadas, pois no final ele pede para continuar até o usuário querer senão terminar o programa, meu código ficou assim, feito em pascal.

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.

Como eu faço para o programa continuar fazendo o loop até o usuário querer parar, tentei colocar um loop no começo não deu certo usei if mas tb não deu certo, por favor vocês podem me ajudar?

Desde já agradeço a atenção de todos.

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Voce vai precisar de dois loops nesse caso.

Supondo que a tabuada de 0 sai do programa. Veja como poderia ficar:

write('Entre com o numero da tabuada: ');
    read(a);
while a <> 0 do
    x:= 0;
    while x < 10 do
       begin
            x:= x + 1;
            w:= a * x;
            writeln( a, 'x' , x , '=' , w);
    end;
    write('Entre com o numero da tabuada: ');
    read(a);
end;

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...