Obsah fóra
PravidláRegistrovaťPrihlásenie




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

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 18.05.09
Prihlásený: 25.01.11
Príspevky: 34
Témy: 9
Príspevok NapísalOffline : 15.01.2011 22:56

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.


Offline

Užívateľ
Užívateľ
delphi, mohol by mi niekto pomoct?? trojciferne čisla

Registrovaný: 12.10.06
Prihlásený: 24.04.24
Príspevky: 20311
Témy: 79
Bydlisko: Banska Byst...
Príspevok NapísalOffline : 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
Offline

Správca fóra
Správca fóra
delphi, mohol by mi niekto pomoct?? trojciferne čisla

Registrovaný: 17.04.08
Prihlásený: 24.04.24
Príspevky: 13259
Témy: 421
Bydlisko: Myjava
Príspevok NapísalOffline : 16.01.2011 0:10

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
Offline

Skúsený užívateľ
Skúsený užívateľ
delphi, mohol by mi niekto pomoct?? trojciferne čisla

Registrovaný: 11.01.09
Prihlásený: 24.04.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova
Príspevok NapísalOffline : 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.


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 18.05.09
Prihlásený: 25.01.11
Príspevky: 34
Témy: 9
Príspevok Napísal autor témyOffline : 23.01.2011 15:38

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?


Offline

Užívateľ
Užívateľ
delphi, mohol by mi niekto pomoct?? trojciferne čisla

Registrovaný: 03.01.11
Prihlásený: 21.02.11
Príspevky: 54
Témy: 1
Príspevok NapísalOffline : 24.01.2011 15:32

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)


Offline

Užívateľ
Užívateľ
delphi, mohol by mi niekto pomoct?? trojciferne čisla

Registrovaný: 16.05.07
Prihlásený: 01.08.17
Príspevky: 837
Témy: 6
Príspevok NapísalOffline : 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?


Odpovedať na tému [ Príspevkov: 7 ] 


Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy. Mohol by mi niekto pomoct

v Ovládače

1

428

15.02.2010 23:22

shiro Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. delphi zapis cisla do editu v delphi

v Delphi, Visual Basic

3

1107

11.05.2008 12:02

p360t Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. need help...vie niekto pomôcť

v Operačné systémy Microsoft

6

504

04.04.2008 19:50

shiro Zobrazenie posledných príspevkov

Táto téma je zamknutá, nemôžete posielať nové príspevky alebo odpovedať na staršie. Zravim moze mi niekto pomocť

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

1

478

04.11.2009 12:58

stenley Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Vedel by mi niekto pomôcť s nastavením internetu?

v Siete

5

362

03.05.2020 15:28

4040 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. [Delphi] Zapis real cisla v exponencialnom tvare

v Delphi, Visual Basic

0

610

13.01.2010 19:12

vama Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Zistenie majiteľa tel. čísla (potrebujem zistiť majitela tel. čísla)

v Ostatné

4

3335

02.11.2011 13:52

HGDS1 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Mohol by byt toto spyware???

v Antivíry a antispywary

2

459

11.08.2008 16:31

geronimo Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Stretavka , navrh ako by mohol vyzerat nadpis!

[ Choď na stránku:Choď na stránku: 1, 2 ]

v Vzdelanie, štúdium, škola

47

2706

06.06.2008 20:01

don jebot Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Kde by som mohol stiahnut kniznicu vgl.h a ....

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

5

431

16.10.2013 21:01

mikimh Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Ako by som mohol prepojit satelit DIGI TV cez monitor?

v Monitory, televízory a projektory

0

1763

08.09.2007 11:37

freem1 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. ako sa mi mohol dostat virus do pc po formatovani

v Bezpečnosť a firewally

11

1984

22.06.2009 4:28

samael.35 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. poradte mi ze co by som mohol este zlepšiet alebo vvymenit .

v PC zostavy

13

659

09.04.2011 19:44

brmbo Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. ako rozdelit6,7gigovy image aby som to mohol napalit na 2DVD

v Ostatné programy

8

1183

03.05.2007 20:05

muffy69 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. P: Starší PC po menších upravách by mohol byť aj herný

v Predám

1

254

02.03.2013 20:49

athlon Zobrazenie posledných príspevkov

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

v Elektronika

6

634

27.04.2007 16:18

Jopi 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:  
cron

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