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.

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

jel vi trolujete, leba vam?

A daj Atife, šta ti je bre, ovo je bre zajebancija još dok smo u srednjoj

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

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.