JoNiiN

Valeu, eu tinha me esquecido disso! Agora, o exercício 2, eu não consegui fazer, me enrolei nas variáveis, resumindo, não entendi nada! Eu fiz isso: program duracao; uses crt; var hin, min, hter, mint:integer; durac,durac2,resul1,resul2:real; begin clrscr; writeln ('Digite a hora de in¡cio da partida:'); read (hin); writeln ('Digite os minutos do in¡cio da partida'); read (min); writeln ('Digite a hora do final da partida:'); read (hter); writeln ('Digite os minutos do final da partida:'); read (mint); resul1:=durac+durac2; resul2:=hter-hin; writeln ('a partida durou:',resul2:1:0,'hora(s) e',resul1:1:0,'minutos.'); readkey; end. Mas com certeza ta errado, e ainda, como tem que usar condição, estaria errado mesmo estando certo. (o.O') Me ajuda a resolver esse, ele é o unico que eu não consegui fazer. i.i Abraço!

CONSEGUI FAZER O 1º. PROGRAM ORDEMCRESC; USES CRT; VAR N1,N2,N3:INTEGER; BEGIN CLRSCR; WRITE('DIGITE UM VALOR INTEIRO: '); READ(N1); WRITE('DIGITE UM VALOR INTEIRO: '); READ(N2); WRITE('DIGITE UM VALOR INTEIRO: '); READ(N3); IF (N1>N2) AND (N2>N3) THEN BEGIN WRITE(' A ORDEM CRESCENTE : ',N3,', ',N2,', ',N1); END; IF (N1<N2) AND (N2<N3) THEN BEGIN WRITE('A ORDEM CRESCENTE : ',N1,', ',N2,', ',N3); END; IF (N1>N2) AND (N2<N3) THEN BEGIN WRITE('A ORDEN CRECENTE : ',N2,', ',N1,', ',N3); END; IF (N1<N2) AND (N2>N3) THEN BEGIN WRITE('A ORDEM CRESCENTE : ',N1,', ',N3,', ',N2); END; READKEY; END. EU FIZ, MAS TEM OUTRO JEITO DE FAZER COM CONDIÇÃO, QUE O TORNE UM POUCO MENOR? VLW PELA ATENÇÃO!

Antes vou agradecer pela força que vocês estão me dando! =p Tipo eu consegui fazer o exercício 3, mas esqueci de mencionar que era pra ser feito somente com condiçoes (=p, mal). meu ficou assim o exercício 3. PROGRAM CARGOSALARIAL; USES CRT; VAR CODCAR:INTEGER; SALATUAL, A1, A2, A3, A4: REAL; BEGIN CLRSCR; WRITELN('DIGITE O CODIGO DO CARGO'); WRITELN('[1] ESCRITUARIO [2] SECRETARIO [3] CAIXA [4] GERENTE'); READLN(CODCAR); WRITELN('DIGITE O SALARIO ATUAL DO FUNCIONARIO'); READLN(SALATUAL); IF(CODCAR=1)THEN BEGIN WRITELN('CARGO-ESCRITUARIA'); A1:=(SALATUAL*0.5); WRITELN('O AUMENTO SERA DE R$',A1:4:2,'.'); WRITELN('O NOVO SALARIO SERA R$',SALATUAL+A1:4:2,'.'); END; IF(CODCAR=2)THEN BEGIN WRITELN('CARGO-SECRETARIO'); A2:=(SALATUAL*0.35); WRITELN('O AUMENTO SERA DE R$',A2:4:2,'.'); WRITELN('O NOVO SALARIO SERA R$',SALATUAL+A2:4:2, '.'); END; IF(CODCAR=3)THEN BEGIN WRITELN('CARGO-CAIXA'); A3:=(SALATUAL*0.20); WRITELN('O AUMENTO SERA DE R$',A3:4:2,'.'); WRITELN('O NOVO SALARIO SERA R$',SALATUAL+A3:4:2,'.'); END; IF(CODCAR=4)THEN BEGIN WRITELN('CARGO-GERENTE'); A4:=(SALATUAL*0.10); WRITELN('O AUMENTO SERA DE R$',A4:4:2,'.'); WRITELN('O NOVO SALARIO SERA R$',SALATUAL+A4:4:2, '.'); END; READKEY; END. O que eu fiz tah rodando. agora em relação ao exercício 1, eu to em duvida de como fazer a condição pra colocar os numeros em ordem crescente. obs: nem tive aula de vetor. Mais uma vez obrigado pela ajuda!

Sei que isso é besteira pra muito de vocês mas, pra mim ta f..*&. Me ajudem a resolver esses 3 exercícios por favor! estou desesperado! 1- Faça um programa que receba três números e mostre-os em ordem crescente. 2- Faça um programa que receba a hora de inicio de um jogo e a hora final do jogo ( cada hora é composta por duas variáveis inteiras: horas e minutos). Calcule e mostre a duração do jogo (hora e minuto) sabendo-se que o tempo máximo de duração do jogo é de 24 horas e que o jogo pode iniciar em um dia e terminar no dia seguinte. 3- 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 sálario. Os cargos estão na tabela a seguir: Código Cargo Percentual 1 Escrituário 50% 2 Secretário 35% 3 Caixa 20% 4 Gerente 10% Por favor!!! estou realmente desesperado!