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

Registruoti nariai: 25,955
Naujausias narys: Johny

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

Johny 2 savaitės
Reikalas 3 savaitės
Jaunelis 9 savaitės
lanis 9 savaitės
And2s10 savaitės
Memento Mori15 savaitės
ozzWANTED16 savaitės
Quwqkibor17 savaitės
asirija21 savaitės
tomeem23 savaitės
weberiz27 savaitės
mRokass29 savaitės
kartoonas30 savaitės
iaescortsmap30 savaitės
grunskiz33 savaitės
Bruksnys33 savaitės
illusion33 savaitės
ordo34 savaitės
Jurgaila35 savaitės
originalcs1635 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 3.15.18.198
Naujienų: 529
Straipsnių: 235
Temų: 52,588
Postų: 522,528
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.

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

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?

Š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
Pascal: Padėkit išspręsti
Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | C#, Python, Java, JS, C++ klausimai
Autorius: Rose Peržiūrų: 3321      Spausdinti temą
2012 Bal. 11 20:04:28          1 žinutė iš 12
Spausdinti pranešimą
Sveiki, prireikė jūsų pagalbos, programeriai. šypsosi Taigi dabar einam while ciklą, išvis nieko nesigaudau apie jį kolkas, ir davė nd.

Galit kas išspręst? Štai sąlyga. Parašyti programą kuri rastu visų skaičių nuo 1 iki n sandaugą.

Aišku, ačiū iš kart, bei +11 gausit. šypsosi
2012 Bal. 11 21:04:52          2 žinutė iš 12
Spausdinti pranešimą
Jei neklystu turėtų būti: 'FPS'. Tačiau deja ne 100proc. užtikrintas esu.
2012 Bal. 11 21:04:50          3 žinutė iš 12
Spausdinti pranešimą
Prašommerkia akį


program sandauga;

  var n, san, i : integer;

begin

  readln(n);

  san := 1;

  i := 1;

  while i <= n do

    begin

      san := san * i;

      i := i + 1

    end;

  writeln ('sandauga = ', san);

 readln;

end.

Pigiausia SMS reklama !
http://topwarez.lt/reklama/uzsak...
2012 Bal. 11 21:04:22          4 žinutė iš 12
Spausdinti pranešimą
Readln(n);
Sk:=1;
While n <> sk do
Begin
A:=a*sk;
Sk++;
End;

Klaidas išsitaisysi, su fps nk nemoku, programuoju su c++. Be to rašiau per tlf.
2012 Bal. 11 21:04:37          5 žinutė iš 12
Spausdinti pranešimą
Hs parašė:
Readln(n);
Sk:=1;
While n <> sk do
Begin
A:=a*sk;
Sk++;
End;

Klaidas išsitaisysi, su fps nk nemoku, programuoju su c++. Be to rašiau per tlf.


Ką tu čia puliuoji ? Taigi parašiau jau gerą programą, o iš tavo parašytos programos tai tik kažkoks c++ ir pascal kratinys.
Pigiausia SMS reklama !
http://topwarez.lt/reklama/uzsak...
2012 Bal. 12 14:04:21          6 žinutė iš 12
Spausdinti pranešimą
Labai dėkui, Kižas, bet programa neveike, išmeta errorus, nusiunčiau žinutę į PM tau, tikiuosi pataisysi.merkia akį
2012 Bal. 12 19:04:56          7 žinutė iš 12
Spausdinti pranešimą
Kižas parašė:
Hs parašė:
Readln(n);
Sk:=1;
While n <> sk do
Begin
A:=a*sk;
Sk++;
End;

Klaidas išsitaisysi, su fps nk nemoku, programuoju su c++. Be to rašiau per tlf.


Ką tu čia puliuoji ? Taigi parašiau jau gerą programą, o iš tavo parašytos programos tai tik kažkoks c++ ir pascal kratinys.


Nope, sk++; veikia ir ant pascal
2012 Bal. 12 20:04:08          8 žinutė iš 12
Spausdinti pranešimą
ShadoVw parašė:
Kižas parašė:
Hs parašė:
Readln(n);
Sk:=1;
While n <> sk do
Begin
A:=a*sk;
Sk++;
End;

Klaidas išsitaisysi, su fps nk nemoku, programuoju su c++. Be to rašiau per tlf.


Ką tu čia puliuoji ? Taigi parašiau jau gerą programą, o iš tavo parašytos programos tai tik kažkoks c++ ir pascal kratinys.


Nope, sk++; veikia ir ant pascal


Troli, žmogus pirmą kartą matęs pascal vpš jame nesigaudo, tai gal sakau nereikia jam sk++; , nes jis jų net nesupras ir jam tai bus per sudėtinga, o jei mokytojas dar lieps ir paaiškinti kaip ką parašę kas tada ?
Pigiausia SMS reklama !
http://topwarez.lt/reklama/uzsak...
2012 Bal. 12 21:04:39          9 žinutė iš 12
Spausdinti pranešimą
Taigi sakau meta errora Kižai.
2012 Bal. 12 21:04:59          10 žinutė iš 12
Spausdinti pranešimą
Aš kol surinkau tekstą Kižas jau spejo normalu padaryti, tai srr. O del error parašyk ką meta.

Edit:

i := i + 1

Kabliataškio truksta gale!
2012 Bal. 13 14:04:58          11 žinutė iš 12
Spausdinti pranešimą
Sudėjas esu aš visur kabliataškius, iš pradžių metė " peržengti rėžiai " pakeičiau integer į longint tada pradėjo mest, klaida 205.
2012 Bal. 13 18:04:05          12 žinutė iš 12
Spausdinti pranešimą
Hs,

Taigi po 

end;
yra padėtas kabliataškis, netingėkit peržiūrėti visa kodo dalį iki galo šypsosi

Na jei tau per mažą rėžių tai pakeisk į šias eilutes


 var n, san, i : extended;


ir


 writeln ('sandauga = ', san:6:2);

Pigiausia SMS reklama !
http://topwarez.lt/reklama/uzsak...
Redagavo Kižas 2012 Bal. 13 18:04:57
Peršokti į forumą: