JoNiiN
-
Total de itens
4 -
Registro em
-
Última visita
Posts postados por JoNiiN
-
-
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!
Ajuda a resolver exercícios no pascal!
em Outras Linguagens de Programação
Postado
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!