| | |
| Stránka: 1 z 1
| [ Príspevkov: 7 ] | |
Autor | Správa |
---|
Registrovaný: 18.05.09 Prihlásený: 25.01.11 Príspevky: 34 Témy: 9 |
zdravím, nevie mi niekto pomoct s príkazmi??
do editu mám zadávať nejaké celé čislo y. ktoré trojciferné čísla maju daný ciferný sučet y? (napr, že ak dáme vstup 3 tak výstup budú tri jednotky). tie trojciferné čisla sa maju vytvoriť po jednotlivých číslach s použitím cyklov FOR, alebo každé takéto číslo podelíme na cifry a zistíme či nám vyhovuje.
|
|
Registrovaný: 12.10.06 Prihlásený: 24.04.24 Príspevky: 20311 Témy: 79 Bydlisko: Banska Byst... | Napísal shiro: 15.01.2011 23:01 | |
|
na to chodis do skoly aby si si vedel sam robit domace ulohy.
_________________ Ryzen 7 3700X | SilentiumPC Fera 3 | Asrock X570M Pro4 | Patriot Viper 4 Blackout 16GB DDR4-3600 CL17 | Gainward RTX4060 Ti Pegasus 8GB | Samsung 970evo Plus 250GB NVMe | Corsair MP510 1TB NVMe | Samsung 980 Pro 2TB NVMe | Corsair RM550x | 24" BenQ GW2470H | 3x Noctua NF-S12B redux 1200 PWM Xiaomi Mi 9 Lite 64GB |
|
Registrovaný: 17.04.08 Prihlásený: 24.04.24 Príspevky: 13259 Témy: 421 Bydlisko: Myjava |
shiro relax, da sa to riesit, staci ked crystal napise, co uz ma momentalne spravene, hotove a s ktorou castou ulohy konkretne si nevie dat rady, teda co chce, aby sme mu pomohli,alebo spravili.
_________________ PC: MSI B450 GAMING PLUS / AMD Ryzen 5 2600 / SilentiumPC Fera 3 HE1224 / ADATA XPG Spectrix D40 DDR4 2x8GB / Gainward GeForce GTX 1060 Phoenix 6GB / Adata XPG Gammix S11 M.2 SSD 480GB NVMe / Seagate BarraCuda HDD 2TB / WD Green 4TB / WD My Book Essential 3.0 2000GB / WD Elements 2000GB / ASUS BW-16D1HT / Creative Sound Blaster Audigy RX / Corsair CX450M / SilentiumPC Regnum RG4T / Dell P2719H / Microsoft Natural Ergonomic Keyboard 4000 / Logitech G102 Prodigy Gaming Mouse / Microlab SOLO9C / Microlab B77 / SONY WH-1000XM4 / Koss Porta Pro / Microsoft Windows 10 64-bit FPP PC (history): ASUS M4A785TD-V EVO / Athlon II X4 640 / Hynix 8GB (2x4GB) DDR3 1600 MHz / Sapphire HD7750 1GB Ultimate Silent Series / AMD Radeon R3 120GB / Seagate 7200.12 500GB / Samsung SH-S223L / Creative Sound Blaster X-Fi XtremeMusic / Axago PCEU-43R USB3.0 / TP-LINK TG-3269 / Corsair VS450 / 24" BenQ G2420HDBL / Gigabyte GT-U8300 NTB: Huawei MateBook D15 NTB2: Alcatel PLUS 10 LTE NTB3: MSI M670X-091SK / Transcend 2x1GB DDR2 667MHz Phone: Samsung Galaxy S9 Phone2: Samsung Galaxy S20+ Turntable: Tesla NC 470 / Ortofon OM 5E |
|
Registrovaný: 11.01.09 Prihlásený: 24.04.24 Príspevky: 1385 Témy: 9 Bydlisko: Hrinova | Napísal Fico: 16.01.2011 10:05 | |
|
Napísal by som ti to celé, lebo to nie je ťažké, ale asi by ma týto predo mnou zdrbali ( koniec koncov majú pravdu )
1.) vstup editu je uložený ako string, napriek tomu, že tam vložíš celé číslo. Keďže s ním chceš pracovať ako s celým číslom, treba ho skonvertovať:
Kód: celeCislo := StrToInt( edit1.Text ); Zvykne sa to ešte ošetrovať blokom try/finally, kôli nesprávnemu vstupu, ale keď sa to ešte neučili, tak to nechaj tak 2.) všetky trojciferné čísla prejdeš v cykle for takto: Kód: for i:= 100 to 999 do 3.) v tomto cykle budeš počítať ciferný súčet jednotlivých trojciferných čísel a to takto, že ich prevedieš na string a pracuješ s každým znakom zvlášť: Kód: // cifra je string cifra := IntToStr( i ); // sucet je integer sucet := StrToInt( cifra[1] ) + StrToInt( cifra[2] ) + StrToInt( cifra[3] ); Existuje jednoduchší spôsob, ako previesť jednociferné číslo na reťazec, ale neviem, či by si to pochopil, tak radšej použi tento spôsob. 4.) nakoniec už len porovnaj celeCislo a sucet a ak sa rovnajú, výsledok si ulož napr do TMemo komponentu: Kód: Memo1.Lines.Add( IntToStr( i ) );
Ak budeš mať konkrétny problém, tak to už by nemalo byť proti pravidlám, takže smelo sa pýtaj.
|
|
Registrovaný: 18.05.09 Prihlásený: 25.01.11 Príspevky: 34 Témy: 9 |
pardón ak ste to zle pochopili, nechcel som aby ste mi vypisovali kompletný príkaz, súčet čísel mám, len neviem s akým príkazom mám ten súčet rozložiť...mám edit, napíšem tam napr. 1451, v label1.caption mi vyhodí súčet 11 a ešte ten súčet potrebujem rozložiť na tri čísla, asi to dám do memo.lines, aký príkaz sa nato používa? takisto cyklus?
|
|
Registrovaný: 03.01.11 Prihlásený: 21.02.11 Príspevky: 54 Témy: 1 |
crystal131 píše: pardón ak ste to zle pochopili, nechcel som aby ste mi vypisovali kompletný príkaz, súčet čísel mám, len neviem s akým príkazom mám ten súčet rozložiť...mám edit, napíšem tam napr. 1451, v label1.caption mi vyhodí súčet 11 a ešte ten súčet potrebujem rozložiť na tri čísla, asi to dám do memo.lines, aký príkaz sa nato používa? takisto cyklus? tak po prve, ciferny sucet 1451 nie je 11 ale 13, na to mi ani vysoku skolu netreba. Po druhe, v prvom prispevku si pisal ine zadanie, tak neviem preco ratas ciferny sucet vstupu. Podla prveho zadania sa tento sucet uz zadaval, a teda ti malo "vyplut" 1451 a nie sucet tychto cifier. Po tretie, takymto uvazovanim (spravit sucet a rozkladat ho) nenajdes vsetky moznosti. V prvom prispevku si si dal priklad s trojkou. Ze zadam 3 a vypluje mi 111. Ale nenajdes moznost 120, nenajdes 210, nenajdes 102, ani 201 a nenajdes ani 300. Takze to pekne prechadzaj cyklom pre vsetky trojciferne cisla ako ti bolo povedane (aj ten rozsah by sa dal zoptimalizovat ked trosku pouzijes matiku)
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | Napísal juho: 07.02.2011 18:54 | |
|
prohibit píše: tak po prve, ciferny sucet 1451 nie je 11 ale 13, na to mi ani vysoku skolu netreba no skus ijst na vysoku skolu a vysvetlit im ze preco je to tak? 1+4=5 5+1=6 => 5+6=11 hmm tak to potom jak ti to stale vychadza 13? to aku zakladnu skolu si navstevoval?
|
|
| Stránka: 1 z 1
| [ Príspevkov: 7 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| Mohol by mi niekto pomoct v Ovládače | 1 | 428 | 15.02.2010 23:22 shiro | | delphi zapis cisla do editu v delphi v Delphi, Visual Basic | 3 | 1107 | 11.05.2008 12:02 p360t | | need help...vie niekto pomôcť v Operačné systémy Microsoft | 6 | 504 | 04.04.2008 19:50 shiro | | Zravim moze mi niekto pomocť v Assembler, C, C++, Pascal, Java | 1 | 478 | 04.11.2009 12:58 stenley | | Vedel by mi niekto pomôcť s nastavením internetu? v Siete | 5 | 362 | 03.05.2020 15:28 4040 | | [Delphi] Zapis real cisla v exponencialnom tvare v Delphi, Visual Basic | 0 | 610 | 13.01.2010 19:12 vama | | Zistenie majiteľa tel. čísla (potrebujem zistiť majitela tel. čísla) v Ostatné | 4 | 3335 | 02.11.2011 13:52 HGDS1 | | Mohol by byt toto spyware??? v Antivíry a antispywary | 2 | 459 | 11.08.2008 16:31 geronimo | | Stretavka , navrh ako by mohol vyzerat nadpis! [ Choď na stránku: 1, 2 ] v Vzdelanie, štúdium, škola | 47 | 2706 | 06.06.2008 20:01 don jebot | | Kde by som mohol stiahnut kniznicu vgl.h a .... v Assembler, C, C++, Pascal, Java | 5 | 431 | 16.10.2013 21:01 mikimh | | Ako by som mohol prepojit satelit DIGI TV cez monitor? v Monitory, televízory a projektory | 0 | 1763 | 08.09.2007 11:37 freem1 | | ako sa mi mohol dostat virus do pc po formatovani v Bezpečnosť a firewally | 11 | 1984 | 22.06.2009 4:28 samael.35 | | poradte mi ze co by som mohol este zlepšiet alebo vvymenit . v PC zostavy | 13 | 659 | 09.04.2011 19:44 brmbo | | ako rozdelit6,7gigovy image aby som to mohol napalit na 2DVD v Ostatné programy | 8 | 1183 | 03.05.2007 20:05 muffy69 | | P: Starší PC po menších upravách by mohol byť aj herný v Predám | 1 | 254 | 02.03.2013 20:49 athlon | | Potrebujem pomocť v Elektronika | 6 | 634 | 27.04.2007 16:18 Jopi |
| 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
|
|