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ų: 120
Prisijungusių narių: 0
Prisijungusių narių nėra

Registruoti nariai: 25,956
Naujausias narys: saulyzas

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

Reikalas 3 savaitės
Rytis 5 savaitės
MaFetas 9 savaitės
ozzWANTED11 savaitės
saulyzas13 savaitės
TOMIJUS14 savaitės
Jaunelis29 savaitės
lanis30 savaitės
And2s30 savaitės
Memento Mori35 savaitės
Quwqkibor38 savaitės
asirija42 savaitės
tomeem44 savaitės
weberiz47 savaitės
mRokass49 savaitės
kartoonas50 savaitės
grunskiz53 savaitės
Bruksnys54 savaitės
illusion54 savaitės
ordo55 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 18.216.253.53
Naujienų: 529
Straipsnių: 235
Temų: 52,589
Postų: 522,538
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 Lap. 30 15:11:14
Taip, vis dar up šypsosi

MaFetas
2024 Lap. 13 22:11:57
hey how, geras dar veikiantis saitas?

Jaunelis
2024 Lie. 25 11:07:43
Oho vis dar veikia svetainė akinanti šypsen Šimtas metų, matau Šaukykloje nuostalgija. Smagu panaršyt po forumą ir pažiūrėt senas temas šypsosi

And2s
2024 Lie. 17 19:07:04
2008 pirmą kart čia patekau, man buvo 10m ir čia pramokau programavimo.. smagu skaityti senas žinutes, tokia nostalgija akinanti šypsen ačiū Ozz kad saugoji šitą kultūrinį reliktą šypsosi

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

Š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ų: 2113      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ą: