yankyssimo

Tebunie as neteisus. Nezadu gincytis :D

Na reiktu rasyt su didziosiom raidem: "WriteLn, ReadLn, Assign, Reset, EoLn, duomenu failai is didziuju rasomi pvz pas tave turetu but 'F'" Na dar gal atskirt kazkaip reiketu progamu dalis visas. Na nezinau, jei uz tai neatimtu stiliaus tasku, tai uz ka tada jie skiriami..? :D

As pirma pasidariau taip program varzos; var ats : real; //--------------Duomenu skaitymo ir skaiciavimo procedura----------------------- procedure duviename(var ats : real); var F : text; i, j : integer; n, nn : integer; varzusuma, varza : real; begin varzusuma := 0; Assign(F, 'duom.txt'); Reset(F); ReadLn(F, n); for i := 1 to n do begin Read(F, nn); for j := 1 to nn do begin Read(F, varza); varzusuma := varzusuma + 1 / varza; //Paskaiciuoju vienos eilutes varza end; ats := ats + 1 / varzusuma; //Ir pridedu ja prie bendros varzusuma := 0; //Tada nunulinu, nau

Draugas.lt man ta isvis absurdas kazkoks. Nenuvyko pazinciu portalas, tai prikiso visokio slamsto - sapnininku, horoskopu ir pan. Netikiu, kad jis populiarus.. Ir man labai idomu, kokiu formuliu deka, jus is 100k apyvartos, gaunat tik 50k pelno.. Kur tie kiti 50k dingsta? Gal ten juos dalina lankytojam? Nebukit juokingi.