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.

Програмирање је јако занимљиво...истоме се надамо :)

E, ovako ide 2. zadatak: Zbir trećih stepena svih parnih brojeva od 6 do n.
Sada, meni program ide ovako:
program p1;
var
n,s,i,a:integer
begin
writeln('uneti broj');
readln(n)
S=0
FOR i:=6 to n do
begin
IF amod2=0, THEN i sad me ovo jebe. Ne mogu da izvalim kako da napravim da mu stavi 3. stepen i kako da se uzdize bez vijagre...
Posle toga ide ono klasicno...

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;

Ali treba zbir svih parnih brojeva, zaboravio si da iskoristiš a. Šta znači * pored 2. i?
EDIT: ahaaaaa, pa mene je to zbunilo :D

Не треба ми а, свкаи други је паран ,ако је од 6...

ahaa...svaka čast, nikada se ne bih setio toga...

Sejo, kad je takmičenje matere ti? Men ovaj profa infosa ništa ne pominje...

То је сад школско. Прошле године сам закаснио на пола, а ове ако Бога да пуцам на високо :)

Peri, jel vam traže algoritme uz to? Mnogo je lakše da se radi uz algoritam

Hujo, kod mene se već treća etapa sutra održava lololo ali dobro, to je školsko

A jebem li ga, biće da mi nemamo školsko, mislim da bih znao da se organizuje

Не знам, ја сам из Бања Луке. Општинско буде средином марта ја мислим...

Peri, jel vam traže algoritme uz to? Mnogo je lakše da se radi uz algoritam

Traži, ali mi je bilo glupo da tražim od vas da mi crtate još i algoritam :D izvaljujem kako da napravim algoritam iz programa i kako program iz algoritma, samo osmišljavanje onog dela sa sumom ili proizvodom mi je jedini problem..

Kod mene jedan lik iz prve godine vodi za 100 poena trećacima i četvrtacima lololo
on ima 200 svi ovi po 90 otprilike :D

nama rekli da samo na četvrtoj godini ima takmičenje, još ga čekam

Пери позабави се мало на оној страници што сам поставио, ту су неки најосновнији типови задатака а имаш и алгоритме чини ми се, ја их никада нисам радио :)
Када ти тражи суму почетну вриједност постављаш на нулу и у фор петљи је облк с:=с+израз, а ко је производ почетну вриједност постављаш на кеца и у фор петљи је с:=с*(израз)...једноставно :)

Meni je mnogo nezgodno bez algoritma kad radim :)

Msm, nije toliko nezgodno, ali umem da preskočim neki korak onda lololo

Нама никада нису тражили алгоритме. Замисли профа каже Ко први уради петица, а ја да цртам алгоритам :)

Ovaj problem: P=2puta(-4)puta6...(-1)na n puta 1 puta (2n)
sam rešio vako:
program p1;
var
p,n,z:integer
begin
writeln('uneti broj);
readln(n);
p=1
z=-1
FOR i:=2 TO 2n DO
begin;
S:=i puta(i+2)putaz
Da li sam barem blizu? btw ovo je najteza vrsta koja moze da se padne

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

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.