Programação
Por: eduardamaia17 • 13/2/2018 • 901 Palavras (4 Páginas) • 250 Visualizações
...
END
ELSE
BEGIN
Writeln ( ‘O aluno ’,nome,‘ foi REPROVADO e sua media foi ’, media:2:2 );
END;
READKEY;
END.
4) Faça um algoritmo que leia 3 números inteiros e imprima o menor deles.
Program Exercicio4;
Uses CRT;
VAR
N1, N2, N3: integer;
BEGIN
Writeln( ‘Informe primeiro numero: ’ );
Readln ( N1 );
Writeln( ‘Informe o segundo numero: ’ );
Readln ( N2 );
Writeln( ‘Informe o terceiro numero: ’ );
Readln ( N3 );
IF ( N1 AND ( N1 THEN
BEGIN
Writeln ( ‘O menor valor e o primeiro numero’, N1 );
END
ELSE
BEGIN
IF ( N2 AND ( N2 THEN
BEGIN
Writeln ( ‘O menor valor e o segundo numero’, N2 );
END
ELSE
BEGIN
Writeln ( ‘O menor valor e o terceiro numero’, N3 );
END;
END;
READKEY;
END.
5) Dados três valores distintos, fazer um algoritmo que, após a leitura destes dados coloque-os em ordem
crescente.
Program Exercicio5;
Uses CRT;
VAR
A, B, C, D: integer;
BEGIN
Writeln( 'Informe primeiro valor: ' );
Readln ( A );
Writeln( 'Informe o segundo valor: ' );
Readln ( B );
Writeln( 'Informe o terceiro valor: ' );
Readln ( C );
IF( A THEN
Begin
IF ( B THEN
Begin
Writeln ( A,' - ',B,' - ',C);
End
ELSE
Begin
Writeln ( A,' - ', C, ' - ', B );
End;
End
ELSE
Begin
IF ( B THEN
Begin
IF ( A THEN
Begin
Writeln ( B,' - ', A,' - ',C);
End
ELSE
Begin
Writeln ( B,' - ', C,' - ',A);
End;
End
ELSE
Begin
IF ( C THEN
Begin
IF ( B THEN
Begin
Writeln ( C,' - ', B,' - ',A);
End
ELSE
Begin
Writeln ( C,' - ', A,' - ',B);
End;
End
ELSE
Begin
Writeln ( A,' - ', C,' - ',B);
End;
End;
End;
READKEY;
END.
6) Faça um algoritmo que leia dois valores inteiros digitados pelo usuário e some apenas os números pares e positivos
Program Exercicio6;
Uses CRT;
VAR
valorA, valorB, soma: integer;
BEGIN
Writeln( ‘Informe o valor de A: ’ );
Readln ( valorA );
Writeln( ‘Informe o valor de B: ’ );
Readln ( valorB );
IF ( valorA > 0 ) AND ( valorA AND ( valorB > 0 ) AND ( valorB THEN
BEGIN
IF ( ( valorA mod 2 ) = 0 ) AND ( ( valorB mod 2 ) = 0 ) THEN
BEGIN
Writeln ( ‘A soma dos inteiros e
...