GabiLarg - Challenge 1 - Pascal

Ir em baixo

GabiLarg - Challenge 1 - Pascal

Mensagem  GabiLarg em Qui Jul 07, 2011 6:32 pm

3 - Faça um Programa que verifique se uma letra digitada é "F" ou "M". Conforme a letra escrever: F - Feminino, M - Masculino, Sexo Inválido.


 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
PROGRAM CH3;
USES CRT;
VAR
S: CHAR;
BEGIN
CLRSCR;
WRITELN('Digite seu sexo (F ou M)');
READLN(S);
S := UPCASE(S);
CASE (S) OF
'F': WRITELN('Feminino');
'M': WRITELN('Masculino');
ELSE WRITELN('Sexo inválido');
END;
READKEY;
END.


4 - Faça um Programa que verifique se uma letra digitada é vogal ou consoante.


 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
PROGRAM CH4;
USES CRT;
VAR
LETRA: STRING;
BEGIN
CLRSCR;
WRITELN('Digite uma letra:');
READLN(LETRA);
LETRA:=UPCASE(LETRA);
IF (LETRA = 'A') OR (LETRA = 'E') OR (LETRA = 'I') OR (LETRA ='O') OR (LETRA = 'U')
THEN
WRITELN('É uma vogal')

ELSE
WRITELN('É uma consoante');
READKEY;
END.


5 - Faça um Programa que pergunte quanto você ganha por hora e o número de horas trabalhadas no mês. Calcule e mostre o total do seu salário no referido mês.


 1
2
3
4
5
6
7
8
9
10
11
12
13
14
PROGRAM CH5;
USES CRT;
VAR
GANHAHORA,HORATRAB,SALARIO: REAL;
BEGIN
CLRSCR;
WRITELN('Quanto você ganha por hora?');
READLN(GANHAHORA);
WRITELN('Quantas horas você traballha por mês?');
READLN(HORATRAB);
SALARIO:= GANHAHORA * HORATRAB;
WRITELN('Salário do mês = R$', SALARIO:5:2);
READKEY;
END.


6 - Faça um programa para uma loja de tinta. O programa deverá pedir o tamanho em metros quadrados da área a ser pintada. Considere que a cobertura da tinta é de 1 litro para cada 3 metros quadrados e que a tinta é vendida em latas de 18 litros, que custam R$ 95,00. Informe ao usuário a quantidades de latas de tinta a serem compradas e o preço total.


 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
PROGRAM CH6;
USES CRT;
VAR
METROSQUADRADOS, LITROSTOTAL, LATAS, TOTALPAGAR: REAL;
BEGIN
CLRSCR;
WRITELN('Qual a área a ser pintada? (em metros quadrados)');
READLN(METROSQUADRADOS);
LITROSTOTAL:= METROSQUADRADOS/3;
LATAS:=LITROSTOTAL/18;
TOTALPAGAR:=LATAS*95.00;
WRITELN('Você precisará comprar ', LATAS:4:2,' lata(s)');
WRITELN('Total a pagar: R$',TOTALPAGAR:5:2);
READKEY;
END.


-------------------------------------------------------------------
avatar
GabiLarg
Equipe Pzim
Equipe Pzim

Mensagens : 13
Data de inscrição : 03/07/2011
Idade : 25

Ver perfil do usuário http://projectzim.blogspot.com

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum