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

[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.

[Ridelight]

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

[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 😄

Oitavo ena, ainda sei contar até 8  🙂😄

[Dark Angel]

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

e obrigado

[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.

[Dark Angel]

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

[Saco]

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

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

e

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

[Dark Angel]

tb vou ver 😉

[Saco]

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).

[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,

[Dark Angel]

obrigadao o programa ja da bem 😉

Cumps