ALGORÍTMO E PROGRAMAÇÃO

Pascal: Exercícios de Seleção – exemplo de solução

1. Escrever um programa para ler dois valores numéricos e apresentar a diferença do maior pelo menor.

program exercicio1;

var

a,b,dif:real;

begin

write('forneca o primeiro numero: ');

readln(a);

write('forneca o segundo numero: ');

readln(b);

if a>b

then dif:=a-b

else dif:=b-a;

writeln('a diferenca eh: ',dif:1:5);

readln;

end.

2. Faça um programa que leia um número inteiro e mostre uma mensagem indicando se este número é par ou ímpar e se é positivo ou negativo.

program exercicio2;

var

a:integer;

begin

write('forneca o numero: ');

readln(a);

if a=0

then writeln('o numero eh zero')

else begin

if a mod 2 = 0

then writeln('o numero eh par')

else writeln('o numero eh impar');

if a>0

then writeln('o numero eh positivo')

else writeln('o numero eh negativo');

end;

readln;

end.

3. Escrever um programa para ler dois números. Se os números forem iguais mostrar a mensagem: “Números iguais” e encerrar a execução; caso contrário, mostrar o de maior valor, acompanhando pela mensagem “é o maior número”.

program exercicio3;

var

n1,n2:real;

begin

write('forneca o primeiro numero: ');

readln(n1);

write('forneca o segundo numero: ');

readln(n2);

if n1=n2

then writeln('numeros iguais')

else if n1>n2

then writeln(n1:1:5, ' eh o maior')

else writeln(n2:1:5, ' eh o maior');

readln;

end.

4. Escrever um programa para ler e imprimir três números. Se o primeiro for positivo, imprimir sua raiz quadrada, caso contrário, imprimir o seu quadrado; se o segundo número for maior que 10 e menor que 100, imprimir a mensagem: “Número está entre 10 e 100 – intervalo permitido”; se o terceiro número for menor que o segundo, calcular e imprimir a diferença entre eles, caso contrário, imprimir o terceiro número adicionado de 1.

program exercicio4;

var

n1,n2,n3,aux:real;

begin

write('forneca o primeiro numero: ');

readln(n1);

write('forneca o segundo numero: ');

readln(n2);

write('forneca o terceiro numero: ');

readln(n3);

writeln('numero lidos: ',n1:1:5,' ',n2:1:5,' ',n3:1:5);

if n1>0

then begin

aux:=sqrt(n1);

writeln('raiz quadrada do primeiro: ',aux:1:5)

end

else begin

aux:=n1*n1;

writeln('quadrado do primeiro: ',aux:1:5);

end;

if (n2>10) and (n2<100)

then writeln('segundo numero esta entre 10 e 100 - intervalo permitido');

if n3<n2

then begin

aux:=n2-n3;

writeln('diferenca: ',aux:1:5);

end

else begin

aux:=n3+1;

writeln( 'terceiro mais um: ',aux:1:5);

end;

readln;

end.

5. Elabore um programa que, dada a idade de um nadador, classifique-o em uma das seguintes categorias:

• Infantil A: 5 a 7 anos;

• Infantil B: 8 a 10 anos;

• Juvenil A: 11 a 13 anos;

• Juvenil B: 14 a 17 anos;

• Sênior: maiores de 18 anos.

program exercicio5;

var

idade:integer;

begin

write('forneca a idade do atleta: ');

readln(idade);

if idade<5