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

Registruoti nariai: 25,956
Naujausias narys: saulyzas

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

MaFetas 1 savaitė
ozzWANTED 3 savaitės
saulyzas 5 savaitės
TOMIJUS 6 savaitės
Reikalas15 savaitės
Jaunelis21 savaitės
lanis22 savaitės
And2s22 savaitės
Memento Mori27 savaitės
Quwqkibor30 savaitės
asirija34 savaitės
tomeem36 savaitės
weberiz39 savaitės
mRokass41 savaitės
kartoonas42 savaitės
grunskiz45 savaitės
Bruksnys46 savaitės
illusion46 savaitės
ordo47 savaitės
Jurgaila47 savaitės

Informacija:


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