gajus
-
Pranešimai
254 -
Užsiregistravo
-
Lankėsi
-
Atsiliepimai
100%
Reputacijos išklotinė
-
-
gajus gavo reakciją nuo Kryzmantas informatikos VBE
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.
-
gajus gavo reakciją nuo Kryzmantas informatikos VBE
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.
-
gajus gavo reakciją nuo Kryzmantas informatikos VBE
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.
-
gajus gavo reakciją nuo CR1M1N4L informatikos VBE
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.
-
gajus gavo reakciją nuo CR1M1N4L informatikos VBE
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.
-
gajus gavo reakciją nuo CR1M1N4L informatikos VBE
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.
-
gajus gavo reakciją nuo CR1M1N4L informatikos VBE
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.
-
-
gajus sureagavo į adijux Katik baigėsi lietuvių kalbos egzaminas
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.
-
gajus sureagavo į Pirmokas Katik baigėsi lietuvių kalbos egzaminas
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".
-
gajus sureagavo į Justas303 Katik baigėsi lietuvių kalbos egzaminas
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 :)
-
gajus sureagavo į Luckis Katik baigėsi lietuvių kalbos egzaminas
dejau dejau ir dar kart dejau ant tokiu "egzaminu" su tokiom temom rasiniu..
-
gajus sureagavo į Andrius. Katik baigėsi lietuvių kalbos egzaminas
Pasižiūrėk vertinimo instrukciją: http://nec.lt/failai/973_liet_gimt_vert_kr..._projektas3.pdf
-
gajus sureagavo į Edgardo Katik baigėsi lietuvių kalbos egzaminas
Ar daug balu sumazins, kad destymas yra ne i tema? Nusisnekejimas, ne taip suprasta istrauka.... :/
-
gajus gavo reakciją nuo svarcas Patarimai rašantiems interpretaciją-analizę (VBE)
Pasidalinkime turimais šaltiniais besiruošiant interpretacijos-analizės rašymui.
Pvz., atšviestų knygų, konspektų turiniu ir pan.
-
gajus gavo reakciją nuo Bugeriz Labiausiai tikėtini VBE lietuvių egzamino autoriai
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/
-
gajus gavo reakciją nuo Bugeriz Labiausiai tikėtini VBE lietuvių egzamino autoriai
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/
-
gajus gavo reakciją nuo Bugeriz Labiausiai tikėtini VBE lietuvių egzamino autoriai
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/
-
gajus gavo reakciją nuo Bugeriz Labiausiai tikėtini VBE lietuvių egzamino autoriai
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/
-
gajus gavo reakciją nuo Bugeriz Labiausiai tikėtini VBE lietuvių egzamino autoriai
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/
-
gajus gavo reakciją nuo Bugeriz Labiausiai tikėtini VBE lietuvių egzamino autoriai
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/
-
gajus gavo reakciją nuo vzup Coca-Cola 0.33l
Turiu nuvilti, kad Baltarusijoje iki šiol tokius pardavinėja.
-
gajus gavo reakciją nuo vzup Coca-Cola 0.33l
Turiu nuvilti, kad Baltarusijoje iki šiol tokius pardavinėja.
-
gajus sureagavo į s1mas Ieškau mašinos mamai 10-12 k. LT
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