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

Soma da sequencia (n * n) + 1

Program Pzim ; Var x,num,soma,soma2:integer; Begin     Writeln('Digite um numero maior que ZERO :');              //solicita que seja digitado um numero     Read(Num); // lê o número     If num<=0 then //se o número for invalido recusa     Write ('Número digitado invalido, digite um mumero maior que zero') // exibe a mensagem     else                                    For x:=1 to num do                         //faz de 1 até o numero         Begin            ...
Leia mais

Exercicio 2 com matriz

Program Pzim ; {2. Faça um algoritmo em que o usuario informe os valores para uma matriz 4x4  e em seguida efetive a soma dos valores que estão abaixo da diagonal secundária. O algoritmo deve mostrar os valores que estão abaixo da diagonal secundária e sua soma. Ex.: 1-5-2-2 7-5-3-2 8-4-6-1 5-4-3-1 Valores a serem usados, mostrados e somados: - - - - - - -2 - -6-1 -4-3-1 } var m:array[1..4,1..4] of integer; i,j, soma:integer;  Begin  for i:=1 to 4 do   begin   for j:=1 to 4 do   begin writeln('Digite a matriz : ');          //recebe os elementos da matriz readln(m[i,j]);   end;   end; for i:=1 to 4 do   begin   for j:=1 to 4 do   begin   if ((i+j)>= 6) then                 // se i+j >= 6, = condição para o elemento pertencer   begin               ...
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