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.

Sad ću ja da isprobam. Ček samo da napregnem vijuge

Jok, nego će od Jave da se kreće.

Ja sam poceo od Jave jebene... Od jave poceo, na SQLu zavrsio.

Probaj ovako

Program Recprocna_vrednost;
Var n,x,i : Integer;
S:Real;
Begin
S:= 1;
Write('unesi n:');
Readln(n);
For i:= 1 to n do
Begin
Writeln('Unesi x:');
Readln(x);
S:=S*(1/x);
End;
Write('Proizvod:',S);
Readln;
End.

Počeo od Basica, završio na sql-u i .net-u
šta fali npr visual basic da se uci? Bar mozes da napravis makro neki u ofisu.

Sto se mene tice, fali zato sto KOJI CE MI KURAC NA GRADJEVINI TO?

Moja keva je radila u bejziku kada je bila u mojoj skoli, a mi imamo u knjizi za 2. godinu široko poglavlje o disketama..
Hvala na linku Medvediću, pomgao je :)
Dragi Jamajčanine, hvala mnogo, ja sam ga smandrljao bez ovog x, verovatno mi ne bi priznala pola zadatka... I svima vama, zaboravio sam koliko su Vukajlijaši dobri ako se ne ubaci Jebač negde :D

A ti mali, kad naucis paskal, nece ti ni neki noviji tesko pasti.

Ja ću prava posle srednje, nadam se da mi neće neki noviji padati uopšte

Sto se mene tice, fali zato sto KOJI CE MI KURAC NA GRADJEVINI TO?

Upravo to, ima PREVIŠE apsolutno nepotrebnih i preforsiranih stvari koje se rade u srednjim školama. Društveni smer ima fiziku 4 jebene godine. EJ! Ali zato istoriju Azije ili Afrike ne pominjemo uopšte. Ali ni najmanje. Da nije američkih filmova, moje društvo ne bi čulo za Mingovce, samuraje, ljudoždere...

I ja sam pizdeo na paskal u gimnaziji. Al da se razumemo, mnogo je bolji izbor za početak od bejzika i jave.

šta fali npr visual basic da se uci?

Edsger Dijkstra:

It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration.

Legenda :)

Dragi Jamajčanine, hvala mnogo, ja sam ga smandrljao bez ovog x, verovatno mi ne bi priznala pola zadatka...

Opušteno, ako još negde zakuješ, cimaj... U odeljenju imam osvajače takmičenja lololo

KONČAR APRUV

E, a zamisli npr. treba da držiš Paskal celu godinu u gimnaziji društvenog smera. Dobro je ako batine ne dobiješ :D

Ovako izgledaju zadaci koje ću imati :)
Čini mise da je ovaj drugi je na istu foru kao i prvi, trenutno radim na 3.
https://fbcdn-sphotos-h-a.akamaihd.net/hphotos-ak-prn1/v/t34/1511778_618274878226313_856589256_n.jpg?oh=20b25efe6c8ae08cc7a013d73902c06f&oe=52F604CE&__gda__=1391846863_4d636407bbb51cdde2de345b4ac3e5bd

Ово од Јамајке је добро. Ја сад радим Делфи, то ти је исто, ако ти још некада затреба, радо ћу помоћи :)
Управо се спремам за такмичење у цеу...
Едит:http://www.znanje.org/knjige/computer/pascal/pascal_prir/pascal_zadaci.htm
Јако, јако користан сјат...

Jamajka Ajnštajn, neate vi tu šta

Ово ти професија?

Buduća, nadam se

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

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;

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

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.