2 Paskalio užduotys

Išprotėjimas programuot su Pascal... Nepavyksta 2 užduotys.

1. Parašykite sprendimo idėjos aprašą ir funkciją, randančią, kiek duotas natūrinis skaičius turi teigiamų daliklių.

Pavyzdžiui, kai duotas skaičius 12, funkcijos reikšmė turi būti 6, nes skaičius 12 turi šešis daliklius: 1, 2, 3, 4, 6, 12.

2. Fibobačio seka: pirmasis ir antrasis nariai – vienetai, kiekvienas kitas – lygus prieš jį einančių dviejų narių sumai. Pradinis duomuo – natūralusis skaičius n, reiškiantis Fibonačio sekos elementų kiekį.

Parašykite programą su rekursine funkcija, kuri Fibonačio sekos narius

1, 1, 2, 3, 5, 8, 13, ...

kompiuterio ekrane pavaizduotų grafiškai, t. y. žvaigždutėmis:

*

*

**

***

*****

********

*************

...

Dėkui, kas suteiks pagalbą.

O bent bandei, kad "nepavyksta"? Ar šiaip ieškai, kas neturi ką veikt, ir padarytų už tave? Nes šiaip, jei nepavyksta žmonėms, tai dažniausiai jei parodo, ką/kaip darė ir kas nepavyksta, o jei nori, kad viską už juos padarytų, tai pinigėlius šiais laikais moka visi.

1. net nesupratau gerai, 2. bandžiau iki išprotėjimo. Šiaip 2. su php padaryčiau manau, bet su pascal... O pirmos net tiksliai nesuprantu ko iš manęs reikalauja.

Sprendimo idėjos aprašas - kaip suprast?

Nors hmm, pirmą gal bendrai pasidarysiu, tik nekertu, kas yra sprendimo idėjos aprašas. Gal reiškia, kad turiu komentarus sudėt su paaiškinimais? Vat su antra liūdniau.

Nervina juodai su rekursija. Blogiausia, kad jos praktiškai beveik niekas nenaudoja, o čia reikia spręst... Kur be rekursijos, tai pasidarau, o kur su ja, tai durna ne tas žodis.

Pirmame tik daliklius surasti reikia. Principas toks:

function dalikliu(sk: longint): longint;
begin
dalikliu := 0;
for i := 1 to sk do
if sk mod i = 0 then dalikliu := dalikliu + 1;
end;

Neoptimalu, bet turetu veikti.

Antra irgi lengva, bet iš telefono nerašysiu. :)

T-Mix dėkui dar kartą, jau šiandien antrą kart padedi. Tik kas tas sprendimo idėjos aprašas? Nors paaiškėjo ir su antra jau manau. Tik klausimas kitas: iki kiek daryt fibonačio seką? Ai persiskaičiau jau, kad n. Blemba, galva jau nebeveikia, bet reikia baigt.

T-Mix dėkui dar kartą, jau šiandien antrą kart padedi. Tik kas tas sprendimo idėjos aprašas? Nors paaiškėjo ir su antra jau manau. Tik klausimas kitas: iki kiek daryt fibonačio seką?

Skaičių daliname iš visų skaičių nuo 1 iki sk. Jei gauname liekaną nulinę - daliklių kiekį didiname vienetu. :)

Fibonači generuok iki įvesto skaičiaus - n.

Gerai dėkui, susitvarkysiu pats jau kas liko.

Galiu mainyt bet kokį 1 uždavinį į 15. Jei kas susidomėjot - až man.

Galiu mainyt bet kokį 1 uždavinį į 15. Jei kas susidomėjot - až man.

function gretiniai(m, n: longint):longint;
begin
if (m = m-(n-1)) then gretiniai := m
				 else gretiniai := (m-(n-1))*gretiniai(m, n-1);
end;

Šiaip gerokai lengviau apsiskaičiuoja su faktorialais, bet man prieš kelis metus irgi buvo šitas uždavinys, tai to gerokai lengvesnio sprendimo neužskaitė. :)

Čia toks painus, bet pagal apibrėžimą viskas padaryta, turėtų tikti. ^_^

T-Mix manau per daug tu žiniom svaidaisi į visas puses. :)

T-Mix manau per daug tu žiniom svaidaisi į visas puses. ^_^

(juokauju ^_^)

JPM I kursas? ;DD Pamenu situs uzdavinius :)