Pular para o conteúdo principal

Programa para calcular o maior e o menor de 3 números inteiros

Program Pzim ;
{Escreva um programa para calcular o maior e o menor
de três números inteiros.}
var
n1, n2, n3, maior, menor:integer; {varriaveis para receber os 3 numeros e o maior e o menor}
Begin
writeln('Digite o 1o. número : ');
read(n1);
writeln('Digite o 2o. número : ');
read(n2);
writeln('Digite o 3o. número : ');
readln(n3);
{compara dois a dois pra confirmar quem é o maior}
if ((n1 > n2) and (n1>n3)) then
begin { o primeiro com o 2º e o 3º}
maior:=n1;
end;
if ((n2 > n1) and (n2>n3)) then { o segundo com o 1º e o 3º}
begin
maior:=n2;
end;
if ((n3 > n1) and (n3>n2)) then {por ultimo o terceiro com o 1º e o 2º}
begin
maior:=n3;
end;

if ((n1 < n2) and (n1<n3)) then
begin
menor:=n1;
end;
if ((n2 < n1) and (n2<n3)) then {a mesma coisa com o menor}
begin
menor:=n2;
end;
if ((n3 < n1) and (n3<n2)) then
begin
menor:=n3;
end;

writeln(' o maior número é : ',maior,', e o menor é : ',menor); {mostra o resultado}

End.

Postagens mais visitadas deste blog

3 notas com media ponderada

Program Pzim ; {4- Escreva um programa que leia o código de um aluno e suas três notas. Calcule a média ponderada do aluno, considerando que o peso para a maior nota seja 4 e para as duas restantes, 3. Mostre o código do aluno, suas três notas, a média calculada e uma mensagem "APROVADO" se a média for maior ou igual a 5 e "REPROVADO" se a média for menor que 5. } var cod:integer; n1, n2, n3, nm1, nm2, nm3, media:real; Begin media:=0; writeln('Digite o código do aluno : '); read(cod); write('digite a 1o. nota : '); read(n1); write('digite a 2o. nota : '); read(n2); write('digite a 3o. nota : '); read(n3); {aproveitando a mesma estrutura para ordenar a maior nota, as outras duas não tem importançia na ordem, pois tem o mesmo peso} if ((n1 > n2) and (n1 > n3)) then begin nm1:=n1; nm2:=n2; nm3:=n3; end else if ((n2 > n1) and (n2 > n3)) then begin nm1:=n2; nm2:=n1; nm3:=n3; end else if ((n3 ...
Leia mais

Vetor ordem crescente

Program Pzim ; {recebe 10 numeros inteiros e ordena de forma crescente} var vet:array[1..10] of integer; aux,i,j:integer;  Begin  aux:=0;   for i:=1 to 10 do   begin   writeln('Preencha o vetor de 10 posições : ');   read(vet[i]);   end;       for i := 10 downto 2 do              {faz o for com i de 10 até 2, decrementando, isto é 10, 9, 8, ...}   begin   for j := 1 to i-1 do         {faz o for com j de 1 até a posição atual do i menos 1}   begin   if vet[j] > vet[j+1] then {se vet, na posição j, for maior que vet na posição j+1, faça}   begin   aux := vet[j]; {a var aux, recebe o valor de vet na posição j}   vet[j] := vet[j+1]; {vet na posição j, recebe o valor de vet na posição seguinte, que seria j + 1}   vet[j+1] := aux; {e vet na posição j mais 1, recebe o v...
Leia mais

Exercicio 4 de Heterogenea

Program Pzim ; {Faça um algoritmo que leia 7 produtos, contendo codigo, nome, quantidade, preço. No final, imprima os produtos que tenha mais do que 5 unidades.} type r_produto = record     cod:integer;     nome:string;     quant:integer;     preco:real; end; var     v_produto:array [1..3] of r_produto;     i, qmais5:integer;  Begin  qmais5:=0;     for i:=1 to 3 do         begin             writeln('ENTRE COM OS DADOS DOS PRODUUTOS');             writeln('_______________________________');             writeln(' ',I,'o. Produto ');             writeln('_______________________________');             writ...
Leia mais