Matematické Fórum

Tom959 · 16. 01. 2011 13:08 — Editoval Tom959 (16. 01. 2011 19:21)

Dostal jsem takové to zadání úkolu. Děkuju všem za rady:

Mezi přirozenými čísly existují čtyři čísla, která se rovnají součtu třetích mocnin svých cifer.
První z nich je 153 (153 = 1na třetí + 5na třetí + 3na třetí ).
Sestavte program pro nalezení zbylých tří čísel. Hledané čísla jsou menší než 410.

Stýv · 16. 01. 2011 13:26

prostě projdi cyklem všechny čísla od 1 do 410 a ověř danou vlastnost. btw 13+53+33=99

VojtechSejkora · 16. 01. 2011 13:54

↑ Stýv:
on to asi špatně spočítal mělo by to být..:D

má to být 153=1+125+27

Tom959 · 16. 01. 2011 13:55 — Editoval Tom959 (16. 01. 2011 16:07)

↑ Stýv:

153 = (1na třetí + 5na třetí + 3na třetí) nebere to indexy

jde o to,že se pascal učím 3 měsíce, vůbec nevím jak se tohle dělá.

Byl by někdo tak hodný a udělal tento pascal. Děkuju moc

Dioxid · 16. 01. 2011 17:37

↑ Tom959: Umíš nějaké celé číslo "rozporcovat" tak, aby jsi dostal postupně po jedné všechny jeho cifry?

Tom959 · 16. 01. 2011 17:44

↑ TomDlask: Řeknu to tak, jsem naprostý nováček, zatím neumím skoro nic v pascalu. Jen máme **** učitele, který nám tohle zadal a sám ani neví jak se to dělá.

Takže závěr: nedokážu to.

Dioxid · 16. 01. 2011 17:51

↑ Tom959:
Když vezmeme postup "ručně":

153 mod 10 = 3
153 div 10 = 15
15 mod 10 = 5
15 div 10 = 1
1 mod 10 = 1
1 div 10 = 0

Vidíš v tom nějaký algoritmus?

Tom959 · 16. 01. 2011 17:57

↑ TomDlask: Nepíš v hádankách. Rád bych to pochopil, ale to pro mě asik nepřipadá v úvahu. Byl by jsi tak hodný a udělal mi tento příklad v pascalu?

janca361 · 16. 01. 2011 18:05

↑ Tom959:
Aspoň trochu se snaž! Věřím, že aspoň část programu zvládneš ;)

Tom959 · 16. 01. 2011 18:12

↑ janca361: Děkuju, rád bych tomu rozuměl a něco udělal, ale nikdy jsem tenhle typ neviděl netuším co tam patří. :(

janca361

↑ Tom959:
A aby si neřekl, že jen dělám chytrou a nic k tématu nenapíšu...
Vzpomeň si na matematiku:
Máš číslo xyz, jedná se o trojmístné číslo, kde každou jeho cifru zastupuje písmeno x,y a z
$xyz=x*100+y*10+z$
Ty víš, že všechny čísla jsou menší než 410.
Číslo tedy můžeš rozložit také:
xyz div 100 = $x$
xyz mod 100 = yz
yz div 10 = $y$
yz mod 10 = $z$

Je to podobný jako píše TomDlask, ale pokud se ti vybaví ta souvislost s matematikou....

Pavel Brožek · 16. 01. 2011 18:14

↑ Tom959:

Dejme tomu, že umíš jen celočíselně dělit a určit zbytek po celočíselném dělení. Jak bys z nějakého čísla pomocí těchto dvou operací určil jeho cifry?

(To nesouvisí nijak s pascalem, než se budeš snažit napsat program v konkrétním programovacím jazyce, měl bys mít jasno v tom, jak vůbec vypadá algoritmus, který chceš napsat.)

Dioxid

↑ Tom959: Chtěl jsem, aby jsi tomu rozumněl. Když ti tu vyplodím kód, tak z toho nikdo nic nebude mít.
Takže ten postup na rozporcování cifer v pseudokódu:

1) Máme číslo v proměnné n
2) Dokud bude n rozdílné od nuly, tak budeme dělat:
2a) a=n mod 10;
2b) n=n div 10;

Je vidět, že v proměnné a se vystřídají všechny cifry? Jestliže ano, tak můžeme jít dál.

Edit: psal jsem to dlouho, tak to tu máme víckrát

janca361 · 16. 01. 2011 18:20

↑ Tom959:

Ještě kontrolní otázka: Objevují se tu operace mod a div, víš co dělají?

Tom959 · 16. 01. 2011 18:22 — Editoval Tom959 (16. 01. 2011 18:26)

↑ janca361: mod je zbytek po celočíselném podílu a div je celočíselný podíl.

Ano tohle chápu.

Dioxid

↑ Tom959: Rozumíš tedy tomu postupu na získání (po jedné) cifer nějakého celého čísla? Bylo to tu už napsáno několika způsoby.

janca361

↑ Tom959:
Fajn. A pochopil si, co se ti tu snažíme říct?

EDIT: TomDlask byl rychlejší

Tom959 · 16. 01. 2011 18:31

Ano tohle chápu.

janca361

↑ Tom959:
Super! A když ti řeknu, že $x^3=x*x*x$ Budeš schopen napsat program? Pokus se o to, klidně to sem dej i s chybama. Žádný učený z nebe nespadl ;)

Tom959 · 16. 01. 2011 18:40

Vůbec netuším jak mi $x^3=x*x*x$ pomůže napsat program. Jak jsem psal máme né příliš dobrého učitele. Neumím ani základy. Napišu program, var , begin a dál už netuším. Je to se mnou špatné :)

janca361 · 16. 01. 2011 18:44

↑ Tom959:
Pascal nemá funkci $x^3$ proto to musíš udělat jako $x*x*x$
Vychází to z toho co je to mocnina (nevymyslela jsem si to ;)):
$http://upload.wikimedia.org/math/1/4/c/14c06c7cec658d3799511daa4ce8594f.png$
Zkus napsat to, co zvládneš, nějak to dáme dohromady ;)

Dioxid · 16. 01. 2011 18:47

↑ Tom959: Dokážeš tudíž napsat program, co ti bude po jedné cifře vypisovat číslo... Teď následuje souhrn otázek:
Dokážeš napsat program, který vypočítá ciferný součet?
Dokážeš napsat program, který vypočítá součet třetích mocnin cifer?

Tom959 · 16. 01. 2011 19:08 — Editoval Tom959 (16. 01. 2011 19:11)

Pro TomBlask : ne nedokážu napsat nic. říkal jsem, že nemám vůbec základy

program cifry;
var j,d,s,i:integer;
begin
writeln('Zadej cislo');
readln(j,d,s);
for i=1 to 410 do

readln;
end.

Omluvte mojí hloupost. :-( Ale určitě je to všechno blbě a netuším jak dál

Dioxid · 16. 01. 2011 19:13

Z tvého příspěvku "Ano tohle chápu." jsem vydedukoval, že ten program napsat umíš, takže znovu:
Předvedu ti, jak získat ciferný součet nějakého čísla n na vstupu:

1) Máme číslo v proměnné n a v proměnné součet je 0
2) Dokud bude n rozdílné od nuly, tak budeme dělat:
2a) a=n mod 10;
2b) součet=součet+a;
2b) n=n div 10;
3) Po ukončení cyklu máme v proměnné součet ciferný součet čísla n.

Rozumíš tomuto postupu získání ciferného součtu? Jestliže ne, napiš kterému kroku nerozumíš

Tom959 · 16. 01. 2011 19:21

↑ TomDlask:Když mi to napíšeš takhle obecně... Bylo by možné napsat tohle na konkrétním příkladu?

Matematické Fórum

#1 16. 01. 2011 13:08 — Editoval Tom959 (16. 01. 2011 19:21)

Pascal - nevím si rady

#2 16. 01. 2011 13:26

Re: Pascal - nevím si rady

#3 16. 01. 2011 13:54

Re: Pascal - nevím si rady

#4 16. 01. 2011 13:55 — Editoval Tom959 (16. 01. 2011 16:07)

Re: Pascal - nevím si rady

#5 16. 01. 2011 17:37

Re: Pascal - nevím si rady

#6 16. 01. 2011 17:44

Re: Pascal - nevím si rady

#7 16. 01. 2011 17:51

Re: Pascal - nevím si rady

#8 16. 01. 2011 17:57

Re: Pascal - nevím si rady

#9 16. 01. 2011 18:05

Re: Pascal - nevím si rady

#10 16. 01. 2011 18:12

Re: Pascal - nevím si rady

#11 16. 01. 2011 18:14 — Editoval janca361 (16. 01. 2011 18:15)

Re: Pascal - nevím si rady

#12 16. 01. 2011 18:14

Re: Pascal - nevím si rady

#13 16. 01. 2011 18:15 — Editoval TomDlask (16. 01. 2011 18:17)

Re: Pascal - nevím si rady

#14 16. 01. 2011 18:20

Re: Pascal - nevím si rady

#15 16. 01. 2011 18:22 — Editoval Tom959 (16. 01. 2011 18:26)

Re: Pascal - nevím si rady

#16 16. 01. 2011 18:24 — Editoval TomDlask (16. 01. 2011 18:25)

Re: Pascal - nevím si rady

#17 16. 01. 2011 18:25 — Editoval janca361 (16. 01. 2011 18:26)

Re: Pascal - nevím si rady

#18 16. 01. 2011 18:31

Re: Pascal - nevím si rady

#19 16. 01. 2011 18:33 — Editoval janca361 (16. 01. 2011 18:33)

Re: Pascal - nevím si rady

#20 16. 01. 2011 18:40

Re: Pascal - nevím si rady

#21 16. 01. 2011 18:44

Re: Pascal - nevím si rady

#22 16. 01. 2011 18:47

Re: Pascal - nevím si rady

#23 16. 01. 2011 19:08 — Editoval Tom959 (16. 01. 2011 19:11)

Re: Pascal - nevím si rady

#24 16. 01. 2011 19:13

Re: Pascal - nevím si rady

#25 16. 01. 2011 19:21

Re: Pascal - nevím si rady

Zápatí