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

Registruoti nariai: 25,964
Naujausias narys: laleceylan50

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

Reikalas 2 savaitės
Kižas 3 savaitės
Bruksnys 4 savaitės
laleceylan50 5 savaitės
minimukas 6 savaitės
N-20 8 savaitės
Rytis 9 savaitės
DjArtas10 savaitės
WolfHammer10 savaitės
Nostesi20 savaitės
Wisedocs21 savaitės
asdasdddz24 savaitės
Paslapties K...25 savaitės
Audrius_1728 savaitės
Simbijanas40 savaitės
Karinacraft41 savaitės
Žmogus44 savaitės
Darexs51 savaitės
Nepas52 savaitės
keistuole54 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 216.73.216.63
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ų: 4486      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.
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.
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 ?
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);


Redagavo Kižas 2012 Bal. 13 18:04:57
Peršokti į forumą: