help!!!!!!

12/03/2003

0

Preciso de ajuda,para conseguir um estagio que é muito importante para meu futuro na profissão.
o caso é o seguinte,é uma provinha que eu não consegui fazer no dia do teste na empresa,e o gerente da empresa me deu um programinha para fazer em delphi,por isso preciso muito de sua ajuda,tenho certeza que para voce não é dificil.
desde ja muito obrigado,e que deus lhe abençoe!!
MIKAL@CIDADEINTERNET.COM.BR

DETERMINAR AS POSSIBILIDADES DE OCORRENCIA DE RESULTADOS CARA E COROA NA SEQUENCIA DE 1000 LANÇAMENTOS VÁLIDOS DE 3 MOEDAS ,SENDO 1 DE R$ 0,25,1 DE R$ 0,50 E 1 DE R$ 1,00
AS MOEDAS SÃO EXTRAIDAS ALEATORIAMENTE DE UM RECIPIENTE.
APRESENTAR AO FINAL.
- ¬ DE MOEDAS DE 0,25 LANÇADAS
- ¬ DE MOEDAS DE 0,50 LANÇADAS
- ¬ DE MOEDAS DE 1,00 LANÇADAS

- ¬ DE RESULTADO CARA
MOEDAS DE 0,25
MOEDAS DE 0,50
MOEDAS DE 1,00

- ¬ DE RESULTADO COROA
MOEDAS DE 0,25
MOEDAS DE 0,50
MOEDAS DE 1,00

- ¬ DE LANÇAMENTOS INVÁLIDOS


Mikal

Mikal

Responder

Posts

12/03/2003

Marcelo Saviski

var
i : integer;
vetor : array[0..5] of integer;
begin
for i := 0 to 1000 do
inc(vetor[random(6)])
¬ DE MOEDAS DE 0,25 LANÇADAS :=vetor[0] + vetor[3];
- ¬ DE MOEDAS DE 0,50 LANÇADAS := vetor[1] + vetor[4];
- ¬ DE MOEDAS DE 1,00 LANÇADAS := vetor[2] + vbetor[5];

- ¬ DE RESULTADO CARA
MOEDAS DE 0,25 := vetor[0];
MOEDAS DE 0,50 := vetor[1];
MOEDAS DE 1,00 := vetor[2];

- ¬ DE RESULTADO COROA
MOEDAS DE 0,25 := vetor[3];
MOEDAS DE 0,50 := vetor[4];
MOEDAS DE 1,00 := vetor[5];

- ¬ DE LANÇAMENTOS INVÁLIDOS[color=blue:897b2f3bc8]//não entendi essa[/color:897b2f3bc8]

não sei se vai ajudar em alguma coisa, mais vai de exemplo


Responder

APRENDA A PROGRAMAR DO ZERO AO PROFISSIONAL

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar