Debii - Challenge I - Pascal

Ir em baixo

Debii - Challenge I - Pascal

Mensagem  Debiiloide em Sab Jul 09, 2011 4:35 am

1 - Faça um Programa que peça cinco números separados por vírgula, e imprima o maior deles.


2 - Faça um Programa que peça cinco números separados por espaço e imprima o maior deles.

 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program maiorNumero;
uses crt;
var
n1, n2, n3, n4, n5, maior: integer;
begin
writeln ('Entre com cinco numeros: ');
read (n1,n2,n3,n4,n5);
if (n1>n2) then
maior := n1
else
maior := n2;
if n2>n3 then
maior := n2
else
maior := n3;
if n3>n4 then
maior := n3
else
maior := n4;
if n4>n5 then
maior := n4
else
maior := n5;
writeln('O maior número é ',maior);
readkey;
end.




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
17
18
Program QT03;
uses crt;
var
letra: string;
begin
writeln('Digite uma letra: ');
readln(letra);
if (letra='F') or (letra='f') then
begin
writeln('Feminino');
end
else
if (letra='M') or (letra='m') then
writeln('Masculino')
else
writeln('Sexo Inválido.');
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
Program QT04;
uses crt;
var
x: string;
begin
writeln('Digite uma letra: ');
readln(x);
if (x<>'a') and (x<>'A') and (x<>'e') and (x<>'E') and (x<>'i') and (x<>'I') and (x<>'o') and (x<>'O') and (x<>'u') and (x<>'U') then
writeln('Consoante.')
else
writeln('Vogal.');
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
15
16
17
18
19
20
21
22
23
24
Program QT05;
uses crt;
var
phora, total: real;
htraba: integer;
begin
writeln('Digite quanto você ganha por hora: ');
readln(phora);
while (phora<0) or (phora>100) do
begin
writeln('Ganho por hora inválido, digite novamente: ');
readln(phora);
end;
writeln('Digite o número de horas trabalhadas no mês: ');
readln(htraba);
while (htraba<0) or (htraba>200) do
begin
writeln('Número de horas trabalhadas inválido, digite novamente.');
readln(htraba);
end;
total:=phora*htraba;
writeln('Seu Salário no referido mês é: ',total:3:2,' R$.');
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.



Última edição por Debiiloide em Seg Jul 11, 2011 6:19 pm, editado 3 vez(es)
avatar
Debiiloide

Mensagens : 6
Data de inscrição : 09/07/2011
Idade : 25

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Debii - Challenge I - Pascal

Mensagem  Z3r0 em Sab Jul 09, 2011 6:40 am

Bem vinda ao Challenge Debii.
Espero que continue a participar dos desafios. Pois, assim como os outros, também estou ansioso para o challenge 2. Só uma observação....... há 3 mulheres ou mais registradas no forum.... e todas escolheram pascal.. pq será? o.o curiosidade.

Bem...vou analisar teu código e te retorno jaja. Se possível, n esquece de documentar o código ok?


Editado pelo admin


Desculpa.. não pude resistir.
avatar
Z3r0

Mensagens : 149
Data de inscrição : 01/07/2011
Idade : 32

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

Voltar ao Topo Ir em baixo

Re: Debii - Challenge I - Pascal

Mensagem  Debiiloide em Dom Jul 10, 2011 1:21 pm

Z3r0 escreveu:Bem vinda ao Challenge Debii.
Só uma observação....... há 3 mulheres ou mais registradas no forum.... e todas escolheram pascal.. pq será? o.o curiosidade.

num tenho a minima, só sei que comecei faculdade no semestre passado... e a linguagem que usamos em lógica de programação foi Pascal!

Very Happy

Z3r0 escreveu:Se possível, n esquece de documentar o código ok?

Como?

#EDIT


LOOOOOOL, não sou mulher, e esse avatar não foi eu que boteei ! Debii vem de Debiiloide e não nome de muié, que preconceito Very Happy
avatar
Debiiloide

Mensagens : 6
Data de inscrição : 09/07/2011
Idade : 25

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Debii - Challenge I - Pascal

Mensagem  Z3r0 em Dom Jul 10, 2011 4:27 pm


LOOOOOOL, não sou mulher, e esse avatar não foi eu que boteei ! Debii vem de Debiiloide e não nome de muié, que preconceito Very Happy


FAIL? TOTALLLLLLL AUHAUHAUHAAUHAUH POUTZZZZZZZZ...........
E......... pow...desculpae auhahuauhauhaa ( o avatar é automatico ) deve ser por isso........ mas enfim, apesar de não ter contato com pascal.. vou tentar ajudar nas questoes 1 e 2 que ao que parece não é só a gabilarg que está tendo dificuldade nessas duas.
avatar
Z3r0

Mensagens : 149
Data de inscrição : 01/07/2011
Idade : 32

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

Voltar ao Topo Ir em baixo

Re: Debii - Challenge I - Pascal

Mensagem  Z3r0 em Dom Jul 10, 2011 4:35 pm

Mas...então...estou tentando compilar aqui mas ta dando uns erros... por não conhecer a sintax do pascal.. mas acredito que é um começo para a questão 1 e 2 ...qualquer coisa, pega no imbalo ae...:

program maiorNumero;
var
n1, n2, n3, n4, n5, maior: integer;
begin
write ('Entre com cinco numeros: ');
read (n1,n2,n3,n4,n5);
if (n1>n2) then
maior = n1
else
maior = n2
.....


avatar
Z3r0

