2006m. vb egzamino uzduotis

Gal galite padeti kas nors ispresti si uzdavini?

http://www.egzaminai.lt/failai/149_uzduotys_2006_VBE_IT.pdf , 10 puslapis.

II. PRAKTINĖS UŽDUOTYS

Pati pirmoji su varza. Pagelbekit kas ismanot :blush:

O tai ko tu nesupranti? :^)

darbas su failais + ciklas cikle ir viskas (think)

nuo ko pradeti?

stai programa

program lalala;
type mas=array[1..100] of integer;
 va = record
   kiek: integer;
   kokios: mas;
 end;
mas1 = array[1..100] of va;
var X: mas1;
i, n, j: integer;
f, g: text;
v: integer;
c, b: real;
r: real;

begin
Assign(f, 'duom.txt'); Reset(f);
Assign(g, 'rez.txt'); Rewrite(g);
ReadLn(f,n);
for i := 1 to n do begin
	Read(f, X[i].kiek);
	for j := 1 to X[i].kiek do
		Read(f, X[i].kokios[j]);
	ReadLn(f);
end;
r := 0;
for i:=1 to n do begin
  c:=0;
  b:=0;
  for j := 1 to X[i].kiek do begin
	v:=X[i].kokios[j];
	c:=c + 1 / v;
  end;
  b := 1 / c; 
  r := r + b; 
end;
Write(g,  r:0:2);	
  Close(f);
  Close(g);
end.