| | |
| Stránka: 1 z 1
| [ Príspevkov: 5 ] | |
Autor | Správa |
---|
Registrovaný: 28.07.14 Prihlásený: 23.12.21 Príspevky: 110 Témy: 21 Bydlisko: Prešov | Napísal arven: 27.02.2018 12:55 | |
|
Serus, môžete mi prosím pomôcť s Pascalom? Majú sa mi vypísať čísla na Canvas (Delphi 7), mám 10 čísel vypísaných v Canvase potom využijem nejaký sort (bubble, insert, quick.. to je jedno), utriedia sa mi čísla a zapíšu opäť na Canvas. A ďalej potrebujem urobiť aby sa mi zo zoradených čísel urobil MEDIÁN a vypísal do tretieho riadku v Canvase. Prosím pomôžte mi ak viete. Kód: //BUBBLE SORT procedure TForm1.Button1Click(Sender: TObject); var a:array[1..n] of integer; i,j,p,k,o :integer; begin
for i:=1 to n do //vytvori nahodne cisla a[i]:=random(90)+10;
for i:=1 to n do image1.Canvas.TextOut(i*25,10,inttostr(a[i]));
for i:=1 to n-1 do //sort for j:=1 to n-i do begin inc(o); if a[j]>a[j+1] then begin k:=a[j]; a[j]:=a[j+1]; a[j+1]:=k; end; end; for i:=1 to n do image1.Canvas.TextOut(i*25,40,inttostr(a[i])); image1.canvas.textout(20,60, 'Počet ifov: '+inttostr(o)); end; Toto všetko mám ale neviem ako ďalej s tým mediánom (plus mi nefunguje počítanie tých ifov..)
|
|
Registrovaný: 17.07.11 Prihlásený: 29.12.20 Príspevky: 1516 Témy: 3 | Napísal BX: 27.02.2018 14:40 | |
|
Medián je stredná hodnota zoradených čísel. Takže keď už ich máš zoradené, jednoducho vypíš a[n div 2]. Kde je problém?
_________________ Na súkromné správy týkajúce sa problémov, ktoré sa riešia vo fóre, neodpovedám! |
|
Registrovaný: 28.07.14 Prihlásený: 23.12.21 Príspevky: 110 Témy: 21 Bydlisko: Prešov | Napísal autor témy arven: 28.02.2018 16:00 | |
|
Môžeš mi to dopísať presnejšie do kódu aby to fungovalo?
|
|
Registrovaný: 17.07.11 Prihlásený: 29.12.20 Príspevky: 1516 Témy: 3 | Napísal BX: 28.02.2018 16:47 | |
|
Nemôžem, skús to sám.
_________________ Na súkromné správy týkajúce sa problémov, ktoré sa riešia vo fóre, neodpovedám! |
|
Registrovaný: 01.10.06 Prihlásený: 19.04.24 Príspevky: 6562 Témy: 15 Bydlisko: Bratislava | Napísal MTK: 01.03.2018 8:02 | |
|
Tazko ti sem pisat nieco naviac, ked sa naozaj jedna o doplnenie jedneho riadku kodu (ak nie je nahodou zadanie definovane tak, ze za median z mnoziny o parnom pocte prvkov je povazovana hodnota a[n/2]+a[(n+1)/2]).
Proste na konci programu, ked je to uz spocitane potrebujes vypisat prostredny prvok z pola.
_________________ PC: Intel Q6600@3,33GHz, MSI GTX 670 OC (TwinFrozr IV), DDR2 1066 A-data 8Gb, Seagate Barracuda 7200.12 2000GB, Kingston 240GB SSD, Gigabyte EP35-DS4, MSI OPTIX G273QF , Logitech G502 Proteus Spectrum Notebook: Sony VAIO CW Series (VPC-CW1S1E/B) / LENOVO Legion 5 Pro 16ACH6H Stingray White || Mobil: Samsung Galaxy S21 FE || Auto: Audi S5 Sportback |
|
| Stránka: 1 z 1
| [ Príspevkov: 5 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| Free Pascal a Turbo Pascal v Assembler, C, C++, Pascal, Java | 0 | 385 | 19.12.2014 13:18 Styracoz | | Pascal v Assembler, C, C++, Pascal, Java | 7 | 632 | 09.10.2011 21:30 F3RY | | Pascal [ Choď na stránku: 1, 2 ] v Assembler, C, C++, Pascal, Java | 40 | 1472 | 11.12.2016 22:08 viki | | pascal v Assembler, C, C++, Pascal, Java | 2 | 1106 | 09.03.2007 14:08 misolax | | Pascal v Assembler, C, C++, Pascal, Java | 7 | 832 | 14.05.2011 20:04 F3RY | | pascal v Assembler, C, C++, Pascal, Java | 2 | 572 | 24.06.2010 20:17 KatjushaMan | | pascal... v Assembler, C, C++, Pascal, Java | 5 | 906 | 18.10.2008 19:02 redog | | pascal v Assembler, C, C++, Pascal, Java | 11 | 1289 | 07.04.2007 16:50 programator | | pascal v Assembler, C, C++, Pascal, Java | 6 | 731 | 08.01.2009 17:45 majka090 | | pascal v Assembler, C, C++, Pascal, Java | 19 | 3059 | 30.04.2007 19:54 nikita | | pascal v Assembler, C, C++, Pascal, Java | 0 | 703 | 03.05.2009 12:35 ebb | | Pascal - Balon v Assembler, C, C++, Pascal, Java | 8 | 562 | 02.11.2009 23:19 Arsenius | | Program pascal v Assembler, C, C++, Pascal, Java | 1 | 424 | 21.12.2017 23:45 magic | | pascal skuska v Assembler, C, C++, Pascal, Java | 2 | 597 | 30.01.2008 17:46 alex7625 | | Pascal help v Assembler, C, C++, Pascal, Java | 2 | 599 | 22.04.2007 13:30 gorky22 | | pascal diagram v Assembler, C, C++, Pascal, Java | 7 | 784 | 14.01.2009 16:01 dsljohn |
| 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
|
|