Mensagens : 149
Data de inscrição : 01/07/2011
Idade : 32

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

Voltar ao Topo Ir em baixo

Re: Debii - Challenge I - Pascal

Mensagem  Debiiloide em Seg Jul 11, 2011 5:25 pm

fiz a segunda, porém a primeira não sei se é possivel, até porque no Pascal não se usa "virgula" e sim "ponto" ....
avatar
Debiiloide

Mensagens : 6
Data de inscrição : 09/07/2011
Idade : 25

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Debii - Challenge I - Pascal

Mensagem  Z3r0 em Seg Jul 11, 2011 5:29 pm

Debiiloide escreveu:fiz a segunda, porém a primeira não sei se é possivel, até porque no Pascal não se usa "virgula" e sim "ponto" ....

Mas nesse caso, você pode transformar a virgula em strings e usar entre um número e outro. Ou seja, manipular a string "," virgula para estar entre um numero e outro. Compreende? o.o

E parabéns ...estou gostando de ver Smile

Quando me refiro a documentar, me refiro a você explicar o seu código... veja o exemplo de outros participantes =]

Ahááá auhahuaha fico feliz que meu exemplo te servio... Razz
avatar
Z3r0

Mensagens : 149
Data de inscrição : 01/07/2011
Idade : 32

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

Voltar ao Topo Ir em baixo

Re: Debii - Challenge I - Pascal

Mensagem  Debiiloide em Seg Jul 11, 2011 5:58 pm

Z3r0 escreveu:
Debiiloide escreveu:fiz a segunda, porém a primeira não sei se é possivel, até porque no Pascal não se usa "virgula" e sim "ponto" ....

Mas nesse caso, você pode transformar a virgula em strings e usar entre um número e outro. Ou seja, manipular a string "," virgula para estar entre um numero e outro. Compreende? o.o

E parabéns ...estou gostando de ver Smile

Quando me refiro a documentar, me refiro a você explicar o seu código... veja o exemplo de outros participantes =]

Ahááá auhahuaha fico feliz que meu exemplo te servio... Razz

saquei a parte de documentar.... porém essa da string virgula num saquei ! Very Happy
avatar
Debiiloide

Mensagens : 6
Data de inscrição : 09/07/2011
Idade : 25

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Debii - Challenge I - Pascal

Mensagem  Z3r0 em Seg Jul 11, 2011 7:18 pm

Primeiro tenta finalizar assim:

 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program maiorNumero2;
uses crt;
var
num[1..5], maior: Integer;
begin
writeln ('Entre com cinco numeros: ');
read ("%d,%d,%d,%d,%d",&num[0],&num[1],&num[2],&num[3],&num[4]);

if (n1>n2) then
maior := n1
else
maior := n2;
if n2>n3 then

....




Se não der certo, eu tento explicar o esquema de transformar em string's e manipular. Apesar de que nesse caso também usa manipulação de strings uma vez que precisa de formatação usando "%d," . Seria uma solução para o pascal. Pois, em C++ ou Python que não usa por padrão o "." para separar números ou strings, é possivel usar "." ou "-" ou qualquer outra coisa.
avatar
Z3r0

Mensagens : 149
Data de inscrição : 01/07/2011
Idade : 32

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

Voltar ao Topo Ir em baixo

Re: Debii - Challenge I - Pascal

Mensagem  Z3r0 em Seg Jul 11, 2011 9:27 pm

Talvez algo assim...

 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program maiorNumero;
uses crt;
var
i, num[1..5], maior: integer;
begin
writeln ('Entre com cinco numeros: ');
read ("%d,%d,%d,%d,%d",and num[0], and num[1], and num[2], and num[3], and num[4]);

maior = num[0]
for (i=1; i<5; i++)
if (num[i] > maior) maior = num[i];

writeln('O maior número é ',maior);
readkey;
end.



;P Qualquer coisa me da um feedback...isso ai ta gerando um erro...mas talvez com alguns ajustes...
avatar
Z3r0

Mensagens : 149
Data de inscrição : 01/07/2011
Idade : 32

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

Voltar ao Topo Ir em baixo

Re: Debii - Challenge I - Pascal

Mensagem  Debiiloide em Ter Jul 12, 2011 6:49 am

Z3r0 escreveu:Talvez algo assim...

 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program maiorNumero;
uses crt;
var
i, num[1..5], maior: integer;
begin
writeln ('Entre com cinco numeros: ');
read ("%d,%d,%d,%d,%d",and num[0], and num[1], and num[2], and num[3], and num[4]);

maior = num[0]
for (i=1; i<5; i++)
if (num[i] > maior) maior = num[i];

writeln('O maior número é ',maior);
readkey;
end.



;P Qualquer coisa me da um feedback...isso ai ta gerando um erro...mas talvez com alguns ajustes...


No Pasacal o compilador não aceita esses simbolos %.... Very Happy
avatar
Debiiloide

Mensagens : 6
Data de inscrição : 09/07/2011
Idade : 25

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Debii - Challenge I - Pascal

Mensagem  Z3r0 em Ter Jul 12, 2011 7:38 am

Debiiloide escreveu:No Pasacal o compilador não aceita esses simbolos %.... Very Happy

Então, o jeito é descobrir qual simbolo referencia formatação de string em pascal para substituir o %
avatar
Z3r0

Mensagens : 149
Data de inscrição : 01/07/2011
Idade : 32

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

Voltar ao Topo Ir em baixo

Re: Debii - Challenge I - Pascal

Mensagem  Conteúdo patrocinado


Conteúdo patrocinado


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