Rhymond

Laukių komentarų, Padidinkit prieš vertindami ;)

Parodyk duomenų failą, padarysiu užduotį panagrinėsi suprasi ;)

arba aš aklas arba nematau kreipimosi į procedūras

Naudojuosi us.lt, nes sakanti hostą gauni domeną kaip dovanų, ir hostas neblogas. Bet vien jei reiktų domeno, naudočiausi iv.lt ;)

Džiaugiuosi, jog ten pakliuvau :) tikrai gera grupė. Smagu ir pabendrauti ir padiskutuoti įvairiomis temomis.

CSS: #logo { float: left; } #meniu { float: right; } HTML: <div "logo"> //logotipas tekstas tekstas tekstas </div> <div "meniu"> <a href="nuoroda" >nuoroda1</a> <a href="nuoroda" >nuoroda2</a> <a href="nuoroda" >nuoroda3</a> <a href="nuoroda" >nuoroda4</a> <a href="nuoroda" >nuoroda5</a> </div> ------ Na kažkas į tą pusę užvedu bent jau ;)

82

1

atsidaryk kompą ir iš kulerio(ventiletoriaus) dulkes išvalyk pamatysi veiks viskas ;)

Pirmą tai paprastai padariau :) (200*8 + 50*10) / 250 antras: 4/2/2/2/2/3 jei taip pagavau užduotį Trečiam formulė : I = m / k*t ketvirtam bus pliusas

program Metro; Const Cduom = 'U1.txt'; //duomenø failas Crez = 'U1rez.txt'; //rezultatø failas Cmax = 100; Type Mas = array[1..Cmax] of integer; Var B, F : text; //Rezultatø ir duomenø failo kintamieji n : integer; //Stoteliø skaièius islipo, //iðlipusiø þmoniø skaièius ilipo, //álipusiø þmoniø skaièius numeris : Mas; //stoteles numeris {---------------------------Funckijos ir procedûros---------------------------} {Fukcija skaièiuojanti visø ilipusiø

aš naudoju driver genius visad randa ko reik ;)

Labai gera įdėja. Lietuvai reikia jaunų žmonių, kitos šalys dėl to ir klesti, jog pas juos jauni žmonės priima geru sprendimus. Jei taip toliau bus pas mus Lietuva artėja prie išnykimo ribos.

logotipas nepatiko :) ir tas žodis nemokama muzika tikrai per ryškus, na o šeip atrodo patogus, paprastas, akių neplašantis tinklapis. Taip pat meniu tikrai gan prastas.

Su brangakmeniais taip aš buvau daręs nutryniau viską, bet paskuj paprasčiau padariau suvedžiau viską į masyvą ir burbulą padariau surušiuoja viską ir paskuj tik pirmas reikšmes teliko paimt neapsaugotas. Su givatėle tai ir nelab sunkus ten buvo

Per pačią olimpijadą įlindo netan ;D Gerai sugalvojai... Beje nebuvo sunkios užduotys.

man baisu atrodo kai tokius dalykus bando užkrauti kitiems, net normaliai nepabandęs kažką daryti.

program puslapiai; Var n : integer; Procedure Skaiciuoti; Var i, sum : integer; s : string; Begin sum := 0; For i := 1 to n do begin str(i,s); sum := sum + length(s); end; WriteLn(sum); End; begin WriteLn('Iveskite puslapiø skaièiû: '); Readln(n); Skaiciuoti; Readln; end. antra. program stulpeliai; Const Cmax = 100; Type Mas = Array[1..Cmax] of integer; Var M : Mas; kiek : integer; {-----------------------------Funkcijos ir proceduros--------------------------} Procedure Rasyti; Var i, j : integer; Begin if kiek mod

antroj užduotį viską įvedi klavietūra, juk matai kad nulis užbaigia visada ;) tai daryk while ciklą kol n <> 0

pirmas darbas labai patiko ;) šaunuolis, dirbk ir toliau .

Nelabai pagaunu ar supranti ką tu čia rašai?

2006 metų bandomasis program turistai; Const Cduom = 'turU2.txt'; Crez = 'U2rez.txt'; Cmax = 100; Type Turistas = record vardas : string[15]; sum : integer; end; Mas = Array[1..cmax] of Turistas; Var M : Mas; B, F : text; n : integer; {-----------------------------Funkcijos ir procedûros--------------------------} Procedure Daugiausia; Var i, max, x : integer; Begin max := M[1].sum; For i := 2 to n do If M[i].sum > max then Begin

Na turėtų būt geras kodas, bet netikrinau čia senesnis mano darbas ;) program Tyrimai; Const Cduom = 'Duom.txt'; //Duomenø failas Crez = 'rez.txt'; //Rezultatø failas Cmax = 100; Type Mas = array[1..Cmax] of integer; Var B, F : text; //Kintamieji tekstiniams failams n : integer; //Kiek stebëta marðrutø ilipo, //ilipusiø ir iðlipusiø þmoniø islipo : Mas // skaièius vedamas á ðiuos masyvus {------------------------Funkcijos ir procedûros-------------------------------} {Funkcija suskaièiuoti kuriame marðrute vaþiavo dau

Traktoooriai!! :) Tos reklamos pradėjo šaudyt prieš akis ;/ iškart išjungiau, todėl dizaino nelabai ir galiu įvertint.

nu tu paspausk su kairiu ir ilgiau palaikyk gal atsidarys ;) nemanau kad versija kalta