Navigacija

Namai Forumas PAIEŠKA ! ! Pagrindinės temos ! Nuorodų katalogas Didž. Php-F saitai Kontaktai
NAUDINGA
Straipsniai DUK Siuntimai Skriptų biblioteka Modai, dizainai Modai šiame saite D.U.K. Informacija Hostingai Domenai
Naudotojo vadovas v7 V6 ir V7 galimybių palyginimas DEMO
NUORODOS
Modifikacijos, panelės Temos/dizainai
PASLAUGOS
Reklama VIP hostingas
Pask. komentarai Administracija

Vartotojų tinkle

Prisijungusių svečių: 87
Prisijungusių narių: 0
Prisijungusių narių nėra

Registruoti nariai: 25,952
Naujausias narys: tomeem

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

asirija 2 savaitės
tomeem 4 savaitės
Reikalas 5 savaitės
weberiz 7 savaitės
mRokass10 savaitės
kartoonas11 savaitės
iaescortsmap11 savaitės
ozzWANTED12 savaitės
grunskiz14 savaitės
Bruksnys14 savaitės
illusion14 savaitės
ordo15 savaitės
Jurgaila16 savaitės
originalcs1616 savaitės
Rytis17 savaitės
halis18 savaitės
junkus21 savaitės
morlis21 savaitės
Majakas22 savaitės
andsoft23 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 3.14.141.17
Naujienų: 529
Straipsnių: 235
Temų: 52,585
Postų: 522,523
Postų pask. parą: 0
Shout'ų pask. parą: 0
P.S.C. pask. parą: 0
Nuorodų kataloge: 13

Lankomumo Statistika

Peržiūrų šiandien: 22

Iš viso peržiūrų: 22948724

Prisijungti

REGISTRUOTIS
Nario vardas

Slaptažodis



Pamiršai slaptažodį?
Paprašyk naujo
Aktyvuoti save

Šaukykla

Jei norite rašyti žinutes, turite prisijungti.

ozzWANTED
2024 Sau. 17 01:01:00
Desperatiškus komentarus šaukykloje su accountu po mėnesio prasibuvimo, ištryniau. Pasaulis ir taip juodas. Įjungiam šviesą, prašviesės. šypsosi

Majakas
2023 Gru. 10 19:12:39
Negaliu patikėti jog žinutės/pranešimai visi yra nuo 2008 m akinanti šypsen

Žmogus
2023 Rugs. 7 21:09:14
O gal BloodKiller pasijungs?

Apocal
2023 Rugs. 2 18:09:23
Nu davai nuveikiam kažką akinanti šypsen. Prisijungti kada visi čia akinanti šypsen.

Apocal
2023 Rugs. 2 00:09:18
Šiaip atėjau pažiūrėti ar dar lopas nesby yra ar koks ten buvo.

Šaukyklos archyvas

Apklausa

Ar esate patenkinti lietuviško vertimo kokybe?

Taip!

Taip, bet yra ką taisyti (parašysiu komentaruose)

Ne

Norėdamas balsuoti turite prisijungti.
Archyvas
Reklama 400x60
Reikia Ispresti [Sugalvoti]
Forumas | Kita | Off-Topic diskusijos
Autorius: Edvinas. Peržiūrų: 2003      Spausdinti temą
2010 Sau. 13 18:01:30          1 žinutė iš 9
Spausdinti pranešimą
Reikia Sugalvoti uzduoti ir ja ispresti,
Joje turi buti veiksmai, saliginis sakinys, ir panaudotas ciklas: for ir wile

Turi buti darytas su : Paskaliu Ar kaip cia pasakyti vnz su Paskaliu
Užauges būsiu Gaisrinės mašina.
Redagavo Edvinas. 2010 Sau. 13 18:01:12
2010 Sau. 13 18:01:03          2 žinutė iš 9
Spausdinti pranešimą
Kas jum su tuo paskaliu, bliot ? juokiasi Kiek mokėsi? Turi ir for ir while, ar arba tas arba tas?
programavimo paslaugos pm. ieškau projekto.
Redagavo ibodom 2010 Sau. 13 18:01:24
2010 Sau. 13 18:01:26          3 žinutė iš 9
Spausdinti pranešimą
paziurek vadoveli daug uzdaviniu yra
2010 Sau. 13 18:01:27          4 žinutė iš 9
Spausdinti pranešimą
if as_esu_girtas = 1
writeln('taip');
else
writeln('ne');




