Lista De Exerc Cios De Repeti O 1 2 3

Estrutura de repetição

1. Construa um algoritmo que receba 10 números, calcule o quíntuplo de cada um e mostre o resultado.
Program quinto ; uses crt; var numero, resultado, contador :integer;
Begin
for contador:= 1 to 10 do begin write(contador,') digite o numero '); readln(numero); resultado := numero * 5; writeln('O quíntuplo do numero ',numero,' e ', resultado); end;
End.
2. Uma Empresa de Energia Elétrica calcula o valor da conta de luz de acordo com o consumo em Kw/h. Faça o algoritmo que receba o número da conta, a leitura anterior e a leitura atual de 100 usuários, calcule o valor a ser pago, sabendo que a tarifa do Kw/h é de 0.20725. Mostre o número da conta, o valor da conta e o consumo de luz de cada usuário.
Program exer2; uses crt; var conta, usuarios :integer; leituraAnterior, leituraAtual, valorpago, tarifa :real;
Begin
tarifa := 0.20725; for usuarios := 1 to 3 do begin writeln('digite o numero da conta de energia'); read(conta); writeln('digite a leitura anterior'); read(leituraAnterior); writeln('digite a leitura altual'); read(leituraAtual); valorpago := (leituraAtual - leituraAnterior)* tarifa; writeln('o valor a ser pago e de ',valorpago); end; end.

3. Construa o fluxograma e o algoritmo para somar os números recebidos. O algoritmo encerra quando digitado o número zero.

Program somatorio;
Uses CRT;
Var numX, soma :integer;
Begin
writeln ('informe o numero para somar ou zero para sair'); readln (numX); while numX <> 0 do begin soma := soma + numX; writeln ('informe um mumero para somar ou zero para sair'); read (numX); end; writeln ('O somatorio dos mumeros digitados: ',soma);
End.