Programando Tabuada em Pascal
Turma: 867
Curso: Análise e Desenvolvimento de Sistemas
Tarefa – Aula dia 21/03/2014
Exercício 1 – Faça um algoritmo que leia 10 números e mostre o maior.
Program numero_maior ; var num ,num1,maior:integer; Begin maior:=0 ; for num1 := 1 to 10 do begin writeln('Informe um número qualquer e aperte a tecla Enter'); readln(num); if num> maior then maior:= num ; end; writeln('O maior número digitado foi ',maior); End.
Exercício 2 – Escolha um número e mostre a tabuada desse número assim:
Exemplo: Número escolhido 5
Imprimir:
1*5=5
2*5=10
3*5=15
4*5=20
5*5=25
5*6=30
5*7=35
5*8=40
5*9=45
5*10=50
Program tabuada ; var num,num1,result:integer; Begin writeln('TABUADA: Informe o número que você deseja obter a tabuada.'); readln(num); writeln('A tabuada que você deseja ter é a de ',num) ; for num1:= 1 to 10 do begin result:= num1*num; writeln( num1,' * ',num,' = ',result); end; End.
Exercício 3 – Faça a tabuada de todos os números automaticamente. Nenhuma leitura deverá ser feita.
Program tabuada_completa ; var num,num1:integer; Begin writeln('Tabuada completa de 1 até 10.'); writeln ('Atenção a tabuada irá ser visualizada de 3 em 3 .'); for num:= 1 to 3 do for num1:= 1 to 10 do writeln (num:2,'*',num1:2,'=', num*num1); writeln ('Prescione a tecla Enter para visualizar a tabuada de 4 ao 6.'); readln; clrscr; for num:= 4 to 6 do for num1:= 1 to 10 do writeln (num:2,'*',num1:2,'=', num*num1); writeln('Prescione a tecla Enter para visualizar a tabuada de 7 ao 10.'); readln;
clrscr; for num:= 7 to 10 do for num1:= 1 to 10 do writeln (num:2,'*',num1:2,'=', num*num1); End.
Obs: No exercício 3 o uso do comando clrscr foi devido ao compilador não exibir a tabuada