Obsah fóra
PravidláRegistrovaťPrihlásenie




Odpovedať na tému [ Príspevkov: 5 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Usporiadanie prvkov v poli

Registrovaný: 01.05.14
Prihlásený: 07.11.19
Príspevky: 152
Témy: 52
Bydlisko: Dubovce
Príspevok NapísalOffline : 10.04.2017 22:30

Zdravím, Zasa by som potreboval pomôcť s usporiadaním prvkov v poli.
Zadanie: Vytvorte program ktorý bude načítavať údaje o žiakoch. (Meno, Priezvisko, Dátum narodenia) Údaje usporiada od najmladšieho žiaka po najstaršieho.
Program ktorý som zatiaľ napísal:
zdrojový_kod: zobraziť
Kód:
program osobneudaje;
{
$APPTYPE CONSOLE}
uses SysUtils;
type mesiace=1..31;
var m:array[1..255] of mesiace;
    fn,sn,d,den,mesiac,rok:array[1..255] of string;
    sd:array[1..255] of word;
    i,n,hsd:byte;
    hfn,hsn:string;
begin
  
{ TODO -oUser -cConsole Main : Insert code here }
  m[1]:=31; m[2]:=28; m[3]:=31; m[4]:=30; m[5]:=31; m[6]:=30;
  m[7]:=31; m[8]:=31; m[9]:=30; m[10]:=31; m[11]:=30; m[12]:=31;
  write('Kolko udajov chcete zadat?: ');
  readln(n);
  for i:=1 to n do
    begin
      write
('Zadajte ',i,' meno: ');
      readln(fn[i]);
      write('Zadajte ',i,' priezvisko: ');
      readln(sn[i]);
      write('Zadajte ',i,' datum narodenia: ');
      readln(d[i]);
    end;
  for i:=1 to 2 do
    begin
      if 
(d[i]<>' ') or (d[i]<>'.') then den[i]:=den[i]+d[i];
      if (den[i]=' ') or (den[i]='.') then delete(den[i],i,1);
    end;
  for i:=4 to 5 do
    begin
      if 
(d[i]<>' ') or (d[i]<>'.') then mesiac[i]:=mesiac[i]+d[i];
      if (mesiac[i]=' ') or (mesiac[i]='.') then delete(mesiac[i],i,1);
    end;
  for i:=6 to 10 do
    begin
      if 
(d[i]<>' ') or (d[i]<>'.') then rok[i]:=rok[i]+d[i];
      if (rok[i]=' ') or (rok[i]='.') then delete(rok[i],i,1);
    end;
  for i:=1 to n do sd[i]:=strtoint(den[i])+m[strtoint(mesiac[i])]+strtoint(rok[i]); //<==--- Tady mi to píše chybu.
  i:=0;
  while i<>n do
    begin
      inc
(i);
      if sd[i]>sd[i+1] then
        begin
          hsd
:=sd[i];
          sd[i]:=sd[i+1];
          sd[i+1]:=hsd;
          hfn:=fn[i];
          fn[i]:=fn[i+1];
          fn[i+1]:=hfn;
          hsn:=sn[i];
          sn[i]:=sn[i+1];
          sn[i+1]:=hsn;
          i:=0;
        end;
    end;
  for i:=1 to n do writeln(fn[i],' ',sn[i]);
  readln;
end.

Problém je v tom že ak zadám napr. 10.4.2000 tak mi program napíše chybu a spadne alebo ak to napíšem s medzerami tak to tiež spadne.
Usporiadanie prvkov v poli


Offline

Skúsený užívateľ
Skúsený užívateľ
Usporiadanie prvkov v poli

Registrovaný: 19.03.07
Prihlásený: 14.04.24
Príspevky: 7076
Témy: 85
Bydlisko: BA
Príspevok NapísalOffline : 11.04.2017 1:12

Mas tam velmi jasne napisane 10.4.2000 nie je validny integer a musim suhlasit, takto integer nevyzera.







_________________
Desktop: CPU AMD R7 1700x @ 3.85GHz | Cooling be quiet! Dark Rock Pro 4 | MB ASRock X470 Taichi Ult. | RAM 4x8GB DDR4 G-SKILL TridentZ RGB 3000 CL16-16-16-36 | VGA Powercolor VEGA56 + Raijintek Morpheus II | SSD Crucial MX300 525GB | HDD Seagate Ironwolf 3TB 5900rpm | PSU CORSAIR RM750X | MONITOR AOC Q3279VWFD8 | MOUSE HyperX Pulsefire FPS + Razer eXactMat | HyperX Alloy FPS Brown | HyperX Cloud | ARCH x64 &
Notebook: DELL inspiron 7537 i7 4500U, 16GB RAM, nv750, FHD IPS,Crucial M4 128GB | ARCH x64 & Surface Go 8/128 &
Mobil: LG v40 ThinQ (2018) & SBC: Raspberry pi 0 | 3B+ & Headphones: Senheiser HD58X | AKG K551 + detachable cable mod | Linsoul TIN T2 | KZ SZN
Offline

Užívateľ
Užívateľ
Usporiadanie prvkov v poli

Registrovaný: 01.05.14
Prihlásený: 07.11.19
Príspevky: 152
Témy: 52
Bydlisko: Dubovce
Príspevok Napísal autor témyOffline : 11.04.2017 7:50

Problem je v tom ze zadavam datum do stringu a potom ten string rozdelujem ale nechce mi to fungovat vzdy to napisu tu istu chybu


Offline

Skúsený užívateľ
Skúsený užívateľ
Usporiadanie prvkov v poli

Registrovaný: 24.01.08
Prihlásený: 13.09.17
Príspevky: 14572
Témy: 66
Bydlisko: Žilina
Príspevok NapísalOffline : 11.04.2017 11:22

Choď na chvíľu od pc a pozri sa na ten kód o týždeň. Myslíš, že sa v ňom ľahko vyznáš?
Samozrejme že si tam nevieš takto nájsť chybu. Chápem, že máš podľa profilu len 16, ale je fajn sa to naučiť poriadne.







_________________
C#, PHP, ...
Offline

Užívateľ
Užívateľ
Usporiadanie prvkov v poli

Registrovaný: 26.08.10
Prihlásený: 29.01.22
Príspevky: 1495
Témy: 58
Príspevok NapísalOffline : 13.04.2017 12:21

Nechapem vazne tieto trampoty s pascalom.. To mate v ramci zadania do skoly? Lebo ak ano, tak by ti mal pomoct najst chybu ucitel. Pokial tomu tak nie je a robis to v ramci samoucby, tak radim prejst na ine, progresivne jazyky, ktore su dnes standardom a su vhodne pre zaciatocnikov. Jeden z nich je napr. Python, aj ked ja niesom jeho zastanca z istych dovodov, je to fajn jazyk kvoli jednoduchej syntaxy a sirokej ponuky open source kniznic. Python je znamy aj tym, ze relativne kratkym kodom, resp. za kratky cas sa daju naprogramovat zaujimave veci.

Len tak pre ilustraciu jednoduchosti:

Usporiadanie prvkov v poli







_________________
ALL TIME best actors : Christian Bale, Denzel Washington, Tom Hardy
Odpovedať na tému [ Príspevkov: 5 ] 


Podobné témy

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

v PHP, ASP

2

596

07.07.2009 12:23

tomast7 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Hladanie v array poli a usporiadanie výsledkov

v PHP, ASP

10

774

09.07.2009 16:22

Unlink Zobrazenie posledných príspevkov

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

v JavaScript, VBScript, Ajax

8

467

31.05.2010 18:29

DARSON Zobrazenie posledných príspevkov

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

v PHP, ASP

1

853

05.11.2007 16:04

GoodWill Zobrazenie posledných príspevkov

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

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

2

371

18.10.2012 1:51

Gregi555 Zobrazenie posledných príspevkov

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

v PHP, ASP

5

498

23.04.2010 10:48

stenley Zobrazenie posledných príspevkov

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

v PHP, ASP

3

403

23.03.2012 11:39

exoomer Zobrazenie posledných príspevkov

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

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

17

1050

22.10.2012 17:40

Gregi555 Zobrazenie posledných príspevkov

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

v HTML, XHTML, XML, CSS

6

374

17.04.2014 12:06

Snipo Zobrazenie posledných príspevkov

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

v JavaScript, VBScript, Ajax

3

317

25.12.2013 15:07

shaggy Zobrazenie posledných príspevkov

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

v Operačné systémy Microsoft

0

326

24.08.2012 18:50

dangerous_123 Zobrazenie posledných príspevkov

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

v HTML, XHTML, XML, CSS

6

640

15.12.2009 20:07

neopagan Zobrazenie posledných príspevkov

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

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

26

931

28.03.2017 21:15

BX Zobrazenie posledných príspevkov

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

v Chladiče a všetky druhy chladenia

5

1825

20.10.2006 17:09

ScorpionSX Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Problém pri načítaní prvkov cez ajax

v JavaScript, VBScript, Ajax

0

509

12.03.2012 13:31

blazej44800 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. MAzanie prvkov z poľa v jave

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

5

1023

22.12.2010 11:55

Forty- Zobrazenie posledných príspevkov


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

Skočiť na:  

Powered by phpBB Jarvis © 2005 - 2024 PCforum, webhosting by WebSupport, secured by GeoTrust, edited by JanoF
Ako väčšina webových stránok aj my používame cookies. Zotrvaním na webovej stránke súhlasíte, že ich môžeme používať.
Všeobecné podmienky, spracovanie osobných údajov a pravidlá fóra