Inny sposób...

Witam!!

Jak w inny sposób zapisać taką procedurę:

var
j,i,l: Byte;
Tablica : array [1..6] of Byte;
JuzWystapilo: Boolean;
begin
lblWynik.caption := '';
for I := 1 to 6 do Tablica[I] := 0;
Randomize;
I := 1;
while I

O szybkie odpowiedzi?? heh.... Od razu mnie taki text wkurza....

O co Ci dokładnie chodzi?? Jak inaczej??

Sorry, ale na wykladach profesor powiedzial nam, ze mamy ta procedure zapisac w inny sposob i nie wiem jak to ugryzc. Ja bym napisal ja tak jak jest ;) POOPOOMOCY!!!!!!

No to ja napisze tak. Nie wiem czy dobrze bo chciałeś na szybkiego.

var
j,i,l: Byte;
Tablica : array [1..6] of Byte;
JuzWystapilo: Boolean;
begin
Randomize;
lblWynik.Caption:='';
for I := 1 to 6 do
begin
Tablica[I] := 0;
JuzWystapilo := False;
L := Random(50);
for J := 1 to I do
if (Tablica[J] = l) then JuzWystapilo := True;
if not JuzWystapilo then
begin
Tablica[I] := L;
Inc(I);
end;
lblWynik.Caption := lblWynik.Caption + IntToStr(Tablica[I]) + ' ';
end;
End;

btw. chcesz robić encyklopedię Delphi a nie znasz się na Delphi?? ciekawe....

Dzieki, moze nie, ze sie nie znam, ale brakuje mi pomyslow bo dzisiaj cala noc nad innym projektem siedzialem i juz chce mi sie spac, a musze miec to koniecznie dzisiaj, a wlasciwie moze i sie nie znam :d Aaa i dzieki zaraz sprawdze!!!!

Po malej modyfikacji dziala. DZIEKI WIELKIE!!!! [hurra] Szymek nalezy ci sie [browar]

[dopisane]
Do adminow: mozecie to usunac, bo watpie, zeby przydalo sie to komus oprocz mnie :-)