Chciałbym aby użytkownik mógł sobie wybrać zakres losowania od 1 do 999 oraz wpisać swój <ort>dowlony </ort>zakres do 999. Jak wstawić tabelkę oraz co zrobić aby <ort>wszyskie </ort>liczby były właśnie zawarte w tabeli(może istnieje inny sposób aby liczby były poukładane równo tak jak np. w tabeli). Następnie <ort>chcaiałbym </ort>abym mógł sobie <ort>wybarć </ort>liczbę wierszy i kolumn. <ort>Chce </ort>aby ShowMessage powiedział mi że wylosował z zakresu od 1 do (wprowadzony zakres). Jestem bardzo początkujący więc proszę o wyrozumiałość. Jeżeli ktoś chciał by mi pomóc bardziej szczegołowo mój e-mail: [email protected]. Dzieki!
oto kod:
type
tablica=array [1..6,1..5] of integer;
var tab:tablica;
procedure TForm1.Button1Click(Sender: TObject);
var
wiersz,kolumna:integer;
s:string;
begin
memo1.Clear;
randomize;
for wiersz:=1 to 6 do
for kolumna:=1 to 5 do
tab [wiersz,kolumna]:=random(200);
showmessage('wylosowałem');
for wiersz:=1 to 6 do
for kolumna:=1 to 5 do
begin
s:=s+inttostr(tab[wiersz,kolumna])+' , ';
if kolumna=5 then
begin
memo1.lines.Add(s);
s:='';
end;
end;
end;
end.