Ir para o conteúdo
Dark Angel

Programa do euromilhoes...ja ta feito mas nao da

Mensagens Recomendadas

Dark Angel    0
Dark Angel

boas pessoal.

ja fiz o programa mas nao da e precisso de ajuda se alguem puder ajudar agredecia ;)

ta ai o algoritmo k fiz e tou a programar em pascal.

program euromilhoes;
uses crt;
var ap, i, j:integer;
    n:array[1..10,1..5] of integer;
    e:array[1..10,1..2] of integer;
begin
clrscr;
          for ap:=1 to 10 do
             for i:= 1 to 5 do
               N[ap,i]:=random [1..50];
             for j:= 1 to 2 do
               E[ap,i]:= random [1..9];
end.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Saco    0
Saco

Primeiro bem-vindo ao fórum  ;)

Segundo o post ta no sitio errado, se é pascal devia estar na secção de pascal.

Terceiro se usares o GeSHi para meter código, o teu código fica assim:

program euromilhoes;
uses crt;
var ap, i, j:integer;
    n:array[1..10,1..5] of integer;
    e:array[1..10,1..2] of integer;
begin
clrscr;
          for ap:=1 to 10 do
             for i:= 1 to 5 do
               N[ap,i]:=random [1..50];
             for j:= 1 to 2 do
               E[ap,i]:= random [1..9];
end.

Quarto não percebo nada de pascal, mas a linha

E[ap,i]:= random [1..9];

deveria ser

E[ap,j]:= random [1..9];

Quinto mesmo assim como tens 1 array para os números e outro para as letras, não precisas de arrays de dimensão dupla, portanto uma coisa deste género é capaz de funcionar...

uses crt;
var i, j:integer;
    n:array[1..5] of integer;
    e:array[1..2] of integer;
begin
clrscr;
             for i:= 1 to 5 do
               N[i]:=random [1..50];
             for j:= 1 to 2 do
               E[j]:= random [1..9];
end.

Sexto suponho que falte mostrar os valores dos arrays E e N.

Sétimo se não der pergunta outra vez, pode ser que apareça alguem que saiba :D

Oitavo ena, ainda sei contar até 8  :):D

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Saco    0
Saco

desculpem la mas k e o primeiro post que ponho!!!!!!

e obrigado

Então e já funciona ou não? Isso é que interessa, agora se está no sítio certo ou não é secundário.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
maiden    0
maiden

Boas,

antes de mais bem vindo ao fórum.  ;)

A função random tem de ser iniciada para poder ser utilizada.

begin
    randomize;
    n:=random(9) {e nao random[1..9]}
end.

Espero ter ajudado.

Cumps,

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade