Programação
Por: Juliana Raymundo • 17/5/2016 • Trabalho acadêmico • 2.190 Palavras (9 Páginas) • 172 Visualizações
Programação 1 - Técnico em Mecatrônica
Exercícios
Essa lista será desenvolvida na aula de hoje no caderno e, na próxima aula será desenvolvida no Laboratório.
1) Faça um algoritmo que leia os valores A, B, C e diga se a soma de A + B é menor que C.
Program Exercicio1;
Uses CRT;
VAR
valorA, valorB, valorC, soma: integer;
BEGIN
Writeln( ‘Informe o valor de A: ’ );
Readln ( valorA );
Writeln( ‘Informe o valor de B: ’ );
Readln ( valorB );
Writeln( ‘Informe o valor de C: ’ );
Readln ( valorC );
Soma := valorA + valorB;
IF ( soma < valorC ) THEN
BEGIN
Writeln ( ‘A soma dos valores de A e B é MENOR do que o valor de C’ );
END
ELSE
BEGIN
Writeln ( ‘A soma dos valores de A e B é MAIOR ou IGUAL do que o valor de C’ );
END;
READKEY;
END.
2) Faça um algoritmo que leia dois valores inteiros A e B se os valores forem iguais deverá se somar os
dois, caso contrário multiplique A por B ao final do calculo atribuir o valor para uma variável C.
Program Exercicio2;
Uses CRT;
VAR
valorA, valorB, valorC : integer;
BEGIN
Writeln(‘Informe o valor de A: ’);
Readln (valorA);
Writeln(‘Informe o valor de B: ’);
Readln (valorB);
IF ( valorA = valorB) THEN
BEGIN
valorC := valorA+valorB;
Writeln ( ‘Os valores sao iguais. A soma do valor de A e B e: ’, valorC );
END
ELSE
BEGIN
valorC := valorA*valorB;
Writeln ( ‘Os valores sao diferentes. A multiplicacao do valor de A e B e : ’, valorC );
END;
READKEY;
END.
3) Faça um algoritmo que leia um nome e três notas de uma disciplina de um aluno e ao final escreva o
nome do aluno, sua média e se ele foi aprovado a média é 8.
Program Exercicio3;
Uses CRT;
VAR
notaA, notaB, notaC, media: real;
nome: string;
BEGIN
Writeln( ‘Informe o nome do aluno: ’ );
Readln ( nome );
Writeln( ‘Informe a primeira nota: ’ );
Readln ( notaA );
Writeln( ‘Informe a segunda nota: ’ );
Readln ( notaB );
Writeln( ‘Informe a terceira nota: ’ );
Readln ( notaC );
media := ( notaA + notaB + notaC )/3;
IF ( media >= 8 ) then
BEGIN
Writeln ( ‘O aluno ’,nome,‘ foi APROVADO e sua media foi ’, media:2:2 );
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 < N2 ) AND ( N1 < N3 ) THEN
BEGIN
Writeln ( ‘O menor valor e o primeiro numero’, N1 );
END
ELSE
BEGIN
IF ( N2 < N1 ) AND ( N2 < N3 ) 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: ' );
...