while c < 5 do
 begin
  c := c+1;
  end





Kažkas taip turbūt, su tūpa archajiška mirusia paskalio sintakse.
BR#1, Most Wanted
Redagavo ozzWANTED 2010 Sau. 13 18:01:58
2010 Sau. 13 18:01:52          5 žinutė iš 9
Spausdinti pranešimą
Vo radau kompe savo senutėlę 1-am kurse rašytą programėlę pascal'iu.

Pakopinsiu jos dalį - vieną iš procedūrų. Joje yra viskas ko tau reikia(ir nereikia :D):

{****** [PRADZIA]: ATMINITES MASYVO Rem_aibe bazes keitimo algoritimas skirtas naujai baziu sumai paskaiciuoti ******}
procedure keisti_baze(var rem_aibe: Masyvas; blevel,n : longint; operaciju_skaicius : longint);
var max_limit,keiciama_baze,einamoji_baze : longint;
begin
    max_limit := n-1;
    einamoji_baze := blevel;

    {***************************** TESTO PRADZIA ********************************}
    {***}   if(TEST_MODE >= 2)
    {***}       then Writeln('   Ein. baze: ', einamoji_baze, '; Rem_aibe[',einamoji_baze,']: ', rem_aibe[einamoji_baze], '; Bazes riba: ', max_limit);
    {***************************** TESTO PABAIGA ********************************}
       
    while(rem_aibe[einamoji_baze] = max_limit) do      // jei pirmas narys yra max. galimas, tai jau lygio o ne bazes keitimas, todel pirma atmetam
        begin
            {***************************** TESTO PRADZIA ********************************}
            {***}   if(TEST_MODE >= 2)
            {***}       then Writeln('  :: 1-oji keiciama baze: ', einamoji_baze, ', Bazes maks. riba: ', max_limit);
            {***************************** TESTO PABAIGA ********************************}
            if(einamoji_baze = 1)
                then break;
            max_limit := max_limit-1;
            einamoji_baze := einamoji_baze-1;
        end;

    keiciama_baze := einamoji_baze;

    {***************************** TESTO PRADZIA ********************************}
    {***}   if(TEST_MODE >= 1)
    {***}       then if(keiciama_baze = blevel)
    {***}           then Writeln('   Keiciama baze: ties ', keiciama_baze)
    {***}           else Writeln('   Keiciamos bazes: nuo ', keiciama_baze,' iki ', blevel);
    {***************************** TESTO PABAIGA ********************************}

    for einamoji_baze:=keiciama_baze to blevel do
        begin
            if(einamoji_baze = keiciama_baze)
                then if(rem_aibe[1] = max_limit)
                    then rem_aibe[1] := 1
                    else rem_aibe[einamoji_baze] := rem_aibe[einamoji_baze]+1
                else rem_aibe[einamoji_baze] := rem_aibe[einamoji_baze-1]+1;
        end;


    {***************************** TESTO PRADZIA ********************************}
    {***}    if(TEST_MODE >= 2)
    {***}       then begin
    {***}           Write('   rem_aibe(pr. ',operaciju_skaicius+1,' oper.): ');
    {***}           for einamoji_baze:=1 to blevel do
    {***}               Write('[B',einamoji_baze,']: ',rem_aibe[einamoji_baze],', ');
    {***}       end;
    {***************************** TESTO PABAIGA ********************************}

end;
{****** [PABAIGA]: ATMINTIES MASYVO lygio keitimo algoritmo [PABAIGA] ******}



BR#1, Most Wanted
Redagavo ozzWANTED 2010 Sau. 13 18:01:16
2010 Sau. 13 18:01:01          6 žinutė iš 9
Spausdinti pranešimą
Tikrai ne persunkų jam davei juokiasi
programavimo paslaugos pm. ieškau projekto.
2010 Sau. 13 18:01:21          7 žinutė iš 9
Spausdinti pranešimą
iBodom parašė:
Tikrai ne persunkų jam davei juokiasi

