Stránka: 1 z 1
| [ Príspevkov: 5 ] | |
Autor | Správa |
---|
Registrovaný: 03.09.11 Prihlásený: 27.09.11 Príspevky: 7 Témy: 2 | 2 |
Zdravim, vedel by mi niekto napisat ako zadam ciselne hodnoty z klavesnice do pola a ukoncujem napriklad cislom 0 ak neviem vopred pocet. Dik za odpoved, prehladal som uz toho dost ale nepodarilo sa mi najst (robim v dev pascale );
|
|
Registrovaný: 27.12.08 Prihlásený: 13.12.22 Príspevky: 1874 Témy: 96 | 96 Bydlisko: Bratislava,... |
čo takto niečo na štýl:
- prečítať hodnotu
- ak nie je nula -> vložiť do poľa, opakovať
- ak je nula -> skončiť
_________________ ~Listen to your brain, not your heart~ NB1: Lenovo Y500: CPU: Intel Core i7-3630QM; GPU: nVidia GT650M 2GB SLi; RAM: 16GB DDR3; HDD: 1TB + 256GB SSD (m4); LCD: 15,6" 1920x1080; OS: Win8.1 64-bit + Arch Linux 64-bit (UEFI Powered DualBoot) NB2: Asus K53SJ-SX093: CPU: Intel Core i3-2310M; GPU: Intel HD3000 / nVidia GT520M 1GB Optimus; RAM: 8GB DDR3; SSD: 128GB 840Evo; LCD: 15,6" 1366x768; OS: Win 8.1 Pro 64-bit (UEFI) |
|
Registrovaný: 03.09.11 Prihlásený: 27.09.11 Príspevky: 7 Témy: 2 | 2 |
hej hej presne, aby sa z toho dalo napriklad urcit maximum al. minimum
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | 6 |
Kód: var a:array[1..100] of integer;i:byte; begin i:=0; repeat inc(i); write('zadaj ',i,'. cislo: '); readln(a[i]); until a[i]=0; end. ked pre urcenie maxima alebo minima tak Kód: var max,min,cislo:byte; begin max:=0; min:=255; repeat readln(cislo); if(cislo=0)then break; if(min>cislo)then min:=cislo; if(max<cislo)then max:=cislo; until cislo=0; end.
_________________ getch();?{readkey;?} na konci? !A naco! Riesenie je (Alt+F5)
99% pochopí a shaggy je druhá kategória |
|
Registrovaný: 03.09.11 Prihlásený: 27.09.11 Príspevky: 7 Témy: 2 | 2 | |
Stránka: 1 z 1
| [ Príspevkov: 5 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| v PHP, ASP | 8 | 564 | 05.04.2012 13:29 1daemon1 | | v JavaScript, VBScript, Ajax | 2 | 635 | 17.09.2009 2:00 SonnY | | v JavaScript, VBScript, Ajax | 2 | 451 | 17.11.2013 17:05 DeadOne | | v Assembler, C, C++, Pascal, Java | 1 | 1041 | 09.03.2010 20:27 ac.milan | | v Assembler, C, C++, Pascal, Java | 2 | 683 | 14.03.2017 16:27 void | | v Assembler, C, C++, Pascal, Java | 2 | 388 | 04.11.2017 16:56 camarovk19 | | v Assembler, C, C++, Pascal, Java | 4 | 1042 | 06.06.2008 18:25 pccom | | v Krčma | 9 | 1816 | 25.12.2012 18:12 Vikinger | | v Assembler, C, C++, Pascal, Java | 8 | 2138 | 12.12.2017 11:58 Skippy | | v Databázy | 2 | 870 | 11.08.2008 19:40 Speeder21 | | v Assembler, C, C++, Pascal, Java | 15 | 1523 | 04.10.2008 17:40 dsljohn | | v Assembler, C, C++, Pascal, Java | 6 | 956 | 09.05.2008 10:46 toma-mato | | v Kôš | 0 | 22 | 05.12.2021 12:10 meechal | | v Databázy | 1 | 520 | 17.03.2016 17:09 Kraliček | | v Assembler, C, C++, Pascal, Java | 0 | 441 | 03.11.2012 12:56 csabika001 | | [ Choď na stránku: 1, 2 ] v Assembler, C, C++, Pascal, Java | 33 | 922 | 16.11.2016 14:21 brmbo |
|