• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Dark Angel

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

11 mensagens neste tópico

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Antes de mais bem vindo ao Fórum para postares código utiliza a função GeShi

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

e obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ainda nao da diz isto "Invalid qualifier" no "N[ i ]:= random [1..50];

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Então suponho que o Pascal seja case sensitive. Experimenta

n[i]:=random [1..50];

e

e[j]:= random [1..9];

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Atenção: não sei se reparaste mas fiz copy do sítio errado, não é n[ap,i] mas sim n, claro (já editei o post anterior).

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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,

0

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