Menor número, maior número, soma e multiplicação [Pascal/Kylix]

Menor número, maior número, soma e multiplicação

Publicado por Santiago Staviski (última atualização em 13/11/2009)

[ Hits: 11.985 ]

Homepage: http://allenkonstanz.blogspot.com

Download questaovalendoponto01.pas

0 0

Denuncie Favoritos Indicar

O programa a seguir lê 10 números informados pelo usuário e em seguida informa como saída: o resultado da soma, resultado da multiplicação, o maior número e o menor número.

Esconder código-fonte

program questao01;
var contador: integer;
numero,soma,mult,maior,menor:real;
BEGIN
soma:=0;
numero:=0;
mult:=1;
for contador:=1 to 10 do begin
    Write('Entre com o ',contador,'º numero: ');
    read(numero);
   soma:=soma+numero;
   mult:=numero*mult;
   mult:=mult;
    if contador=1 then begin  
          maior:=numero;
          menor:=numero;
          end;
          
    if numero>maior then maior:=numero;
    if numero<menor then menor:=numero;
end;

writeln('As soma dos numeros eh: ',soma:0:2);
writeln('As multiplicação dos numeros eh: ',mult:0:2);
writeln('O maior numero eh: ',maior:0:2);
writeln('O menor numero eh: ',menor:0:2);
   
END.

Scripts recomendados

Equação de segundo grau

Script em Pascal/Kylix para controle de Locadoras sem salvar arquivos em disco

"Calculadora" utilizando Case

pares ou impares

dizer se o aluno passou ou nao

Comentários

[1] Comentário enviado por doradu em 26/02/2010 - 17:28h

o programa faz o q pretende

mas não entendi pq está na categoria internet

0 0

[2] Comentário enviado por Hernandez281092 em 07/04/2010 - 01:33h

tá blz, só que pra naum ter q ficar usando ALT+F5, pra voltar a tela e ver o resultado é bom usar "readkey" depois de inserir o "uses crt" no início do programa, fica mais legalzinho...;D.....mais prático e tb usar a seguinte estrutura pra saber quem é o maior e quem é o menor dos números dentro do "looping":

program xx;
uses crt;
var i:integer;
num,maior,menor,mult,soma:real;
begin
clrscr;
mult:=1;maior:=-9999;
soma:=0;menor:=9999;
for i:=1 to 10 do
begin
writeln('digite o número:');
readln(num);
mult:=(num*mult);
soma:=(soma+num);
if(num>maior) then
maior:=num;
if (num<menor) then
menor:=num;
end;
writeln('a multiplicação de todos ‚:',mult:7:2,#7);
writeln('a soma de todos ‚:',soma:7:2,#7);
writeln('o maior número ‚:',maior:7:2,#7);
writeln('o menor número ‚:',menor:7:2,#7);
readkey;
end.

0 0