[ Príspevkov: 5 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 28.07.14
Prihlásený: 22.07.19
Príspevky: 106
Témy: 20 | 20
Bydlisko: Prešov
NapísalOffline : 27.02.2018 12:55 | Pascal

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..)


Offline

Skúsený užívateľ
Skúsený užívateľ
Obrázok užívateľa

Registrovaný: 17.07.11
Prihlásený: 29.12.20
Príspevky: 1516
Témy: 3 | 3
NapísalOffline : 27.02.2018 14:40 | Pascal

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!
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 28.07.14
Prihlásený: 22.07.19
Príspevky: 106
Témy: 20 | 20
Bydlisko: Prešov
Napísal autor témyOffline : 28.02.2018 16:00 | Pascal

Môžeš mi to dopísať presnejšie do kódu aby to fungovalo?


Offline

Skúsený užívateľ
Skúsený užívateľ
Obrázok užívateľa

Registrovaný: 17.07.11
Prihlásený: 29.12.20
Príspevky: 1516
Témy: 3 | 3
NapísalOffline : 28.02.2018 16:47 | Pascal

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!
Offline

Užívateľ
Užívateľ
Pascal

Registrovaný: 01.10.06
Prihlásený: 26.01.21
Príspevky: 6519
Témy: 14 | 14
Bydlisko: Bratislava
NapísalOffline : 01.03.2018 8:02 | Pascal

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, LG FLATRON L226WTQ, Logitech G502 Proteus Spectrum
Notebook: Sony VAIO CW Series (VPC-CW1S1E/B) / DELL Inspiron 15-5570 || Mobil: Samsung Galaxy S7 || Auto: Audi S5 Sportback
 [ Príspevkov: 5 ] 


Pascal



Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy.

Free Pascal a Turbo Pascal

v Assembler, C, C++, Pascal, Java

0

235

19.12.2014 13:18

Styracoz

V tomto fóre nie sú ďalšie neprečítané témy.

pascal

v Assembler, C, C++, Pascal, Java

2

392

24.06.2010 20:17

KatjushaMan

V tomto fóre nie sú ďalšie neprečítané témy.

Pascal

v Kôš

1

30

06.11.2018 14:38

werwest

V tomto fóre nie sú ďalšie neprečítané témy.

pascal...

v Assembler, C, C++, Pascal, Java

5

763

18.10.2008 19:02

redog

V tomto fóre nie sú ďalšie neprečítané témy.

Pascal

[ Choď na stránku:Choď na stránku: 1, 2 ]

v Assembler, C, C++, Pascal, Java

40

1022

11.12.2016 22:08

viki

V tomto fóre nie sú ďalšie neprečítané témy.

pascal

v Assembler, C, C++, Pascal, Java

11

1123

07.04.2007 16:50

programator

V tomto fóre nie sú ďalšie neprečítané témy.

pascal

v Assembler, C, C++, Pascal, Java

6

589

08.01.2009 17:45

majka090

V tomto fóre nie sú ďalšie neprečítané témy.

pascal

v Assembler, C, C++, Pascal, Java

19

2886

30.04.2007 19:54

nikita

V tomto fóre nie sú ďalšie neprečítané témy.

pascal

v Assembler, C, C++, Pascal, Java

0

504

03.05.2009 12:35

ebb

V tomto fóre nie sú ďalšie neprečítané témy.

Pascal

v Assembler, C, C++, Pascal, Java

7

485

09.10.2011 21:30

F3RY

V tomto fóre nie sú ďalšie neprečítané témy.

pascal

v Assembler, C, C++, Pascal, Java

2

930

09.03.2007 14:08

misolax

V tomto fóre nie sú ďalšie neprečítané témy.

Pascal

v Assembler, C, C++, Pascal, Java

7

627

14.05.2011 20:04

F3RY

V tomto fóre nie sú ďalšie neprečítané témy.

PASCAL-parameter

v Assembler, C, C++, Pascal, Java

8

680

16.11.2010 16:17

elementstyle

V tomto fóre nie sú ďalšie neprečítané témy.

PASCAL graph

v Assembler, C, C++, Pascal, Java

1

187

18.06.2013 13:36

BX

V tomto fóre nie sú ďalšie neprečítané témy.

PASCAL - pesnicka

v Assembler, C, C++, Pascal, Java

0

543

11.05.2008 13:09

Zdravotnik

V tomto fóre nie sú ďalšie neprečítané témy.

pascal : pchar

v Assembler, C, C++, Pascal, Java

1

366

03.02.2011 18:18

juho



© 2005 - 2021 PCforum, edited by JanoF