Notas de aula
Tarefas
- Código para mostrar a tabuada de um número, com repetição
program tabuada;
uses crt;
var
num:real;
cont:integer;
begin
repeat
clrscr;
write('Digite um número para ver sua tabuada de multiplicação ');
read(num);
cont:=0;
while cont<10 do {temos aqui uma repetição dentro de outra}
begin
writeln(num:4:2,' x ',cont,' = ',(num*cont):6:2);
cont:=cont+1; {a cada repetição o cont aumenta +1}
end;
readkey; {parada para ver o resultado até ser teclado algo}
until num=0; {condição para parar a repetição principal}
clrscr;
write('Foi digitado o número 0! programa encerrado!');
readkey;
end.
- Código do algoritmo para cálculo do quadrado de um número
uses crt;
var numero : integer;
i : integer;
quadrado : integer;
begin
write ('Entre o númro para calcular seu quadrado: ');
readln(numero);
if numero > 0 then
begin
quadrado := 0;
for i := 1 to numero do
begin
quadrado := quadrado + i + (i -1);
end;
writeln('O quadrado de ',numero:2, ' é ', quadrado:6);
readkey();
writeln;
end;
end.
- Envie o código para cálculo do quadrado para valer de 6 a 8 pontos; complete o código com o laço de repetição (tabuadas) para subir a nota para a faixa de 8 a 10 pontos.
- Envie o código do algoritmo tabuadas para anotação de presença.
- O trabalho para nota deve ser entregue até o dia 2/abril/2024.
Comentários