Exercicios De Introdu O A Program O Pascal

8 -Faça um algoritmo que leia o tempo de duração de um evento em uma fábrica expressa em segundos e mostre-o expresso em horas, minutos e segundos:

Program Pzim ;
Var
N, H, M, S, R: integer;
Begin
write('Escreva o tempo em segundos: '); read(N); H:= N div 3600;
R:= N mod 3600;
M:= R div 60;
S:= R mod 60; writeln; write(H,' hora(s) '); write(M,' minuto(s) '); write(S,' segundo(s).');

End.
9- Escreva um algoritmo que leia 3 números inteiros e mostre o maior deles.

Program Pzim ;
Var
A,B,C: integer;
Begin
write('A = ');
READ(A);
write('B = ');
READ(B);
write('C = ');
READ(C);

IF ((A>B) AND (A>C)) THEN
WRITE (A, ' eh o maior numero')
ELSE
IF (B>C) THEN
WRITE (B, ' eh o maior numero')
ELSE
WRITE (C, ' eh o maior numero');
End.

10- Escreva um algoritmo que leia 3 números inteiros e mostre-os em ordem crescente.

Program Pzim ;
Var
a, b, c, n1, n2, n3: integer;

Begin

write('A = '); read(a); write('B = '); read(b); if ( a > b) then begin N3:= a;
N2:= b;

write('C = '); read(c); if (b > c) then

N1:= c

else begin if( c > a) then begin N3:= c;
N2:= a;
N1:= b; end else begin N2:= c;
N1:= b; end; end; end else begin N3:= b;
N2:= a;

write('C = '); read(c); if (a > c) then

N1:= a

else begin if( c > b) then begin N3:= c;
N2:= b;
N1:= a; end else begin N2:= c;
N1:= a; end; end; end; Write(N1, ' ', N2, ' ', N3);

End

11- Faça um algoritmo que leia um ano e informe se ele é bissexto.

Program Pzim ;
Var ano: integer;
Begin

Write('Ano: ');
Read(ano);

If (ano mod 4 <> 0) then write('O ano não é bissexto.') else begin
If (ano mod 100 = 0) then begin if(ano mod 400 = 0) then write('O ano é bissexto.') else write('O ano não é bissexto.'); end else write('O ano é bissexto.');

end;

End.
12- Sendo lidos pelo teclado: nome, sexo, estado civil, idade, salário do pai ou cônjuge, faça um programa que escreva o nome da pessoa e a pensão a que tem direito.
NOME: texto; SEXO: “M” ou “F”, ESTADO CIVIL “C” ou “S”, IDADE: inteiro e SALÁRIO: real
Use as