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

Registruoti nariai: 25,963
Naujausias narys: WolfHammer

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

minimukas 1 diena
N-20 2 savaitės
Reikalas 2 savaitės
Rytis 2 savaitės
DjArtas 4 savaitės
WolfHammer 4 savaitės
Nostesi14 savaitės
Wisedocs14 savaitės
asdasdddz18 savaitės
Paslapties K...19 savaitės
Audrius_1721 savaitės
Simbijanas34 savaitės
Karinacraft34 savaitės
Žmogus38 savaitės
Bruksnys42 savaitės
Darexs44 savaitės
Nepas45 savaitės
keistuole47 savaitės
Gizmis49 savaitės
MaFetas62 savaitės

Informacija:


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

minimukas
2026 Vas. 21 08:02:25
oi oi akinanti šypsen yra dar cia gyvu? akinanti šypsen

N-20
2026 Vas. 6 21:02:05
O mes dar gyvi šypsosi)

WolfHammer
2026 Sau. 25 01:01:35
drovus

Žmogus
2025 Geg. 31 10:05:18
Kas geresnio? šypsosi

Nepas
2025 Bal. 9 17:04:13
drovus

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