Peupeu

Liūdi šeima ir artimieji :lol:

na va wordas/excelis išmokti. Paskalis jau įpusėjo, naujų dalykų atradau, pagreitėjo rašymo procesas, geriau viską suprantu. Pasikėliau kartelę surinkt 78+ taškus :D 2010 metų 1 užd. program sachmatai1; const S = 6; // viso 6 skirtingos figureles type Viso=array[1..C] of integer; var x : viso; n : integer; //------------------------------------------------------------------------------ procedure skaityk; var f : text; i, a, j : integer; begin assign(f, 'U2.txt'); reset(f); readln(f,n); for i:=1 to n do begin for j:=1 to S do begin read(f, a);

Jeigu nori unikalios antraštės, o ne, kad kartotusi kas nelyginį ar lyginį puslapį daryk taip: Žymeklį nustatyk to puslapio viršuje(ne antraštėje), dėk lūžį - "paskesnis puslapis", tada paspausk ant savo antraštės, ir dizaino sekcijoj paspausk "sieti su ankstesne", pakeiti į norimą užrašą, ištrini naujai atsiradusi tuščia lapą ir voolia :D

nereikia nieko pačiam skaičiuot, nusistatyk metus, kada laikei (viršui) ir automatiškai viską apskaičiuos :)

Aš štaip aprašau beveik visas programas, savamokslis, nematęs kitų kodo: program uzd6_Knygos; const Z=100; //max 100 gali balstuoti type Tmass=array[1..Z] of integer; knyga = record pavadinimas : string[40]; balai : Tmass; kiekis : integer; balvidurk : real; end; knygos=array[1..10] of knyga; //iraso tipo masyvas. max 10 knygu //------------------------------------------------------------------------------ procedure skaitymas( var n, k : integer; var knyg : knygos); var i, j, viso : integer; f : text; begin assign(f,'U2.txt'); reset(f); readln(f,n,k

"apsirašyt funkcijų ir procedūrų kintamuosius", tai čia, kaip mano pavyzdyje ar pagr. programoje? Išvis susisuko viskas :lol:

Tokio gero dalyko nežinojau :o. Norėjau paklausti, čia aš vienas funkcijų ir procedūrų kintamuosius aprašau? procedure pvz(štai šitus). :D

kaip veikia tas do with ?

Kažkada buvau prisėdęs prie šito, bet tingėjau daryt, tikrai daug laiko sugaiščiau :lol: O šeip, kas kur stosit, tiek kur laiko informatiką? B-)

Labai tu jau kažkoks piktas ir viskuo užtikrintas, ko aš turiu ir ko aš neturiu :huh: Dėl pamąstymo sutinku, visgi jau žmogus prie amžiaus ir neapsisprenęs, vėl gali sugaišti daug brangaus laiko.

Nelaikiau, bet noriu paklausti. Kaip jums pasirodė egzaminas, sunkesnis nei praeitų metų ar ne? Kokios mokytojų nuomonės ? :rolleyes:

Jeigu žmogus kažko nori, jis tikrai to pasieks. Žinau daugybę pavyzdžiu kurie nusprendė su IT siet ateitį 18 ar daugiau metų ir tikrai pasiekė savo tikslų, nebūtinai gilioje vaikystėje :)

for i:=1 to max do Čia turbūt peržengi rėžius, kodėl iki max, gal ten skaičius 9999? Jei nori iki max daryt tada : if m[i] > max then max:=i; max:= i, o ne masyvo "i" elementui EDIT: for i:=1 to n do read(m[i]); Kiek suprantu čia visi skaičiai kartosis 1 kartą :D Negaliu pažiūrėt, kur lendi už rėžių, nekompiliuoja man laptope paskalio :huh:

Wordas kartais pjauna grybą numeruojant objektus ir lenteles redaguojant. Pvz užd prašo lentelę padaryt 12 cm pločio, o stuleplį "objektas" 5cm pločio, tai jei vieną nustatai kitą numuša :D

o įdomu, offiso HELPU galima naudotis bus? :lol:

Jei turėčiau galimybes lėkčiau į KTU, bet deja neturiu, tai VU pasirinkau :)

Jo, padarai word/excel/testą = 50 taškų. ~2h lieka, 1programą parašai, kitos kokį skaitymą... ir turi jau ~75 + taškų B-)

paskaityk mano postą prieš tai :D to paties klausiau :D

žinau, kad praleistas, turiu ir kitą, su visais reikalavimais :) Ieškojau neradau :D. Kai sukompiliuoji, parašo kiek jų yra. Kiek tikitės išlaikyt šitą reikalą? :rolleyes: Man kažkaip 75 būtų pats tas, mažai laiko paskaliui skyręs, tai nemanau, kad spėsiu abi programas parašyt :lol:

Mano kodas: program Sokiai; //------------------------------------------------------------------------------ Const Z=10; // max teiseju skaicius type Tmass=array[1..Z] of integer; sokis = record vardai : string[20]; //vardai baltech : Tmass; //balai uz technika balart : Tmass; tech, art : integer; //balai uz artistiskuma bendrbalai : integer; //tech ir art balu sumos atmetus maziausius ir didziausius end; sokejai=array[1..100] of sokis; //max 100 sokeju poru //------------------------------------------------------------------------------ procedure

ach, tu šitaip įkišai, bet jeigu turėtum daugybę masyvų sk[1..444]t ir visus reiktų paskaičiuot, tai kažkaip nelabai prasisuktum taip, nors nemačiau kodo, negaliu sakyt :)

Nenaudojant "var" irgi galima ištrintį narį, bet tas masyvas bus trumpalaikėje atmintyje, kol funckija veikia, jis jį ištrins ir apskaičiuos, o realiai tas narys išliks. Dažniausiai tie masyvai nereikalingi lieka, tai manau, kad jam nesvarbu ar jis trumpam laikui pašalintas ar visam :)

Jam reikėjo funkcijos ir gauti tik sumą :) Bet aš ir pats nemėgstų funckijų, kai su procedūra gali 10 kartų daugiau darbų padaryti :lol:

Labas, Druska/TIRPALO*100 f(t)=0,15*2+0,2t/t+2*100 skaičiuoji išvestinę, pamatai kad nuliui ji niekada nelygi, neegzistuoja, kai x = -2, bet jis neatininka apibrėžimo srities [0;3]; reiškią į duotą funkciją statai 0 ir 3. Žiūri kur yra daugiau. f(0)= 15 f(3)= 18%

didz- maziausios reiksm paieska: function jmax(x : Tmass; k : integer;): integer; var i, max : integer; begin max:=Tmass[1]; (arba gali 0 ar kitu skaičiu, jei visi daugiau už nulį) for i:=1 to k do if Tmass[i]>max then max:=Tmass[i] jmax:=max end; Panašiai ir su mažiausios reikšmės paieška. Įrašo tipo masyvą, kai turėsiu laiko pasistengsiu paaiškinti :) Taip tinka :) function party(x : įrašo tipo masyvo pavadinimas): integer; Jam reikia masyvo skaičių sumos, tai funkcijos tipas integer :) EDIT: Taip tinka :) function party(x : įrašo tipo masyvo pavadinimas): integer;, netin