exercicio 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