Advertisement
Guest User

Untitled

a guest
Mar 4th, 2015
210
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 1.66 KB | None | 0 0
  1. Program Tabuadinha ;
  2. Var i: integer ;
  3.     T: integer;
  4.     sent: String;
  5.  Begin
  6.     // O digito do número escolhido pela mente
  7.     write('Insira o número da tabuada desejada: ');
  8.     readln(T);
  9.    
  10.     // Menu
  11.     writeln('********** MENU DA TABUADINHA **********');
  12.     writeln('Digite 1 e pressione Enter para Multiplicar');
  13.     writeln('Digite 2 e pressione Enter para Dividir');
  14.     writeln('Digite 3 e pressione Enter para Somar');
  15.     writeln('Digite 4 e pressione Enter para Subtrair');
  16.     writeln('********** MENU DA TABUADINHA **********');
  17.     writeln(' ');
  18.     write('Opção do menu ->');
  19.     // ler escolha do usuario
  20.     readln(sent);
  21.    
  22.     // Estrutura principal onde é formado a tabuada do número escolhido pela mente
  23.    
  24.     //opção de multiplicação
  25.     if (sent = '1') then
  26.                 begin    
  27.             for i:= 1 to 10 do
  28.               begin
  29.                 writeln(T, ' X ', i, ' = ', T*i);
  30.               end;
  31.           end;
  32.           //opção de divisão
  33.           if (sent = '2') then
  34.                 begin    
  35.             for i:= 1 to 10 do
  36.               begin
  37.                 writeln(T, ' / ', i, ' = ', T/i);
  38.               end;
  39.           end;
  40.           //opção de subtração
  41.           if (sent = '4') then
  42.                 begin    
  43.             for i:= 1 to 10 do
  44.               begin
  45.                 writeln(T, ' - ', i, ' = ', T-i);
  46.               end;
  47.           end;
  48.           //opção de soma
  49.           if (sent = '3') then
  50.                 begin    
  51.             for i:= 1 to 10 do
  52.               begin
  53.                 writeln(T, ' + ', i, ' = ', T+i);
  54.               end;
  55.           end;
  56.          
  57.  End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement