gajus

Atsidaryk langą :D

2010
 

program test3; const dFile = 'data.txt'; rFile = 'result.txt'; dSize = 100; var kg1Sk, kg2Sk, {sk. pakuociu po 1 ir 2 kg} pkg1Sk, pkg2Sk, {parduotas sk. pakuociu po 1 ir 2 kg} pSk, {pirkeju sk.} pp, {paskutinis pirkejas} pkpa, {sk. pirkeju, kuriems pavyko apsipirkti} i : integer; pageidavimai : array[1..dSize] of integer; procedure readFile; var Df : text; begin Assign(Df, dFile); Reset(Df); ReadLn(Df, kg1Sk, kg2Sk); ReadLn(Df, pSk); for i := 1 to pSk do ReadLn(Df, pageidavimai[i]); Close(Df); end; procedure skaiciuokle; var noriPirkti : integer; {kiek klientas nori dar nusipirkti} begin pkpa := 0; for i := 1 to pSk do begin noriPirkti := pageidavimai[i]; while (kg2Sk <> 0) and (noriPirkti >= 2) do begin pkg2Sk := pkg2Sk + 1; kg2Sk := kg2Sk - 1; noriPirkti := noriPirkti - 2; end; while (kg1Sk <> 0) and (noriPirkti >= 1) do begin pkg1Sk := pkg1Sk + 1; kg1Sk := kg1Sk - 1; noriPirkti := noriPirkti - 1; end; if noriPirkti <> pageidavimai[i] then begin pp := pageidavimai[i] - noriPirkti; pkpa := pkpa + 1; end; end; end; begin readFile; skaiciuokle; WriteLn(pkg1Sk, ' ', pkg2Sk); WriteLn(pkpa); WriteLn(pp); Readln; end.

2010
 

program test3; const dFile = 'data.txt'; rFile = 'result.txt'; dSize = 100; var kg1Sk, kg2Sk, {sk. pakuociu po 1 ir 2 kg} pkg1Sk, pkg2Sk, {parduotas sk. pakuociu po 1 ir 2 kg} pSk, {pirkeju sk.} pp, {paskutinis pirkejas} pkpa, {sk. pirkeju, kuriems pavyko apsipirkti} i : integer; pageidavimai : array[1..dSize] of integer; procedure readFile; var Df : text; begin Assign(Df, dFile); Reset(Df); ReadLn(Df, kg1Sk, kg2Sk); ReadLn(Df, pSk); for i := 1 to pSk do ReadLn(Df, pageidavimai[i]); Close(Df); end; procedure skaiciuokle; var noriPirkti : integer; {kiek klientas nori dar nusipirkti} begin pkpa := 0; for i := 1 to pSk do begin noriPirkti := pageidavimai[i]; while (kg2Sk <> 0) and (noriPirkti >= 2) do begin pkg2Sk := pkg2Sk + 1; kg2Sk := kg2Sk - 1; noriPirkti := noriPirkti - 2; end; while (kg1Sk <> 0) and (noriPirkti >= 1) do begin pkg1Sk := pkg1Sk + 1; kg1Sk := kg1Sk - 1; noriPirkti := noriPirkti - 1; end; if noriPirkti <> pageidavimai[i] then begin pp := pageidavimai[i] - noriPirkti; pkpa := pkpa + 1; end; end; end; begin readFile; skaiciuokle; WriteLn(pkg1Sk, ' ', pkg2Sk); WriteLn(pkpa); WriteLn(pp); Readln; end.

2010
 

program test3; const dFile = 'data.txt'; rFile = 'result.txt'; dSize = 100; var kg1Sk, kg2Sk, {sk. pakuociu po 1 ir 2 kg} pkg1Sk, pkg2Sk, {parduotas sk. pakuociu po 1 ir 2 kg} pSk, {pirkeju sk.} pp, {paskutinis pirkejas} pkpa, {sk. pirkeju, kuriems pavyko apsipirkti} i : integer; pageidavimai : array[1..dSize] of integer; procedure readFile; var Df : text; begin Assign(Df, dFile); Reset(Df); ReadLn(Df, kg1Sk, kg2Sk); ReadLn(Df, pSk); for i := 1 to pSk do ReadLn(Df, pageidavimai[i]); Close(Df); end; procedure skaiciuokle; var noriPirkti : integer; {kiek klientas nori dar nusipirkti} begin pkpa := 0; for i := 1 to pSk do begin noriPirkti := pageidavimai[i]; while (kg2Sk <> 0) and (noriPirkti >= 2) do begin pkg2Sk := pkg2Sk + 1; kg2Sk := kg2Sk - 1; noriPirkti := noriPirkti - 2; end; while (kg1Sk <> 0) and (noriPirkti >= 1) do begin pkg1Sk := pkg1Sk + 1; kg1Sk := kg1Sk - 1; noriPirkti := noriPirkti - 1; end; if noriPirkti <> pageidavimai[i] then begin pp := pageidavimai[i] - noriPirkti; pkpa := pkpa + 1; end; end; end; begin readFile; skaiciuokle; WriteLn(pkg1Sk, ' ', pkg2Sk); WriteLn(pkpa); WriteLn(pp); Readln; end.

Išsprendžiau 2009 metų užduotis, gal kam pravers:
 

program test; const dFile = 'data.txt'; rFile = 'result.txt'; dSize = 50; type intArray = array[1..dSize] of integer; function keiciamaSuma(a, b : intArray; c : integer) : integer; {a - nominalai; b - turimas nominalu kiekis; c - nominalu sk.} var i : integer; begin keiciamaSuma := 0; for i := 1 to c do begin keiciamaSuma := keiciamaSuma + a[i] * b[i]; end; end; procedure rikiuotiNominalai(var a : intArray; b : integer); {a - nominalai; b - nominalu sk.; c - isrikiuoti nominalai} var i, j, tmp : integer; begin for i := 1 to b - 1 do for j := i to b do if a[j] > a[i] then begin tmp := a[j]; a[j] := a[i]; a[i] := tmp; end; end; var Df : text; GilijosNominaluSk, GilijosStudentoKeiciamaSuma, EglijosNominaluSk, EglijosStudentoKeiciamaSuma, nominalai, laikina1, laikina2, i : integer; GilijosNominalai, GilijosNominaluKiekis, EglijosNominalai, EglijosNominaluKiekis : intArray; begin {skaitom faila} Assign(Df, dFile); Reset(Df); {Gilijos studentas} ReadLn(Df, GilijosNominaluSk); for i := 1 to GilijosNominaluSk do Read(Df, GilijosNominalai[i]); ReadLn(Df); for i := 1 to GilijosNominaluSk do Read(Df, GilijosNominaluKiekis[i]); ReadLn(Df); {Eglijos studentas} ReadLn(Df, EglijosNominaluSk); for i := 1 to EglijosNominaluSk do Read(Df, EglijosNominalai[i]); ReadLn(Df); for i := 1 to EglijosNominaluSk do Read(Df, EglijosNominaluKiekis[i]); {apskaiciuojame kiek nominalu kiekvienas studentas turi} GilijosStudentoKeiciamaSuma := keiciamaSuma(GilijosNominalai, GilijosNominaluKiekis, GilijosNominaluSk); EglijosStudentoKeiciamaSuma := keiciamaSuma(EglijosNominalai, EglijosNominaluKiekis, EglijosNominaluSk); {rikiuojam nominalus mazejimo tvarka} rikiuotiNominalai(GilijosNominalai, GilijosNominaluSk); rikiuotiNominalai(EglijosNominalai, EglijosNominaluSk); {apskaiciuojame Eglijos studento finansus} laikina1 := 0; for i := 1 to EglijosNominaluSk do begin nominalai := GilijosStudentoKeiciamaSuma div EglijosNominalai[i]; laikina1 := laikina1 + nominalai; WriteLn(EglijosNominalai[i], ' ', nominalai); GilijosStudentoKeiciamaSuma := GilijosStudentoKeiciamaSuma - nominalai * EglijosNominalai[i]; end; WriteLn(laikina1); {apskaiciuojame Gilijos studento finansus} laikina2 := 0; for i := 1 to GilijosNominaluSk do begin nominalai := EglijosStudentoKeiciamaSuma div GilijosNominalai[i]; laikina2 := laikina2 + nominalai; WriteLn(GilijosNominalai[i], ' ', nominalai); EglijosStudentoKeiciamaSuma := EglijosStudentoKeiciamaSuma - nominalai * GilijosNominalai[i]; end; WriteLn(laikina2); Close(Df); ReadLn; end.
 

program test2; const dFile = 'data.txt'; rFile = 'results.txt'; dSize = 50; type begikuDuomenuModelis = record vardas : string[20]; minutes, sekundes : integer; end; var grupes : array[1..8] of array[1..dSize] of begikuDuomenuModelis; begikuSkGrupese : array[1..8] of integer; atrinktiBegikai : array[1..8] of begikuDuomenuModelis; i, j, k, grupiuSk, begikuSkGrupeje : integer; Df : text; laikinas, laikinas2 : begikuDuomenuModelis; naujasIndeksas : integer; begin Assign(Df, dFile); Reset(Df); ReadLn(Df, grupiuSk); {nuskaitom duomenis i kintamaji} for i := 1 to grupiuSk do begin ReadLn(Df, begikuSkGrupeje); begikuSkGrupese[i] := begikuSkGrupeje; for j := 1 to begikuSkGrupeje do ReadLn(Df, grupes[i][j].vardas, grupes[i][j].minutes, grupes[i][j].sekundes); end; {surikiuojame grupese esancius begikus pagal begimo greiti} for i := 1 to grupiuSk do for j := 1 to begikuSkGrupese[i]-1 do for k := j to begikuSkGrupese[i] do if ((grupes[i][k].minutes * 60 + grupes[i][k].sekundes) < (grupes[i][j].minutes * 60 + grupes[i][j].sekundes)) then begin laikinas := grupes[i][k]; grupes[i][k] := grupes[i][j]; grupes[i][j] := laikinas; end; {atrenkame puse begiku is kiekvienos grupes} naujasIndeksas := 1; for i := 1 to grupiuSk do for j := 1 to Round(begikuSkGrupese[i]/2) do begin atrinktiBegikai[naujasIndeksas] := grupes[i][j]; naujasIndeksas := naujasIndeksas + 1; end; {Dar karta perrikiuojame gautus rezultatas} for i := 1 to naujasIndeksas-1 do for j := 1 to naujasIndeksas do if ((atrinktiBegikai[j].minutes * 60 + atrinktiBegikai[j].sekundes) > (atrinktiBegikai[i].minutes * 60 + atrinktiBegikai[i].sekundes)) then begin laikinas2 := atrinktiBegikai[j]; atrinktiBegikai[j] := atrinktiBegikai[i]; atrinktiBegikai[i] := laikinas2; end; {Pateikiame rezulta} for i := 1 to naujasIndeksas-1 do WriteLn(atrinktiBegikai[i].vardas, atrinktiBegikai[i].minutes, ' ', atrinktiBegikai[i].sekundes); ReadLn; Close(Df); end.
 
Taip pat būtų malonu išgirsti komentarus.

Išsprendžiau 2009 metų užduotis, gal kam pravers:
 

program test; const dFile = 'data.txt'; rFile = 'result.txt'; dSize = 50; type intArray = array[1..dSize] of integer; function keiciamaSuma(a, b : intArray; c : integer) : integer; {a - nominalai; b - turimas nominalu kiekis; c - nominalu sk.} var i : integer; begin keiciamaSuma := 0; for i := 1 to c do begin keiciamaSuma := keiciamaSuma + a[i] * b[i]; end; end; procedure rikiuotiNominalai(var a : intArray; b : integer); {a - nominalai; b - nominalu sk.; c - isrikiuoti nominalai} var i, j, tmp : integer; begin for i := 1 to b - 1 do for j := i to b do if a[j] > a[i] then begin tmp := a[j]; a[j] := a[i]; a[i] := tmp; end; end; var Df : text; GilijosNominaluSk, GilijosStudentoKeiciamaSuma, EglijosNominaluSk, EglijosStudentoKeiciamaSuma, nominalai, laikina1, laikina2, i : integer; GilijosNominalai, GilijosNominaluKiekis, EglijosNominalai, EglijosNominaluKiekis : intArray; begin {skaitom faila} Assign(Df, dFile); Reset(Df); {Gilijos studentas} ReadLn(Df, GilijosNominaluSk); for i := 1 to GilijosNominaluSk do Read(Df, GilijosNominalai[i]); ReadLn(Df); for i := 1 to GilijosNominaluSk do Read(Df, GilijosNominaluKiekis[i]); ReadLn(Df); {Eglijos studentas} ReadLn(Df, EglijosNominaluSk); for i := 1 to EglijosNominaluSk do Read(Df, EglijosNominalai[i]); ReadLn(Df); for i := 1 to EglijosNominaluSk do Read(Df, EglijosNominaluKiekis[i]); {apskaiciuojame kiek nominalu kiekvienas studentas turi} GilijosStudentoKeiciamaSuma := keiciamaSuma(GilijosNominalai, GilijosNominaluKiekis, GilijosNominaluSk); EglijosStudentoKeiciamaSuma := keiciamaSuma(EglijosNominalai, EglijosNominaluKiekis, EglijosNominaluSk); {rikiuojam nominalus mazejimo tvarka} rikiuotiNominalai(GilijosNominalai, GilijosNominaluSk); rikiuotiNominalai(EglijosNominalai, EglijosNominaluSk); {apskaiciuojame Eglijos studento finansus} laikina1 := 0; for i := 1 to EglijosNominaluSk do begin nominalai := GilijosStudentoKeiciamaSuma div EglijosNominalai[i]; laikina1 := laikina1 + nominalai; WriteLn(EglijosNominalai[i], ' ', nominalai); GilijosStudentoKeiciamaSuma := GilijosStudentoKeiciamaSuma - nominalai * EglijosNominalai[i]; end; WriteLn(laikina1); {apskaiciuojame Gilijos studento finansus} laikina2 := 0; for i := 1 to GilijosNominaluSk do begin nominalai := EglijosStudentoKeiciamaSuma div GilijosNominalai[i]; laikina2 := laikina2 + nominalai; WriteLn(GilijosNominalai[i], ' ', nominalai); EglijosStudentoKeiciamaSuma := EglijosStudentoKeiciamaSuma - nominalai * GilijosNominalai[i]; end; WriteLn(laikina2); Close(Df); ReadLn; end.
 

program test2; const dFile = 'data.txt'; rFile = 'results.txt'; dSize = 50; type begikuDuomenuModelis = record vardas : string[20]; minutes, sekundes : integer; end; var grupes : array[1..8] of array[1..dSize] of begikuDuomenuModelis; begikuSkGrupese : array[1..8] of integer; atrinktiBegikai : array[1..8] of begikuDuomenuModelis; i, j, k, grupiuSk, begikuSkGrupeje : integer; Df : text; laikinas, laikinas2 : begikuDuomenuModelis; naujasIndeksas : integer; begin Assign(Df, dFile); Reset(Df); ReadLn(Df, grupiuSk); {nuskaitom duomenis i kintamaji} for i := 1 to grupiuSk do begin ReadLn(Df, begikuSkGrupeje); begikuSkGrupese[i] := begikuSkGrupeje; for j := 1 to begikuSkGrupeje do ReadLn(Df, grupes[i][j].vardas, grupes[i][j].minutes, grupes[i][j].sekundes); end; {surikiuojame grupese esancius begikus pagal begimo greiti} for i := 1 to grupiuSk do for j := 1 to begikuSkGrupese[i]-1 do for k := j to begikuSkGrupese[i] do if ((grupes[i][k].minutes * 60 + grupes[i][k].sekundes) < (grupes[i][j].minutes * 60 + grupes[i][j].sekundes)) then begin laikinas := grupes[i][k]; grupes[i][k] := grupes[i][j]; grupes[i][j] := laikinas; end; {atrenkame puse begiku is kiekvienos grupes} naujasIndeksas := 1; for i := 1 to grupiuSk do for j := 1 to Round(begikuSkGrupese[i]/2) do begin atrinktiBegikai[naujasIndeksas] := grupes[i][j]; naujasIndeksas := naujasIndeksas + 1; end; {Dar karta perrikiuojame gautus rezultatas} for i := 1 to naujasIndeksas-1 do for j := 1 to naujasIndeksas do if ((atrinktiBegikai[j].minutes * 60 + atrinktiBegikai[j].sekundes) > (atrinktiBegikai[i].minutes * 60 + atrinktiBegikai[i].sekundes)) then begin laikinas2 := atrinktiBegikai[j]; atrinktiBegikai[j] := atrinktiBegikai[i]; atrinktiBegikai[i] := laikinas2; end; {Pateikiame rezulta} for i := 1 to naujasIndeksas-1 do WriteLn(atrinktiBegikai[i].vardas, atrinktiBegikai[i].minutes, ' ', atrinktiBegikai[i].sekundes); ReadLn; Close(Df); end.
 
Taip pat būtų malonu išgirsti komentarus.

Išsprendžiau 2009 metų užduotis, gal kam pravers:
 

program test; const dFile = 'data.txt'; rFile = 'result.txt'; dSize = 50; type intArray = array[1..dSize] of integer; function keiciamaSuma(a, b : intArray; c : integer) : integer; {a - nominalai; b - turimas nominalu kiekis; c - nominalu sk.} var i : integer; begin keiciamaSuma := 0; for i := 1 to c do begin keiciamaSuma := keiciamaSuma + a[i] * b[i]; end; end; procedure rikiuotiNominalai(var a : intArray; b : integer); {a - nominalai; b - nominalu sk.; c - isrikiuoti nominalai} var i, j, tmp : integer; begin for i := 1 to b - 1 do for j := i to b do if a[j] > a[i] then begin tmp := a[j]; a[j] := a[i]; a[i] := tmp; end; end; var Df : text; GilijosNominaluSk, GilijosStudentoKeiciamaSuma, EglijosNominaluSk, EglijosStudentoKeiciamaSuma, nominalai, laikina1, laikina2, i : integer; GilijosNominalai, GilijosNominaluKiekis, EglijosNominalai, EglijosNominaluKiekis : intArray; begin {skaitom faila} Assign(Df, dFile); Reset(Df); {Gilijos studentas} ReadLn(Df, GilijosNominaluSk); for i := 1 to GilijosNominaluSk do Read(Df, GilijosNominalai[i]); ReadLn(Df); for i := 1 to GilijosNominaluSk do Read(Df, GilijosNominaluKiekis[i]); ReadLn(Df); {Eglijos studentas} ReadLn(Df, EglijosNominaluSk); for i := 1 to EglijosNominaluSk do Read(Df, EglijosNominalai[i]); ReadLn(Df); for i := 1 to EglijosNominaluSk do Read(Df, EglijosNominaluKiekis[i]); {apskaiciuojame kiek nominalu kiekvienas studentas turi} GilijosStudentoKeiciamaSuma := keiciamaSuma(GilijosNominalai, GilijosNominaluKiekis, GilijosNominaluSk); EglijosStudentoKeiciamaSuma := keiciamaSuma(EglijosNominalai, EglijosNominaluKiekis, EglijosNominaluSk); {rikiuojam nominalus mazejimo tvarka} rikiuotiNominalai(GilijosNominalai, GilijosNominaluSk); rikiuotiNominalai(EglijosNominalai, EglijosNominaluSk); {apskaiciuojame Eglijos studento finansus} laikina1 := 0; for i := 1 to EglijosNominaluSk do begin nominalai := GilijosStudentoKeiciamaSuma div EglijosNominalai[i]; laikina1 := laikina1 + nominalai; WriteLn(EglijosNominalai[i], ' ', nominalai); GilijosStudentoKeiciamaSuma := GilijosStudentoKeiciamaSuma - nominalai * EglijosNominalai[i]; end; WriteLn(laikina1); {apskaiciuojame Gilijos studento finansus} laikina2 := 0; for i := 1 to GilijosNominaluSk do begin nominalai := EglijosStudentoKeiciamaSuma div GilijosNominalai[i]; laikina2 := laikina2 + nominalai; WriteLn(GilijosNominalai[i], ' ', nominalai); EglijosStudentoKeiciamaSuma := EglijosStudentoKeiciamaSuma - nominalai * GilijosNominalai[i]; end; WriteLn(laikina2); Close(Df); ReadLn; end.
 

program test2; const dFile = 'data.txt'; rFile = 'results.txt'; dSize = 50; type begikuDuomenuModelis = record vardas : string[20]; minutes, sekundes : integer; end; var grupes : array[1..8] of array[1..dSize] of begikuDuomenuModelis; begikuSkGrupese : array[1..8] of integer; atrinktiBegikai : array[1..8] of begikuDuomenuModelis; i, j, k, grupiuSk, begikuSkGrupeje : integer; Df : text; laikinas, laikinas2 : begikuDuomenuModelis; naujasIndeksas : integer; begin Assign(Df, dFile); Reset(Df); ReadLn(Df, grupiuSk); {nuskaitom duomenis i kintamaji} for i := 1 to grupiuSk do begin ReadLn(Df, begikuSkGrupeje); begikuSkGrupese[i] := begikuSkGrupeje; for j := 1 to begikuSkGrupeje do ReadLn(Df, grupes[i][j].vardas, grupes[i][j].minutes, grupes[i][j].sekundes); end; {surikiuojame grupese esancius begikus pagal begimo greiti} for i := 1 to grupiuSk do for j := 1 to begikuSkGrupese[i]-1 do for k := j to begikuSkGrupese[i] do if ((grupes[i][k].minutes * 60 + grupes[i][k].sekundes) < (grupes[i][j].minutes * 60 + grupes[i][j].sekundes)) then begin laikinas := grupes[i][k]; grupes[i][k] := grupes[i][j]; grupes[i][j] := laikinas; end; {atrenkame puse begiku is kiekvienos grupes} naujasIndeksas := 1; for i := 1 to grupiuSk do for j := 1 to Round(begikuSkGrupese[i]/2) do begin atrinktiBegikai[naujasIndeksas] := grupes[i][j]; naujasIndeksas := naujasIndeksas + 1; end; {Dar karta perrikiuojame gautus rezultatas} for i := 1 to naujasIndeksas-1 do for j := 1 to naujasIndeksas do if ((atrinktiBegikai[j].minutes * 60 + atrinktiBegikai[j].sekundes) > (atrinktiBegikai[i].minutes * 60 + atrinktiBegikai[i].sekundes)) then begin laikinas2 := atrinktiBegikai[j]; atrinktiBegikai[j] := atrinktiBegikai[i]; atrinktiBegikai[i] := laikinas2; end; {Pateikiame rezulta} for i := 1 to naujasIndeksas-1 do WriteLn(atrinktiBegikai[i].vardas, atrinktiBegikai[i].minutes, ' ', atrinktiBegikai[i].sekundes); ReadLn; Close(Df); end.
 
Taip pat būtų malonu išgirsti komentarus.

Išsprendžiau 2009 metų užduotis, gal kam pravers:
 

program test; const dFile = 'data.txt'; rFile = 'result.txt'; dSize = 50; type intArray = array[1..dSize] of integer; function keiciamaSuma(a, b : intArray; c : integer) : integer; {a - nominalai; b - turimas nominalu kiekis; c - nominalu sk.} var i : integer; begin keiciamaSuma := 0; for i := 1 to c do begin keiciamaSuma := keiciamaSuma + a[i] * b[i]; end; end; procedure rikiuotiNominalai(var a : intArray; b : integer); {a - nominalai; b - nominalu sk.; c - isrikiuoti nominalai} var i, j, tmp : integer; begin for i := 1 to b - 1 do for j := i to b do if a[j] > a[i] then begin tmp := a[j]; a[j] := a[i]; a[i] := tmp; end; end; var Df : text; GilijosNominaluSk, GilijosStudentoKeiciamaSuma, EglijosNominaluSk, EglijosStudentoKeiciamaSuma, nominalai, laikina1, laikina2, i : integer; GilijosNominalai, GilijosNominaluKiekis, EglijosNominalai, EglijosNominaluKiekis : intArray; begin {skaitom faila} Assign(Df, dFile); Reset(Df); {Gilijos studentas} ReadLn(Df, GilijosNominaluSk); for i := 1 to GilijosNominaluSk do Read(Df, GilijosNominalai[i]); ReadLn(Df); for i := 1 to GilijosNominaluSk do Read(Df, GilijosNominaluKiekis[i]); ReadLn(Df); {Eglijos studentas} ReadLn(Df, EglijosNominaluSk); for i := 1 to EglijosNominaluSk do Read(Df, EglijosNominalai[i]); ReadLn(Df); for i := 1 to EglijosNominaluSk do Read(Df, EglijosNominaluKiekis[i]); {apskaiciuojame kiek nominalu kiekvienas studentas turi} GilijosStudentoKeiciamaSuma := keiciamaSuma(GilijosNominalai, GilijosNominaluKiekis, GilijosNominaluSk); EglijosStudentoKeiciamaSuma := keiciamaSuma(EglijosNominalai, EglijosNominaluKiekis, EglijosNominaluSk); {rikiuojam nominalus mazejimo tvarka} rikiuotiNominalai(GilijosNominalai, GilijosNominaluSk); rikiuotiNominalai(EglijosNominalai, EglijosNominaluSk); {apskaiciuojame Eglijos studento finansus} laikina1 := 0; for i := 1 to EglijosNominaluSk do begin nominalai := GilijosStudentoKeiciamaSuma div EglijosNominalai[i]; laikina1 := laikina1 + nominalai; WriteLn(EglijosNominalai[i], ' ', nominalai); GilijosStudentoKeiciamaSuma := GilijosStudentoKeiciamaSuma - nominalai * EglijosNominalai[i]; end; WriteLn(laikina1); {apskaiciuojame Gilijos studento finansus} laikina2 := 0; for i := 1 to GilijosNominaluSk do begin nominalai := EglijosStudentoKeiciamaSuma div GilijosNominalai[i]; laikina2 := laikina2 + nominalai; WriteLn(GilijosNominalai[i], ' ', nominalai); EglijosStudentoKeiciamaSuma := EglijosStudentoKeiciamaSuma - nominalai * GilijosNominalai[i]; end; WriteLn(laikina2); Close(Df); ReadLn; end.
 

program test2; const dFile = 'data.txt'; rFile = 'results.txt'; dSize = 50; type begikuDuomenuModelis = record vardas : string[20]; minutes, sekundes : integer; end; var grupes : array[1..8] of array[1..dSize] of begikuDuomenuModelis; begikuSkGrupese : array[1..8] of integer; atrinktiBegikai : array[1..8] of begikuDuomenuModelis; i, j, k, grupiuSk, begikuSkGrupeje : integer; Df : text; laikinas, laikinas2 : begikuDuomenuModelis; naujasIndeksas : integer; begin Assign(Df, dFile); Reset(Df); ReadLn(Df, grupiuSk); {nuskaitom duomenis i kintamaji} for i := 1 to grupiuSk do begin ReadLn(Df, begikuSkGrupeje); begikuSkGrupese[i] := begikuSkGrupeje; for j := 1 to begikuSkGrupeje do ReadLn(Df, grupes[i][j].vardas, grupes[i][j].minutes, grupes[i][j].sekundes); end; {surikiuojame grupese esancius begikus pagal begimo greiti} for i := 1 to grupiuSk do for j := 1 to begikuSkGrupese[i]-1 do for k := j to begikuSkGrupese[i] do if ((grupes[i][k].minutes * 60 + grupes[i][k].sekundes) < (grupes[i][j].minutes * 60 + grupes[i][j].sekundes)) then begin laikinas := grupes[i][k]; grupes[i][k] := grupes[i][j]; grupes[i][j] := laikinas; end; {atrenkame puse begiku is kiekvienos grupes} naujasIndeksas := 1; for i := 1 to grupiuSk do for j := 1 to Round(begikuSkGrupese[i]/2) do begin atrinktiBegikai[naujasIndeksas] := grupes[i][j]; naujasIndeksas := naujasIndeksas + 1; end; {Dar karta perrikiuojame gautus rezultatas} for i := 1 to naujasIndeksas-1 do for j := 1 to naujasIndeksas do if ((atrinktiBegikai[j].minutes * 60 + atrinktiBegikai[j].sekundes) > (atrinktiBegikai[i].minutes * 60 + atrinktiBegikai[i].sekundes)) then begin laikinas2 := atrinktiBegikai[j]; atrinktiBegikai[j] := atrinktiBegikai[i]; atrinktiBegikai[i] := laikinas2; end; {Pateikiame rezulta} for i := 1 to naujasIndeksas-1 do WriteLn(atrinktiBegikai[i].vardas, atrinktiBegikai[i].minutes, ' ', atrinktiBegikai[i].sekundes); ReadLn; Close(Df); end.
 
Taip pat būtų malonu išgirsti komentarus.

kaledini, laikyk mbg fronta ;D

Aš irgi apie konfliktą, poeto (meniniko/kūrėjo) įsitikinimus, vertybes rašiau, tačiau bėda ta, kad gana paviršutiniškai interpretavau, į daug detalių neįsigilinau, nes bijojau nukrypti į lankas. Stengiausi nuosekliai, gramatiškai ir struktūruotai parašyti tą interpretaciją, kad tik surinkčiau taškų virš išlaikymo ribos. Tikiuosi, jog nereiks perlaikyti. Šiaip dėl anglų, matematikos, fizikos egzaminų nesijaudinu visiškai, bet visas tas literatūros nagrinėjimas ir filosofavimas per lietuvių pamokas man vėžį daug metų varė (taip pat ir per egzaminą), tai net nežinau. Matyt, reiks eiti melstis Alachui.

Skema pirmasisis panaudojo "minciu srauta" t.y kalbejo visada su savimi, gyveno savo minciu pasauly. Ir siaip, gana lengva teksta gavot, visa knyga apie ta pati, istrauka cia nieko daug "nezaidzia". Visam kurinyje jauciamas konfliktas tarp skemos ir vidinio "ash".

Prieš 2 metus pamenu, kai laikiau, tai teksto suvokimas buvo kažkoks Landzbergio interviu. Nu vienu žodžiu, beprotystė kažkokia, sapalionės ;D Na bet interpretacijų temos buvo neblogos :)

dejau dejau ir dar kart dejau ant tokiu "egzaminu" su tokiom temom rasiniu..

Pasižiūrėk vertinimo instrukciją: http://nec.lt/failai/973_liet_gimt_vert_kr..._projektas3.pdf

Ar daug balu sumazins, kad destymas yra ne i tema? Nusisnekejimas, ne taip suprasta istrauka.... :/

Pasidalinkime turimais šaltiniais besiruošiant interpretacijos-analizės rašymui.
 
Pvz., atšviestų knygų, konspektų turiniu ir pan.
 

Kokie manote labiausiai tikėtini sutikti autoriai rytoj lietuvių kalbos VBE egzamine?
 
Pateiksiu kelis mano nuomone labiausiai tikėtinus:
* Juozas Aputis (nes mirė 2010 m. vasario 28 d.)
* Justinas Marcinkevičius (Poetas J.Marcinkevičius švenčia 80 metų jubiliejų)
* Antanas Škėma (artėja jo 50-mečio paminėjimas)
 
Besimokantiems patarčiau užmesti akį į http://egzaminuuzduotys.lt/

Kokie manote labiausiai tikėtini sutikti autoriai rytoj lietuvių kalbos VBE egzamine?
 
Pateiksiu kelis mano nuomone labiausiai tikėtinus:
* Juozas Aputis (nes mirė 2010 m. vasario 28 d.)
* Justinas Marcinkevičius (Poetas J.Marcinkevičius švenčia 80 metų jubiliejų)
* Antanas Škėma (artėja jo 50-mečio paminėjimas)
 
Besimokantiems patarčiau užmesti akį į http://egzaminuuzduotys.lt/

Kokie manote labiausiai tikėtini sutikti autoriai rytoj lietuvių kalbos VBE egzamine?
 
Pateiksiu kelis mano nuomone labiausiai tikėtinus:
* Juozas Aputis (nes mirė 2010 m. vasario 28 d.)
* Justinas Marcinkevičius (Poetas J.Marcinkevičius švenčia 80 metų jubiliejų)
* Antanas Škėma (artėja jo 50-mečio paminėjimas)
 
Besimokantiems patarčiau užmesti akį į http://egzaminuuzduotys.lt/

Kokie manote labiausiai tikėtini sutikti autoriai rytoj lietuvių kalbos VBE egzamine?
 
Pateiksiu kelis mano nuomone labiausiai tikėtinus:
* Juozas Aputis (nes mirė 2010 m. vasario 28 d.)
* Justinas Marcinkevičius (Poetas J.Marcinkevičius švenčia 80 metų jubiliejų)
* Antanas Škėma (artėja jo 50-mečio paminėjimas)
 
Besimokantiems patarčiau užmesti akį į http://egzaminuuzduotys.lt/

Kokie manote labiausiai tikėtini sutikti autoriai rytoj lietuvių kalbos VBE egzamine?
 
Pateiksiu kelis mano nuomone labiausiai tikėtinus:
* Juozas Aputis (nes mirė 2010 m. vasario 28 d.)
* Justinas Marcinkevičius (Poetas J.Marcinkevičius švenčia 80 metų jubiliejų)
* Antanas Škėma (artėja jo 50-mečio paminėjimas)
 
Besimokantiems patarčiau užmesti akį į http://egzaminuuzduotys.lt/

Kokie manote labiausiai tikėtini sutikti autoriai rytoj lietuvių kalbos VBE egzamine?
 
Pateiksiu kelis mano nuomone labiausiai tikėtinus:
* Juozas Aputis (nes mirė 2010 m. vasario 28 d.)
* Justinas Marcinkevičius (Poetas J.Marcinkevičius švenčia 80 metų jubiliejų)
* Antanas Škėma (artėja jo 50-mečio paminėjimas)
 
Besimokantiems patarčiau užmesti akį į http://egzaminuuzduotys.lt/

Turiu nuvilti, kad Baltarusijoje iki šiol tokius pardavinėja.

Turiu nuvilti, kad Baltarusijoje iki šiol tokius pardavinėja.

Parduodu Nissan Primera (2000 10 11), Sedanas, begusi 80000 km (aš antras savininkas). Stovis idealus.
Dyzelis, 2l variklis (patikimas, grandinė vietoj dirželio).
Visi privalumai: elektra, odinis salonas, SRS, ABS, xenon, CD originalus, turinio daviklio signalizacija, lengvo lydinio ratlankiai, klimatronikas, borto kompiuteris, šildomos sėdynės ir t.t.
Lietuvoje nuo technikinės išdavimo: 2009 11 07.
Buvo gavusi nežymų smūgį į galą (dabar sutvarkyta).
Idealus tokioms kelionėms: saugus, erdvus, komfortiškas.
 
http://i48.tinypic.com/wlp3dz.jpg
http://i47.tinypic.com/6rr210.jpghttp://i48.tinypic.com/dongpu.jpg