| | |
| Stránka: 1 z 1
| [ Príspevkov: 4 ] | |
Autor | Správa |
---|
Registrovaný: 28.11.12 Prihlásený: 25.01.13 Príspevky: 6 Témy: 3 |
Mám napisat program, ktorý naplní polia vysky a sirky náhodnými hodnotami z intervalu a vedľa seba nakreslí 6 obdĺžnikov. Šírky a výšky si zoberie z polí vysky a sirky. Ja mam toto a nejde mi to, co mam zle?
procedure TForm1.Button1Click(Sender: TObject); var sirka,vyska:array [10..40] of integer; x,y,i:integer; begin m.Brush.Color := clBlue; x:=0; y:=Random(m.Height); for i:=1 to 6 do sirka[i]:=random(41)+10; m.Rectangle(40*i,x,40*i+30,y+sirka[i]*10); ; end;
|
|
Registrovaný: 17.07.11 Prihlásený: 29.12.20 Príspevky: 1516 Témy: 3 | Napísal BX: 28.11.2012 8:21 | |
|
Kód: sirka,vyska:array [10..40] of integer; Toto je vytvorenie pola indexovaného od 10 do 40.
_________________ Na súkromné správy týkajúce sa problémov, ktoré sa riešia vo fóre, neodpovedám! |
|
Registrovaný: 28.11.12 Prihlásený: 25.01.13 Príspevky: 6 Témy: 3 |
Dakujem to mam uz, prosim ta ako to urobim aby mi zobralo tie udaje vysky a sirky a nakreslilo obdlzniky vedla seba?
|
|
Registrovaný: 17.07.11 Prihlásený: 29.12.20 Príspevky: 1516 Témy: 3 | Napísal BX: 28.11.2012 14:00 | |
|
Veď to, že to máš zle. Ty si vytvoríš polia s indexami od 10 do 40. Tzn. že máš: sirka[10], sirka[11], sirka[12]... sirka[40] vyska[10], vyska[11], vyska[12]... vyska[40] A potom tu Kód: for i:=1 to 6 do sirka[i]:=random(41)+10; si veselo priradzuješ do sirka[1] až sirka[6]. Odkiaľ máš to sirka[1] až sirka[6]? No nemáš. Preto ti to nejde. Definuj si pole ako array[1..6] of integer; potom v cykle od 1 do 6 urob begin sirka[i] := random(41) +10; vyska[i] := random(41) + 10; end; a vykresli ich tak, ako chceš. Ak vedľa seba, tak [x,y] ďalšieho štvorca bude [x+sirka, y] predchádzajúceho.
_________________ Na súkromné správy týkajúce sa problémov, ktoré sa riešia vo fóre, neodpovedám! |
|
| Stránka: 1 z 1
| [ Príspevkov: 4 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| Notebook do školy so zameraním na programovanie v Jave, Python, Lazarus v Notebooky a netbooky | 5 | 509 | 15.06.2021 9:24 pepkopav | | Polia v Assembler, C, C++, Pascal, Java | 12 | 498 | 29.12.2014 13:24 chrono | | Polia v Delphi, Visual Basic | 2 | 679 | 03.05.2009 14:59 ricco24 | | viacrozmerne polia v PHP, ASP | 4 | 696 | 04.08.2009 18:39 pilná lama glama | | c++polia v Assembler, C, C++, Pascal, Java | 3 | 518 | 10.07.2014 12:56 marian_r | | Polia , príkaz foreach v PHP, ASP | 4 | 866 | 30.12.2011 11:51 shaggy | | Objekty ako polia v PHP, ASP | 7 | 689 | 03.01.2010 12:49 stenley | | polia postupnosti pascal v Assembler, C, C++, Pascal, Java | 6 | 1187 | 01.05.2007 20:40 audiotrack | | vyber prvkov - POLIA v PHP, ASP | 5 | 496 | 23.04.2010 10:48 stenley | | Dropdown - schova polia v JavaScript, VBScript, Ajax | 3 | 381 | 14.01.2013 18:47 shaggy | | Lazarus v Delphi, Visual Basic | 2 | 1708 | 03.03.2010 15:50 mathio | | dve polia & foreach v PHP, ASP | 8 | 683 | 08.07.2009 16:03 Snacker | | 2rozmerne polia v jave v Assembler, C, C++, Pascal, Java | 8 | 607 | 29.03.2015 9:37 Lessik | | PHP... konk.: arrays (polia) v PHP, ASP | 2 | 601 | 11.03.2007 19:46 qacer | | Lazarus - diakritika v Delphi, Visual Basic | 6 | 791 | 02.01.2014 9:31 BX | | Lazarus - procedúra v Ostatné | 2 | 831 | 17.02.2012 23:06 luboss8 |
| Nemôžete zakladať nové témy v tomto fóre Nemôžete odpovedať na témy v tomto fóre Nemôžete upravovať svoje príspevky v tomto fóre Nemôžete mazať svoje príspevky v tomto fóre
|
|