Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program Tabuadinha ;
- Var i: integer ;
- T: integer;
- sent: String;
- Begin
- // O digito do número escolhido pela mente
- write('Insira o número da tabuada desejada: ');
- readln(T);
- // Menu
- writeln('********** MENU DA TABUADINHA **********');
- writeln('Digite 1 e pressione Enter para Multiplicar');
- writeln('Digite 2 e pressione Enter para Dividir');
- writeln('Digite 3 e pressione Enter para Somar');
- writeln('Digite 4 e pressione Enter para Subtrair');
- writeln('********** MENU DA TABUADINHA **********');
- writeln(' ');
- write('Opção do menu ->');
- // ler escolha do usuario
- readln(sent);
- // Estrutura principal onde é formado a tabuada do número escolhido pela mente
- //opção de multiplicação
- if (sent = '1') then
- begin
- for i:= 1 to 10 do
- begin
- writeln(T, ' X ', i, ' = ', T*i);
- end;
- end;
- //opção de divisão
- if (sent = '2') then
- begin
- for i:= 1 to 10 do
- begin
- writeln(T, ' / ', i, ' = ', T/i);
- end;
- end;
- //opção de subtração
- if (sent = '4') then
- begin
- for i:= 1 to 10 do
- begin
- writeln(T, ' - ', i, ' = ', T-i);
- end;
- end;
- //opção de soma
- if (sent = '3') then
- begin
- for i:= 1 to 10 do
- begin
- writeln(T, ' + ', i, ' = ', T+i);
- end;
- end;
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement