Del valstybinio egzamino

Sveiki, perziurineju daba 2006 metu informatikos egzamina http://www.egzaminai.lt/failai/149_uzduotys_2006_VBE_IT.pdf ir iskylo pas mane toks klausimas prie praktines uzduotes(elektros grandines varzos skaiciavimas):

Ar formule R=1/L1 + 1/L2 + 1/L3 yra teisinga?

Berods, lygiagrečiame jungime tokia formulė. Žinoma, gali klysti, bo nesispecializuoju elektronikoje.

Teisinga, nes lygiagretaus jungimo formulė 1/R = 1/R1 + 1/R2. Kadangi L = 1/R1 + 1/R2, tai L = 1/R, o perstačius 1/L = R.

Štai neturėdamas ką veikti padariau šį uždavinį, nors ir neprašiai :rolleyes:

program varza;
  const max = 100;
  type mas = array[1..max] of integer;


//<--------------------------------------------->
procedure nuskaitymas( var duomenys, duomenys2: mas; var k: integer);
var byla: text;
	   i,j,dm: integer;
	 dm:=0;
	 assign(byla,'Duom1.txt');
	 reset(byla);
	 read(byla,k);
	 for i:= 1 to k do
		   begin
			  read(byla,duomenys[i]);
				 for j:= 1 to duomenys[i] do
				 begin
					dm:= dm + 1;
					read(byla,duomenys2[dm]);
				 end;
		   end;
  close(byla);
  end;
//<--------------------------------------------->


//<--------------------------------------------->
procedure centras(duomenys, duomenys2: mas; kiek: integer; var ats: real);
var i, j, n, k: integer;
tarpiniai: real; //tarpiniai rezultatai
  begin
  tarpiniai:= 0;
  n:=1;
  k:=0;
  for i:= 1 to kiek do
	 begin
	  k:= k + duomenys[i];
		for j:= n to k do
		   tarpiniai:= tarpiniai + 1 / duomenys2[j]; //Lygiagreciai sujungtu varzu grandies bendros varzos reiksmes skaiciavimas
	 ats:= ats + 1 / tarpiniai; //Visos grandies varzos skaiciavimas
	 n:= (n + duomenys[i]);
	 tarpiniai:= 0;
	 end;
  end;
//<--------------------------------------------->


//<--------------------------------------------->
procedure irasymas(ats: real);
var byla: text;
  begin
  assign(byla,'Rez1.txt');
  rewrite(byla);
  write(byla,ats:0:2);
  close(byla);
  end;
//<--------------------------------------------->


var duom, duom2: mas;
		kiek: integer;
   atsakymas: real;
begin
 nuskaitymas(duom,duom2,kiek);
 centras(duom,duom2,kiek,atsakymas);
 irasymas(atsakymas);
 Readln;
 Readln;
end.