yankyssimo

Tebunie as neteisus. Nezadu gincytis :D

Kodėl? Kokias stiliaus klaidas matai?

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, naujai eilutei:)
end;
 Close(F)
 end;
//--------------Rasymo procedura------------------------------------------------
 procedure Rasyti(ats : real);
var G : text;
 begin
Assign(G, 'rez1.txt');
Rewrite(G);
WriteLn(G, ats:15:2);
 Close(G)
 end;
//---------------Programa-------------------------------------------------------
begin
 Duviename(ats);
 Rasyti(ats)
end.

Pas Yahoo viskas gerai, bet uz stiliu negautum tasku :D

O uz antra aciu, galvojau sudetingai ta laika kaipnors skaiciuot, o galim taip paprastai, pasirodo.. :D

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.