Nu nakui(said in joke level), jau pačią trumpiausią ir paprasčiausią procedūrą iškirpau ir įpastinau. Nes visur kitur visokių unitų integravimų, iteratorių ir pointerių prikištą ir žmogui būtų neaišku.
BR#1, Most Wanted
Redagavo ozzWANTED 2010 Sau. 13 18:01:59
2010 Sau. 13 19:01:36          8 žinutė iš 9
Spausdinti pranešimą
Cia keli paprasti pascalio uzdavinukai. Gali dasikurt ir dadet while cikla. vis kas nors :)

//duotas intervalas nuo n iki m
//parasyti programa kuri surastu kiek skaiciu kurie turi lygiai k dalikliu.

program programa;
 var m,n,k,d,i,j,sk :integer;
begin
  WriteLn('Iveskite N,M skaicius:');
  Readln(n,m);
  Writeln('iveskite k skaiciu:');
  Readln(k);
  sk:=1;
  for i:=n to m do
   begin
      d:=0;
       for j:=1 to i do
           if i mod j=0 then d:=d+1;
           if k=d then begin
                         writeln( i);
                         sk:=sk+1;
                         end;
     end;
    writeln('kiekis  ', sk);
   Readln;
end.
-----------------------------
program programa;
  var a, b,s,i,s1 :integer;
begin
  WriteLn('Iveskite Skaicius a,b:');
  Readln(a,b);
  S:=0;
  S1:=1;
  for i:=a to b do
  if i mod 2=0 then s:=s+i
               else s1:=s1*i;

  Writeln('Suma:', s);
  Writeln('Sandauga:',s1);
  Readln;
end.
--------------------------------
Cia susikursi dar tekstini failiuka

program programa;
  var s,sk,n:integer;
      f,g :text;
begin
  assign(f,'failas.txt');reset(f);
  assign(g,'rez.txt');rewrite(g);
   n:=0;
    while not eof(f) do
     begin
      n:=n+1;
       s:=0;
        while not eoln(f) do
         begin
          read(f,sk);
           s:=s+sk;
         end;
         Readln(f);
        WriteLn(g,n, 'Suma:', s);
     end;
    Close(f);
    Close(g);
  Readln;
end.
2010 Sau. 13 20:01:37          9 žinutė iš 9
Spausdinti pranešimą
Aciu, T0mas ir Ozz , Ozz biski per gudriai akinanti šypsenD , T0mas Tiko šypsosi Dekui abiem +10 šypsosi
Užauges būsiu Gaisrinės mašina.
2010 Sau. 15 22:01:56          10 žinutė iš 9
Spausdinti pranešimą
//duotas intervalas nuo n iki m
//parasyti programa kuri surastu kiek skaiciu kurie turi lygiai k dalikliu.

program programa;
 var m,n,k,d,i,j,sk :integer;
begin
  WriteLn('Iveskite N,M skaicius:');
  Readln(n,m);
  Writeln('iveskite k skaiciu:');
  Readln(k);
  sk:=1;
  for i:=n to m do
   begin
      d:=0;
       for j:=1 to i do
           if i mod j=0 then d:=d+1;
           if k=d then begin
                         writeln( i);
                         sk:=sk+1;
                         end;
     end;
    writeln('kiekis  ', sk);
   Readln;
end.
-----------------------------
program programa;
  var a, b,s,i,s1 :integer;
begin
  WriteLn('Iveskite Skaicius a,b:');
  Readln(a,b);
  S:=0;
  S1:=1;
  for i:=a to b do
  if i mod 2=0 then s:=s+i
               else s1:=s1*i;

  Writeln('Suma:', s);
  Writeln('Sandauga:',s1);
  Readln;
end.
--------------------------------
Cia susikursi dar tekstini failiuka

program programa;
  var s,sk,n:integer;
      f,g :text;
begin
  assign(f,'failas.txt');reset(f);
  assign(g,'rez.txt');rewrite(g);
   n:=0;
    while not eof(f) do
     begin
      n:=n+1;
       s:=0;
        while not eoln(f) do
         begin
          read(f,sk);
           s:=s+sk;
         end;
         Readln(f);
        WriteLn(g,n, 'Suma:', s);
     end;
    Close(f);
    Close(g);
  Readln;
end.





Gal galit Parasyti is ko jis susideda ka reiskia Ka daro nu kaska panasaus :) pasikinima kas kaip padaryta :)
Užauges būsiu Gaisrinės mašina.
Redagavo Edvinas. 2010 Sau. 15 22:01:36
Peršokti į forumą: