Paskal

Kao što verovatno znate, u srednjim školama se obrađuje Paskal. Da, katastrofa jebena.
Enivej, ja imam test sutra i nemam blage veze. Radimo FOR naredbu.
Daklem, zamolio bih vas ako možete da mi napišete kako se piše sledeći zadatak(algoritam ne mora):
Sa tastature se učitava n prirodnih brojeva. Napisati program koji izračunava proizvod njihovih recipročnih vrednosti. Znam kako treba da izgleda zadatak, ali ne umem da ga postavim lepo.

ti ispiti bi morali nekako da se na racunaru rade...

Радјард Куплунг
Eme ložiš da vam na takmičenju daju nacrtan algoritam za množenje deset brojeva

TESLARAC, VIMO SE U FINALU

http://i61.tinypic.com/k9c38l.jpg

Malo se programira, malo se drka

faktorijel ko faktorijel je lak da nemož biti lakši, samo provrtiš promenljivu kroz for petlju i pomnožiš je sa svakom vrednošću promenljive koja određuje petlju. A meni i dalje nije jasno šta se u ovom zadatku traži

platipusu, ovaj toalet papir na stolu ti sluzi kad se smoris malo od ucenja pa izdrkas, da se obrises?

Radjarde, tebra, ja imam na kont imam 5 zadataka, duplo teži brate lololo

(btw ovo nije moja soba, niti sam ja imao...za sta da koristim onu rolnu papira)

Kasno sam se setio da dodam, morao sam da editujem :D
Ali da, cuvam i jednu Pavlovicevu mast u fioci, posto me po nekada jednostavno mrzi da trosim energiju na pokrete ruku..

Malo se programira, malo se drka

Hahahhahahahahahah

Sejo_govedo
program p1;
var
n,s,i:integer ;
begin
writeln('uneti broj');
readln(n) ;
S:=0 ;
FOR i:=6 TO n DO
begin
S:=S+(i puta i puta i);
i:=i+2;
end;
writeln(s);
end;

Ne valja ti ovo, i:=i+2 sjeba petlju i ode sve u kurac.

ok, skapirao šta zadatak traži, lako je. Samo mi reci da li u paskalu beše možeš da napišeš npr. 2^2 ili nema integrisano stepenovanje? Pošto bi onda mogao da mu vrtiš da li je pozitivan ili negativan preko (-1)^n

postoji kod za kvadrat (sqr) (jeste li izvaliil kako zanimljivo izgleda kod za kvadratni koren: sqrt, gotovo da se cita kao skvirt..), ali ne znam ga za neki visi stepen

Program dgfdg;
var i,s,n,z:integer;
readln(n);
s:=1;
z:=1;
fori:=2 to 2*n do
begin
s:=s x z x i;
z:=-z;
i:=i+2;
end;
writeln(s);
end.

Hujo, zar to nije :

sqr(x) --- kvadrat
sqrt(x) ---- koren ?

bači pogled na edit, da ne objašnjavam opet

ovaj zadatak sa mnozenjem ovako nekako:

edit: ne valja, nisam lepo procitao zadatak, onako je kako sejo napisao.

Ne valja ti ovo, i:=i+2 sjeba petlju i ode sve u kurac.

Јеси испробао? Ја мисли мда не би требало...

Program dgfdg;
var i,s,n,z:integer;
readln(n);
s:=1;
z:=1;
fori:=2 to 2*n do
begin
s:=s x z x i;
z:=-z;
i:=i+2;
end;
writeln(s);
end.

Hvala. Po milijarditi put.
I izvinite sto vas maltretiram.

Јел ради овај и онај прошли???

opušteno

Ту дабл не пије воду?
Едит: Знам да треба преко стрингова, али никако да то провалим. То ме је увијек јебало на з-тренингу. Ако би био срце да урадиш :)

u, kako da ne :)
vezbaj, mozes da napavis neki svoj format proizvoljne tacnosti, recimo...

Ала си шкрт :)
Покушавао сам пар пута нешто са претварањем у стринг и враћањем, очигледно није ишло. Не знам зашто никада нисам питао професора...

kako bre delfi nema klase? nisam siguran da li možeš svoje da praviš, ali svakako ih imaš

Моја грешка...
Едит: Само их ми не радимо.

ja bih napravio niz cifara, redefinisao mnozenje kao operaciju nad clanovima niza i to bi sljakalo. Dodatna optimizacija je da ti cifre budu binarne, pa onda odjebes sve ove dvojke i to uzmes kao siftove, a redefinises mnozenje nad clanovima bin niza.

Мени пролази корз главу идеја да се претвара у хексадецимални или да се помјера децимална тачка. Нпр да од 100 направиш 0.00001 (колико већ систем дозвољава, код мене је 32-битни).
Па бих имао 0.00001 х 0.00000998 х 0.00000996...или плус да се направи низ Х[10] који би купио прозвод након сваке стотке и на крају се измноже и избаци тачка.
Ај бар реци Келте јесмо на добром путу?

Ti nisi. Ja sam napisao tacno. Samo cekam kelta da aminuje.

"Nema ljeba od kompjutera, samo oči kvarite."

Има итекако, и за колача :)

Коме треба нешто из оета, могу да покушам да помогнем, сутра имам испит.

Hahaha, vid ga ovaj sa etfa. Muči jado i uči oet, pogotovu ako ti je loš kolokvijum.

Ako me muci nesto, cimacu vas iz OET-ea

Hahaha, vid ga ovaj sa etfa. Muči jado i uči oet, pogotovu ako ti je loš kolokvijum.

12.5, свакако није сјајан, ал шта ћу :D

Opušteno, dovoljno je dobar. Ja sam imao 5.5 i da o ga sa sedmicom. Vodi računa o mostovima. Ako ti daju most, ako ga ne uočiš, nikad nećeš rešiti zadatak. A vole da ih daju.

У суштини, мени је скоро све јасно у теорији (за разлику од статике), само што се често сјебем у решавању, рачун или тако нешто. Ваљда ће да буде добро.

kelt bacio udicu i sad nece da potvrdi. sisa.