[ 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 | 52
Bydlisko: Dubovce
NapísalOffline : 10.04.2017 22:30 | Usporiadanie prvkov v poli

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ý: 25.12.24
Príspevky: 7076
Témy: 85 | 85
Bydlisko: BA
NapísalOffline : 11.04.2017 1:12 | Usporiadanie prvkov v poli

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 | 52
Bydlisko: Dubovce
Napísal autor témyOffline : 11.04.2017 7:50 | Usporiadanie prvkov v poli

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 | 66
Bydlisko: Žilina
NapísalOffline : 11.04.2017 11:22 | Usporiadanie prvkov v poli

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 | 58
NapísalOffline : 13.04.2017 12:21 | Usporiadanie prvkov v poli

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
 [ Príspevkov: 5 ] 


Usporiadanie prvkov v poli



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

626

07.07.2009 12:23

tomast7

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

Hladanie v array poli a usporiadanie výsledkov

v PHP, ASP

10

807

09.07.2009 16:22

Unlink

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

Načítavanie prvkov

v JavaScript, VBScript, Ajax

8

517

31.05.2010 18:29

DARSON

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

zoradenie prvkov databazy

v PHP, ASP

1

897

05.11.2007 16:04

GoodWill

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

Presun prvkov pola

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

2

398

18.10.2012 1:51

Gregi555

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

vyber prvkov - POLIA

v PHP, ASP

5

527

23.04.2010 10:48

stenley

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

Zlucenie prvkov pola

v PHP, ASP

3

442

23.03.2012 11:39

exoomer

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

Problém s umiestnením prvkov

v HTML, XHTML, XML, CSS

6

413

17.04.2014 12:06

Snipo

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

Pascal - posun prvkov pola

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

17

1106

22.10.2012 17:40

Gregi555

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

usporiadanie divov

v HTML, XHTML, XML, CSS

6

704

15.12.2009 20:07

neopagan

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

Usporiadanie čísiel

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

26

1042

28.03.2017 21:15

BX

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

Usporiadanie kablov

v Chladiče a všetky druhy chladenia

5

1860

20.10.2006 17:09

ScorpionSX

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

Usporiadanie vysledkov

v JavaScript, VBScript, Ajax

3

353

25.12.2013 15:07

shaggy

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

Usporiadanie suborov

v Operačné systémy Microsoft

0

363

24.08.2012 18:50

dangerous_123

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

1073

22.12.2010 11:55

Forty-

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

550

12.03.2012 13:31

blazej44800



© 2005 - 2024 PCforum, edited by JanoF