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

Registruoti nariai: 25,952
Naujausias narys: tomeem

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

tomeem 1 savaitė
Reikalas 2 savaitės
weberiz 4 savaitės
mRokass 6 savaitės
kartoonas 8 savaitės
iaescortsmap 8 savaitės
ozzWANTED 9 savaitės
grunskiz10 savaitės
Bruksnys11 savaitės
illusion11 savaitės
ordo12 savaitės
Jurgaila13 savaitės
originalcs1613 savaitės
Rytis13 savaitės
halis15 savaitės
junkus18 savaitės
morlis18 savaitės
Majakas19 savaitės
andsoft20 savaitės
picolee9021 savaitės

Informacija:


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