Top novinka v O2 e-shope

Užívateľ

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.

Skúsený užívateľ

na to chodis do skoly aby si si vedel sam robit domace ulohy.

Administrátor

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.

Skúsený užívateľ

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.

Užívateľ

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?

Užívateľ

crystal131 napísal:

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)

Zablokovaný užívateľ

prohibit napísal:

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?

Top novinka v O2 e-shope

Sprostredkovávajte hypotéky

Poistenie presne pre Vás

Priprav sa na futbalové EURO

Zaregistruj sa!

delphi, mohol by mi niekto pomoct?? trojciferne čisla

SEO - optimalizácia pre vyhľadávače

Freebsd