Rhymond

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ø þmoniø skaièiø}
Function isviso : integer;
var sum, i : integer;
begin
sum := 0;                     //ilipusiø zmoniu suma
   For i := 1 to Cmax do
       sum := sum + ilipo[i];
   isviso := sum;
end;

{Skaièiuojama ir áraðoma kurioje stotelëje vaþiavo daugiausia þmoniø}
Function Daugiausia : integer;
var max, i, nr : integer;
begin
max := islipo[1] + ilipo[1];
   For i := 2 to Cmax do
       if islipo[i] + ilipo[i] > max then
       begin
           max := islipo[i] + ilipo[i];
           nr := i;
       end;
   Daugiausia := nr;
end;

{Skaièiuojama ir áraðoma kiek keleiviø praëjo pro kontrolieriø}
Procedure praejo;
var i, viso : integer;
begin
   for i := 1 to Cmax do
       if numeris[i] > 0 then
       begin
           viso := islipo[i] + ilipo[i];
           Write(F,viso:6);
       end;
       WriteLn(F);
end;

{Spausdinamos stoteles i rezultatø failà didëjimo tvarka}
Procedure Stoteles;
var i : integer;
begin
   for i := 1 to Cmax do
       if numeris[i] > 0 then
           Write(F,numeris[i]:6);
           WriteLn(F);
end;

{duomenys skaitomi ir suvedami á masyvus}
Procedure Duomenys;
var i, dien, nr, ilip, islip : integer;
begin
for i := 1 to Cmax do         //nulinami masyvai
begin
ilipo[i]  := 0;
islipo[i] := 0;
end;
   Assign(B,Cduom); Reset(B);
       ReadLn(B,n);
           For i := 1 to n do
           begin
               ReadLn(B,nr,dien,ilip,islip);
               numeris[nr] := nr;
               ilipo[nr]  := ilipo[nr] + ilip;
               islipo[nr] := islipo[nr] + islip;
           end;
   Close(B);
end;


{-----------------------------Pagrindinë programa-----------------------------}

begin
 Duomenys;                          //Skaitomi duomenys
 Assign(F, Crez); ReWrite(F);       { Atidaromas ir pariuoðiamas }
   Stoteles;                        { rezultatø failas skaitymui }
   Praejo;
   WriteLn(F,Daugiausia:6);
   WriteLn(F,isviso:6);
 Close(F);
end.

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.

as suvariau melynu ir raudonu brangakmeniu vertes i masyvus, tada ieskojau maksimaliu reiksmiu juose tiek karti, kiek yra neijungtu signalizaciju. Zinoma, po atrinkimo reikia nepamirst nunulinti vertes, kad nesiskaiciuotu antrasyk.:)

 

 

 

mano akimis labai nelogiskai skiriama tasku uz pradinius testus. Su saskem man tokia paprastute pasirode uzduotis, kad net paskui sokas buvo, kai uz brangakmenius parejo 6 taskai, kurie, kaip veliau paaiskejo, buvo maksimalus.

 

 

 

Uzduoty su gyvatele pats sau prisidariau problemu, neperskaiciau vienos eilutes salygoje ir kazkoki gyvateles AI pradejau modeliuot:D paskui pamaciau, jog ten uztenka pora skaiciu modulius sudet ir vualia:)

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 2 <> 0 then j := (kiek div 2) + 1
                  else j := kiek div 2;
   For i := 1 to j do
   if ( i + j ) <> kiek+1 then
       WriteLn(M[i],' ',M[i+j]:5)
                        else
       WriteLn(M[i]);

End;

Procedure duomenys;
Var n  : integer;
Begin
kiek := 1;
n := 1;
While n <> 0 do
   Begin
    WriteLn('iveskite ',kiek,' skaiciu: ');
    Readln(n);
    M[kiek] := n;
    kiek := kiek + 1;
   End;
   kiek := kiek - 2;
End;

{-------------------------------Pagrindine programa---------------------------}
begin
Duomenys;
Rasyti;
ReadLn;
end.

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
                           max := M[i].sum;
                           x   := i;
                         End;
       WriteLn(F, M[x].vardas,' ',M[x].sum);
End;

Procedure visi;
Var i : integer;
Begin
   For i := 1 to n do
       WriteLn(F, M[i].vardas,' ',M[i].sum);
End;


Function viso : integer;
Var i, suma : integer;
Begin
suma := 0;
   For i := 1 to n do
       suma := suma + M[i].sum;
   Viso := suma;
End;


Procedure Duomenys;
Var i, j, sum, x : integer;
Begin
sum         := 0;
Assign(B, Cduom); Reset(B);
   ReadLn(B, n);
   For i := 1 to n do
   Begin
       Read(B, M[i].vardas, j);
           For x := 1 to j do
           Begin
               Read(B, sum);
               M[i].sum := M[i].sum + sum;
           End;
           ReadLn(B);
   End;
Close(B);
End;
{-------------------------------Pagrindinë programa----------------------------}
begin
 Duomenys;
 Assign(F, Crez); ReWrite(F);
   WriteLn(F, viso);
   visi;
   daugiausia;
 Close(F);
end.

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 daugiausia þmoniø}
Function Daugiausia : integer;
var max, i : integer;
begin
max := 0;
   for i := Cmax downto 1 do
       if ilipo[i] >= max then
       begin
        max := ilipo[i];
        Daugiausia := i;
       end;


end;


{Marðrutai kada vaþiavo bent vienas þmogus}
Procedure BentVienas;
var i : integer;
begin
   For i := 1 to Cmax do if ilipo[i] > 0 then Write(F,i:6);
   WriteLn(F);
end;

{Procedûra raðanti á failà vaþiavusius ir iðlipusius þmones marðrutuose}
Procedure Vaziavo(A : Mas);
var i : integer;
begin
   For i := 1 to Cmax do if ilipo[i] > 0 then Write(F,A[i]:6);
   WriteLn(F);
end;

{Procedûra duomenims ir failo suvesti á masyvus}
Procedure Duomenys;
var i, mar, x : integer;
begin
Assign(B,Cduom); Reset(B);
   ReadLn(B,n);
       For i := 1 to n do
       begin
           ReadLn(B,mar,x);
           If x > 0 then ilipo[mar] := ilipo[mar] + x
                    else islipo[mar]  := islipo[mar]  + x;
       end;
Close(B);
end;


{--------------------------Pagrindinë programa---------------------------------}

begin
 Duomenys;                   {Procedûra duomenims ir failo suvesti á masyvus}
Assign(F,Crez); ReWrite(F);   {Rezultatø failo atidarymas ir peraðymas}
 Bentvienas;                 {Marðrutai kada vaþiavo bent vienas þmogus}
 Vaziavo(ilipo);             //Procedûra raðanti á failà
 Vaziavo(islipo);            //vaþiavusius ir iðlipusius þmones marðrutuose
 WriteLn(F,Daugiausia:6);    {Áraðo marðrutà kada vaþiavo daugiausia þmoniø}
Close(F);
end.

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

labas ir ate ;)

na tinklapis tikrai per tuščias ;) gal dėl to kad nėra prekių na nežinau, bet didelės vertės tikrai nebus ;) kame tas unikalumas jei atrodo nekaip. Čia mano nuomonė ;)