Ajuda com uma fun��o

Question

Ol�, gostaria de uma fun��o que eu fornecesse um numero, e ela me retona 4 numeros, que a soma dao o numero fornecido por mim..Alguem tem alguma ideia?desde ja agradeco[]s...

Edilcimar · Answer

pela pr�pria defini��o de fun��o, a mesma � algo onde voc� envia um ou mais par�metros e recebe SOMENTE um de retorno, voc� ter� que criar um record ou algo assim para retornar mais de uma vari�vel

Marco Salles · Answer

[quote:99a7385eb7]pela pr�pria defini��o de fun��o, a mesma � algo onde voc� envia um ou mais par�metros e recebe SOMENTE um de retorno, voc� ter� que criar um record ou algo assim para retornar mais de uma vari�vel[/quote:99a7385eb7]Pela defini��o de Fun��o o Edicilmar tem toda a Raz�o.. Mas podemos passar parametros por valor , o que possibilita ter retorno de quatro poss�veis numeros...[quote:99a7385eb7]Alguem tem alguma ideia? [/quote:99a7385eb7][code:1:99a7385eb7]procedure RetornarQuatroNumeros(a:Integer;var b,c,d,e :Integer);beginRandomize;b:=Random((a));c:=Random(a-b);d:=Random(a-b-c);e:=a-b-c-d;end;[/code:1:99a7385eb7][b:99a7385eb7]//Para Chamar a Procedure.[/b:99a7385eb7]..[code:1:99a7385eb7]procedure TForm1.Button1Click(Sender: TObject);vara,b,c,d,e:Integer;begina:=StrToInt(Edit1.Text);RetornarQuatroNumeros(a,b,c,d,e);Showmessage(Inttostr(a)+           � �+Inttostr(b)+� �+Inttostr(c)+� �+           Inttostr(d)+� �+Inttostr(e));end;[/code:1:99a7385eb7]Voce nao disse nada sobre numeros repetidos ... Nen disse o Intervalo que voce necessita..  :?:  :?:[b:99a7385eb7] Ent�o eu pensei que o numero fornecido[/b:99a7385eb7] seje sempre >= Zero.. Para numeros fornecidos menores do que zero, tem que fazer algumas altera��es...

Titanius · Answer

valeu pessoal era disso mesmo que eu precisava...obrigado...

F�rum Ajuda com uma fun��o #277788