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.

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

Ја сад радим делфи, то ти је вижуал Паскал, иста синтакса, а це иначе вјежба, тако да имам нешто логике :)

pa ja citam sve neki takmicari, ne znate stepen minus keca da odradite. mislim, tebra...

pa ja se ne takmičim :D
ja u glavi ovo sve radim lolol
imam 4 i bole me piša

Чекајте да вам дођу рекурзивне процедуре, једнодимензионални, дводимензионални низови, слогови са датотекама.. :)

Класе ниси радио? :)

Ma to ja ne mogu da zadržim pažnju na časovima, pa se posle mučim...hvala mnogo, razjasnili ste mi ovo sve i sutra bih mogao čak i 5 da dobijem, što bi označilo novu eru u mom životu: eru gde ću imati 5 iz informatike, pošto ću dučim redovno od sad (hehe, kao i uvek što učim redovno).
Hval još jednom draga gospodo, daću sve od sebe da vaš trud ne bude uzaludan, a sada bih otišao da spavam, i onako sam bolestan a sutra treba da predajem lekciju o Napoleonu iz istorije, mada mi glas zvuči kao motorna testera.

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

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.