audrius^

function DaugiausiaGrybu(B, R, L:mas1):integer; var i:integer; max:integer; Diena:integer; begin max := -1; for i:=1 to 31 do begin sum := B[i] + R[i] + L[i]; if sum > max then begin max := sum; Diena := i; end; end; DaugiausiaGrybu := Diena; end; Funkcijos reikšmė bus diena kurią buvo surinkta daugiausia grybų, o kiek grybų buvo surinkta gali tiesiog vietoj sudėti visus grybus kiek tą dieną buvo surinkta. Štai taip: diena := DaugiausiaGrybu(baravykai, raudonikiai, lepšiai); Writeln(ffr, diena, baravykai[diena]+r

Bet juk įvedus skaičių nuo 32 tūkstančių bus išmesta klaida, nes reikia naudoti ne integer tipą, o longint kurio reikšmės gali būti iki 2 tūkstančių milijonų, arba 2 milijardų. Aš daryčiau taip, man tai net šiek tiek paprasčiau: program Bevarde18; var sk:longint; sum, san:longint; i, tarp:integer; begin san := 1; sum := 0; write('Iveskite penkiazenkli skaiciu: '); readln(sk); for i:=1 to 5 do begin tarp := sk mod 10; write(tarp ,' '); sum += tarp; san *= tarp; sk := sk div 10; end; writeln; If sum - san > 0 then writeln('Suma didesne uz sandauga, skirtumas: ',

Klipą žiūrėjau prieš kelias dienas :D ir maikę pradėjau nusiiminėti kaip tam klipe mokino :).

Čia kad šiek tiek gražiau spausdintų visus skaičius program Noname40; var i:integer; begin for i:=1 to 97 do begin if i mod 2 = 0 then begin if i mod 10 <> 0 then write(i:3) else writeln(i:3); end; end; readln; end.

program Noname40; var i, suma:integer; begin suma :=0; for i:=1 to 97 do if i mod 2 = 0 then suma := suma + i; writeln(suma); readln; end.

program KaipNuskaityti; var sk:array[1..6] of byte; vardas:string[6]; procedure Nuskaityti(); var i:integer; D:Text; begin assign(D, 'DuomenuFailas.txt'); reset(D); read(D, vardas); for i:=1 to 6 do read(sk[i]); close(D); end; BEGIN Nuskaityti(); END.

http://www.programavimopamokos.net/index.php?vaizdas=FPSPamokos Labai gerai svetainė, kurioje yra pilna klipų su pamokomis kaip programuoti su FPS :) Pradedančiajam labai praverčia ;)

28/30, dviejų klausimų nelabai supratau tai spėjau :D, ir abiejų neatspėjau turbūt... :(

Taigi šis žmogus tuom ir išsiskiria iš visų kitų gitaristų, kad išgauna garsus kur kitiem tai atrodo neįmanoma išgaut :) O čia turbūt daugeliui žinomas:

program Noname36; function Ar_viduje(x, y:integer):boolean; var x1, y1, x2, y2:integer; begin x1 := 0; y1 := 10; //Kairiojo virsutinio krasto koordinates x2 := 10; y2 := 0; //Desiniojo apatinio krasto koordinates if (x <= x2) and (x >= x1) and (y >= y2) and (y <= y1) then Ar_viduje := true else Ar_viduje := false; end; var i:integer; x, y:integer; begin for i:= 0 to 99 do begin write('Tasko koordinates (x;y) : '); readln(x, y); if Ar_viduje(x, y) = true then writeln('Taskas (', x, ';', y, ') priklauso kvadratui') else writeln('Taska

program Noname; type Tdeze = record A, B, C:integer; end; Tdezes = array[1..maxint] of Tdeze; // Funkcija kuri suskaiciuoja kiek telpa vysniu dezeje, function KiekTelpaDezeje(a,b,c:integer; r:real):integer; var Dezes_Turis, Vysnios_Turis, likes_turis:real; telpa_vysniu:integer; begin Dezes_Turis := a * b * c; Vysnios_Turis := (4/3) * 3.14 * (r*r*r); likes_turis := Dezes_Turis / 2; telpa_vysniu := 0; while likes_turis > 0 do begin telpa_vysniu:= telpa_vysniu + 1; likes_turis := likes_turis - Vysnios_Turis; end; KiekTelpaDezeje := telpa_vysniu; end; var R:r

program Bevarde0; uses crt; var a, b, c, dis, x1, x2:real; begin ClrScr; WriteLn('Iveskite kintamuju koeficientus'); //Jei a,b,c <> 0 ReadLn(a, b, c); dis := (b*b) - 4 * a * c; If dis = 0 then begin x1 := (-b) / (2 * a); writeln('x= ', x1:1:1); end else if dis < 0 then writeln('Sprendiniu nera') else begin x1 := (-b - sqrt(dis)) / (2 * a); x2 := (-b + sqrt(dis)) / (2 * a); WriteLn('x1= ', x1:1:1, ' ', 'x2= ', x2:1:1); end; Readln; end.

program uzduotis1; var y:real; draugai, visi:integer; begin writeln('Iveskite valandas: '); readln(y); draugai:=1; visi:=0; while y > 0 do begin y:=y-0.5; draugai:=draugai*2; visi:=visi+draugai; end; writeln('Po tiek valandu zinos: ', visi); readln; end. program uzduotis2; var n, m, ziedai:integer; diena:integer; kiekis:integer; begin write('Iveskite dienas: '); readln(n); write('Iveskite kiek ezere telpa ziedu: '); readln(m); ziedai:=1; for diena:=1 to n do begin ziedai:=ziedai*3; end; diena:=0; kiekis:=1; while kiekis < m div 2 do begin

Nusipirkau, kol kas nebereikia

Reikia 20lt LABAS perlaidos, moku SWED kursą siūlot patys, Skype: anglas1992, jei nebusiu prie skype parašykit į +37065892553

Valinskas

Na tai niekas nebeturi? Man dabar skubiai reikėtų

Reikia 20 litų LABAS perlaidos už 12 litų, moku SWED Skype: anglas1992

Užsiregistravau: anglasLT

Jeigu kada padarysit grajoką tai ir mane prigriebkit, dar keli draugai norėtų. Skype: anglas1992