Lista de Introdução a Logica de Programação

1. Escreva um programa que realize arredondamentos de números utilizando a regra usual da matemática: se a parte fracionária for maior do que ou igual a 0,5, o número é arredondado para o inteiro imediatamente superior, caso contrário, é arredondado para o inteiro imediatamente inferior.

Program Questao_1; var num, fra:real;
Begin
writeln ('Digite um número real '); readln (num); fra :=frac(num); if fra>=0.5 then begin Writeln ('O numero arredondao é ', num-fra+1); readln; end else begin
Writeln ('O numero arredondao é ', num-fra); readln; end;

End.

2. Faça um programa que determine a data cronologicamente maior de duas datas fornecidas pelo usuário. Cada data deve ser fornecida por três valores inteiros, o primeiro representa o dia, o segundo o mês e o terceiro o ano.

Program Datas;

var d1,m1,a1,d2,m2,a2:integer; begin writeln('Insira um dia: '); readln(d1); Writeln('Insira um mês: '); readln(m1); writeln('Insira um ano: '); readln(a1); writeln('Insira um outro dia: '); readln(d2); writeln('Insira um outro mês: '); readln(m2); writeln('Insira um outro ano: '); readln(a2); if(a1>a2) then begin writeln('A primeira data é mais recente que a segunda.'); readln; if(a1m2) then begin writeln('A primeira data é mais recente que a segunda.'); readln; if(m1d2) then begin writeln ('A primeira data é mais recente que a segunda.'); readln; if(d1hora_F) then begin hora_F:= hora_F+24; end; min_D:=(min_F-min_I); hora_D:=(hora_F - hora_I); writeln('O jogo durou ', hora_D ,' horas e ', min_D, ' minutos'); readln End.

9. Faça um programa que receba o código correspondente ao cargo de um funcionário e seu salário atual e mostre o cargo, o valor do aumento e seu novo salário. Os cargos estão na tabela a seguir.
Código Cargo Percentual
1 Escriturário 50%
2 Secretário 35%
3 Caixa 20%
4 Gerente 10%
5 Diretor Não tem aumento

Program Questao_9; var sal, aum: real; cargo: integer;