Stránka: 1 z 1
| [ Príspevkov: 5 ] | |
Autor | Správa |
---|
Registrovaný: 01.05.14 Prihlásený: 07.11.19 Príspevky: 152 Témy: 52 | 52 Bydlisko: Dubovce |
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: 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]); 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.
|
|
Registrovaný: 19.03.07 Prihlásený: 25.12.24 Príspevky: 7076 Témy: 85 | 85 Bydlisko: BA |
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 |
|
Registrovaný: 01.05.14 Prihlásený: 07.11.19 Príspevky: 152 Témy: 52 | 52 Bydlisko: Dubovce |
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
|
|
Registrovaný: 24.01.08 Prihlásený: 13.09.17 Príspevky: 14572 Témy: 66 | 66 Bydlisko: Žilina |
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, ... |
|
Registrovaný: 26.08.10 Prihlásený: 29.01.22 Príspevky: 1495 Témy: 58 | 58 |
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:
_________________ ALL TIME best actors : Christian Bale, Denzel Washington, Tom Hardy |
|
Stránka: 1 z 1
| [ Príspevkov: 5 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| v PHP, ASP | 2 | 626 | 07.07.2009 12:23 tomast7 | | v PHP, ASP | 10 | 807 | 09.07.2009 16:22 Unlink | | v JavaScript, VBScript, Ajax | 8 | 517 | 31.05.2010 18:29 DARSON | | v PHP, ASP | 1 | 897 | 05.11.2007 16:04 GoodWill | | v Assembler, C, C++, Pascal, Java | 2 | 398 | 18.10.2012 1:51 Gregi555 | | v PHP, ASP | 5 | 527 | 23.04.2010 10:48 stenley | | v PHP, ASP | 3 | 442 | 23.03.2012 11:39 exoomer | | v HTML, XHTML, XML, CSS | 6 | 413 | 17.04.2014 12:06 Snipo | | v Assembler, C, C++, Pascal, Java | 17 | 1106 | 22.10.2012 17:40 Gregi555 | | v HTML, XHTML, XML, CSS | 6 | 704 | 15.12.2009 20:07 neopagan | | v Assembler, C, C++, Pascal, Java | 26 | 1042 | 28.03.2017 21:15 BX | | v Chladiče a všetky druhy chladenia | 5 | 1860 | 20.10.2006 17:09 ScorpionSX | | v JavaScript, VBScript, Ajax | 3 | 353 | 25.12.2013 15:07 shaggy | | v Operačné systémy Microsoft | 0 | 363 | 24.08.2012 18:50 dangerous_123 | | v Assembler, C, C++, Pascal, Java | 5 | 1073 | 22.12.2010 11:55 Forty- | | v JavaScript, VBScript, Ajax | 0 | 550 | 12.03.2012 13:31 blazej44800 |
|