Resolvido Tabuada Pascal FOR, WHILE e REPEAT

Um dos primeiros exercícios de Pascal para se aprender como fazer é uma tabuada.

 

(conteúdo extraído do meu livro: Curso de Linguagem Pascal para Técnicos e Universitários, lançamento na metade de 2015)

 

Sempre importante lembrar a forma de uma tabuada, exemplo:

 

3 x 1 = 3

3 x 2 = 6

….

3 x 10 = 30

 

Como há vários tipos de pedidos por professores, então vamos a alguns exemplos.

 

1. Entre com um número e forneça a tabuada

 

Program Tabuada_1;
Uses CRT;
var
  i : Integer; // Contador
  n : Integer; // Número de entrada
Begin
  // Limpa a Tela
  ClrScr;
  // Entrada do número
  Write ('Entre com um número: ');
  ReadLn (n);
  // Tabuada
  For i := 1 To 10 Do
    WriteLn (n,' x ',i,' = ',n*i);
  //Pausa final
  ReadLn;
End.

 

Resultado:

 

 

2. Tabuada completa do 1 ao 10

 

Program Tabuada_2;
Uses CRT;
var
  i,j : Integer; //contadores
Begin
  // Limpa a Tela
  ClrScr;
  For i := 1 To 10 Do
    For j := 1 To 10 Do
      WriteLn (i,' x ',j,' = ',i*j);
  // Pausa final
  ReadLn;
End.
 

 

Resultado:

 

 

3. O mesmo alinhado

 

Program Tabuada_3;
Uses CRT;
var
  i,j : Integer; //contadores
Begin
  // Limpa a Tela
  ClrScr;
  For i := 1 To 10 Do
    For j := 1 To 10 Do
      WriteLn (i:2,' x ',j:2,' = ',i*j:3);
  // Pausa final
  ReadLn;
End.
 

 

Resultado:

 

 

 

Observação: no WriteLn as variáveis foram acrescidas de : (dois pontos) que significa alinhamento, no caso o i e j o valor máximo é 10 então foi colocado 2 de alinhamento, já no caso i*j tem como maior valor 100 e por isso o número 3 de alinhamento.

 

4 . Tabuada completa na tela

Program Tabuada_4;
Uses CRT;
var
  i,j : Integer; //contadores
Begin
  // Limpa a Tela
  ClrScr;
  // Tabuada do 1 ao 5
  For i := 1 To 10 Do
  Begin
    For j := 1 To 5 Do
       Write (j:2,'x',i:2,'=',i*j:3,' |');
    // Pula Linha
    WriteLn;
  End;
  WriteLn;
  // Tabuada do 6 ao 10
  For i := 1 To 10 Do
  Begin
    For j := 6 To 10 Do
       Write (j:2,'x',i:2,'=',i*j:3,' |');
    // Pula Linha
    WriteLn;
  End;
  // Pausa final
  ReadLn;
End.
 

 

Resultado:

 

 

 

5. Com WHILE

 

Esse é um pedido comum também e para que serve? Para estudar as estruturas de repetição

 

Program Tabuada_5;
Uses CRT;
var
  i : Integer; // Contador
  n : Integer; // Número para tabuada
Begin
  // Limpa a Tela
  ClrScr;
  // Entrada
  Write ('Entre com o número da tabuada:');
  ReadLn (n);
  // Pula Linha
  WriteLn;
  i := 1;
  While i <= 10 Do
  Begin
    WriteLn (n:2,' x ',i:2,' = ',i*n:-2);
    i := i + 1;
  End;
  // Pausa final
  ReadLn;
End.

 

Resultado:

 

 

Observação: na linha do WriteLn, o i*n tem o alinhamento –2. Isso é para alinhar a esquerda. Veja que nos outros exemplos o alinhamento fica a direita.

 

6. Com REPEAT

 

Program Tabuada_6;
Uses CRT;
var
  i : Integer; //Contador
  n : Integer; //Entrada
Begin
  //Limpa a Tela
  ClrScr;
  Write ('Entre com um número para tabuada: ');
  ReadLn (n);
  // Pula Linha
  WriteLn;
  // Valor inicial
  i := 1;
  Repeat
    WriteLn (n:2,' x ',i:2,' = ',n*i:-2);
    i := i + 1;
  Until i > 10;
  // Pausa Final
  ReadLn;
End.

 

Resultado:

 

 

Qualquer dúvida, entre em contato.