Pascal: Mano Pascal klausimai - WordPress, Shopify ir PHPFusion programuotojų bendruomenė

Navigacija

Vartotojų tinkle

Prisijungusių svečių: 691
Prisijungusių narių: 0
Prisijungusių narių nėra

Registruoti nariai: 25,956
Naujausias narys: saulyzas

Naujausi straipsniai

Įprasti:

IMG BBKodas

Pamoka ,nemokamo php...

HTML lentelės

Išnykstanti reklama

Kalendorius

Skirti naujokams:

Mano profilis įdėj...

PHP-Fusion V7.02.03 ...

Keletas pamokėlių ...

Paskutiniai nariai

saulyzas	16:08:34
MaFetas	2 dienos
TOMIJUS	1 savaitė
ozzWANTED	1 savaitė
Reikalas	10 savaitės
Jaunelis	16 savaitės
lanis	16 savaitės
And2s	17 savaitės
Memento Mori	22 savaitės
Quwqkibor	24 savaitės
asirija	28 savaitės
tomeem	30 savaitės
weberiz	34 savaitės
mRokass	36 savaitės
kartoonas	37 savaitės
grunskiz	40 savaitės
Bruksnys	40 savaitės
illusion	40 savaitės
ordo	41 savaitės
Jurgaila	42 savaitės

Informacija:

OS: Unknown
Naršyklė: Nežinoma
IP: 3.129.39.104
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

Pamiršai slaptažodį?
Paprašyk naujo
Aktyvuoti save

Šaukykla

Jei norite rašyti žinutes, turite prisijungti.

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ė

Šimtas metų, matau Šaukykloje nuostalgija. Smagu panaršyt po forumą ir pažiūrėt senas temas

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

ačiū Ozz kad saugoji šitą kultūrinį reliktą

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.

Majakas
2023 Gru. 10 19:12:39
Negaliu patikėti jog žinutės/pranešimai visi yra nuo 2008 m

Šaukyklos archyvas

Apklausa

Archyvas

Reklama 400x60

Automatizuotas hostingas

Pascal: Mano Pascal klausimai.

Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | C#, Python, Java, JS, C++ klausimai

Autorius: SWIZZ

Peržiūrų: 7258

SWIZZ Narys Tankas Pranešimai: 1990 Įstojęs: 2009 Geg. 2 16:05:45	2010 Gru. 13 19:12:23 1 žinutė iš 23
	Sveiki, taigi esu dešimtokas ir tik šiais metais pradėjom mokintis programavimą (nors turėjom pernai pradėti). Taigi užduosiu čia visus savo klausimus į kuriuos tykiuosi sulaukti atsakymo. Programuoti su Pascal noriu dėl savęs čia nėra mano namų darbai ar šiaip kas, nes gyvenimą sieti su programavimu/matematika. Pirmas klausimas. Paleidus tarkim tokią: (dėl programos nekreipkit demėsio) `program Viduriniai_skaiciai; var kt, s1, s2, s3, s4, suma : integer; begin WriteLn('Iveskite keturženklį skaičių:'); Read(kt); s1 := kt div 1000; s2 := kt div 100 mod 10; s3 := kt div 10 mod 10; s4 := kt mod 10; suma := s2 + s3; Writeln('Sudėjus vidurinius skaičius: ', suma); readln; end.` Suvedus 4 skaičius ir paspaudus Enter programa užsidaro ir rezultatų langą reikia prisišaukti tik per Alt+F5. Kaip padaryti, kad rezultatų langas tiesiog liktu stovėti ir jo nereikėtu kviestis su Alt+F5? Kolkas tiek. Kitus klausimus rašysiu temos postuose. Dėkui. Tomas Balčiūnas @ dA - http://swizz1.deviantart.com/
citni Narys Kapitonas Pranešimai: 796 Įstojęs: 2009 Bir. 28 15:06:04	2010 Gru. 13 19:12:37 2 žinutė iš 23
	Kaikurių programų toks bugas. Parašyk dar vieną readln;
Faitas. Narys Generolas Pranešimai: 1038 Įstojęs: 2010 Geg. 27 17:05:35	2010 Gru. 13 19:12:20 3 žinutė iš 23
	`program Viduriniai_skaiciai; var kt, s1, s2, s3, s4, suma : integer; begin WriteLn('Iveskite keturženklį skaičių:'); ReadLn(kt); s1 := kt div 1000; s2 := kt div 100 mod 10; s3 := kt div 10 mod 10; s4 := kt mod 10; suma := s2 + s3; Writeln('Sudėjus vidurinius skaičius: ', suma); ReadLn; end.` Dabar turėtų veikti, pats šita kursa esu praėjas, lengva tema
edeni Narys Terminatorius Pranešimai: 1502 Įstojęs: 2008 Vas. 7 19:02:18	2010 Gru. 13 19:12:01 4 žinutė iš 23
	Dapkus dėsto informa? Jeigu jo tai gaidis jis yra. Neleidžia cs'o žaist per pamokas, intiką atjunginėja. (( http://itouch.lt - iBendruomenė.
Faitas. Narys Generolas Pranešimai: 1038 Įstojęs: 2010 Geg. 27 17:05:35	2010 Gru. 13 19:12:23 5 žinutė iš 23
	Goku Tu čia man?
edeni Narys Terminatorius Pranešimai: 1502 Įstojęs: 2008 Vas. 7 19:02:18	2010 Gru. 13 19:12:01 6 žinutė iš 23
	Faitas parašė: Goku Tu čia man? Ne. Nedarom ot čia. http://itouch.lt - iBendruomenė.
SWIZZ Narys Tankas Pranešimai: 1990 Įstojęs: 2009 Geg. 2 16:05:45	2010 Gru. 13 20:12:30 7 žinutė iš 23
	Goku, ne Dapkus, o ta Ryža. Faitai, ką ten pakeitėi gali pasakyti? Nes man ne vien tokioj programoj reikia. Tomas Balčiūnas @ dA - http://swizz1.deviantart.com/
Faitas. Narys Generolas Pranešimai: 1038 Įstojęs: 2010 Geg. 27 17:05:35	2010 Gru. 13 20:12:27 8 žinutė iš 23
	Niekad nerašyk: Read( ... ); Rašyk: ReadLn( ... ); Ir niekad nerašyk Write( '...' ); O rašyk WriteLn( '...' ); Na manau turėtum žinoti tokius elementarius dalykus
SWIZZ Narys Tankas Pranešimai: 1990 Įstojęs: 2009 Geg. 2 16:05:45	2010 Gru. 13 20:12:46 9 žinutė iš 23
	Prasirgau 2 savaitės, tai daug ką pamiršau... Veikia, dėkui. Tomas Balčiūnas @ dA - http://swizz1.deviantart.com/
Faitas. Narys Generolas Pranešimai: 1038 Įstojęs: 2010 Geg. 27 17:05:35	2010 Gru. 13 20:12:09 10 žinutė iš 23
	Jai dar ko nors reiks klausk
citni Narys Kapitonas Pranešimai: 796 Įstojęs: 2009 Bir. 28 15:06:04	2010 Gru. 13 20:12:11 11 žinutė iš 23
	Faitai, žinai kam naudojama Read ir kam naudojama Readln? . Juos reikia naudoti tada, kada reikia.
SWIZZ Narys Tankas Pranešimai: 1990 Įstojęs: 2009 Geg. 2 16:05:45	2010 Gru. 13 20:12:46 12 žinutė iš 23
	Elvinai, gali plačiau? Tomas Balčiūnas @ dA - http://swizz1.deviantart.com/
Faitas. Narys Generolas Pranešimai: 1038 Įstojęs: 2010 Geg. 27 17:05:35	2010 Gru. 13 20:12:11 13 žinutė iš 23
	Žinau. Read - Rašyti toje pačioje eilutėje. ReadLn - Rašyti kitoje eilutėje paspaudus ENTER Write - Išveda teksta vienoje eilutėje WriteLn - Perkelia „žymeklį“ į kitą eilute
citni Narys Kapitonas Pranešimai: 796 Įstojęs: 2009 Bir. 28 15:06:04	2010 Gru. 13 20:12:16 14 žinutė iš 23
	Read naudojama, jei nori, kad nuskaitytų vienoje eilutėje, o Readln, kai kiekvieną kintamajį vis kitoje. Tas pats bus ir su Write ir Writeln. Gali pabandyti parašyti programą su dviem write, o po to su writeln.
SWIZZ Narys Tankas Pranešimai: 1990 Įstojęs: 2009 Geg. 2 16:05:45	2010 Gru. 13 20:12:20 15 žinutė iš 23
	Dėkui, o dabar žiūrėkit naujas klausimas. Kaip padaryti, kad pvz.: nr1 langelyje neleistu parašyti daugiau nei 1 skaičiu? Programa tarkim: `GotoXY (5, 2); Writeln ('?'); GotoXY (5, 2); Readln (nr1);` Tomas Balčiūnas @ dA - http://swizz1.deviantart.com/
Faitas. Narys Generolas Pranešimai: 1038 Įstojęs: 2010 Geg. 27 17:05:35	2010 Gru. 13 20:12:59 16 žinutė iš 23
	Vat šito jau nežinau. Palauk paieškosiu informacijos kur nors, gal surasiu kokia pamoka
SWIZZ Narys Tankas Pranešimai: 1990 Įstojęs: 2009 Geg. 2 16:05:45	2010 Gru. 13 20:12:19 17 žinutė iš 23
	Arba tarkim: (kad negalėtum daugiau 4 įrašyti?) `Writeln ('Įveskite keturženklį skaičių:'); Read (kt);` Tomas Balčiūnas @ dA - http://swizz1.deviantart.com/
Faitas. Narys Generolas Pranešimai: 1038 Įstojęs: 2010 Geg. 27 17:05:35	2010 Gru. 13 20:12:29 18 žinutė iš 23
	Vienu žodžiu, reikia su DIV skaidyti tą skaičių, ir tadas su sąlyginiu sakiniu IF tikrini ar tiek gavai skaitmenų ar ne
citni Narys Kapitonas Pranešimai: 796 Įstojęs: 2009 Bir. 28 15:06:04	2010 Gru. 13 21:12:56 19 žinutė iš 23
	Jei nori, galiu parašyt programą su while ciklu.
SWIZZ Narys Tankas Pranešimai: 1990 Įstojęs: 2009 Geg. 2 16:05:45	2010 Gru. 13 22:12:16 20 žinutė iš 23
	Elvinai, dėkui, bet noriu pats išmokti. Supratau, blogai, kad reikia skaidyti... Faitai, gal gali plačiau apie ta IF patikrinimą kiek skaičių įvedžiau? Gal gali pavyzdinę programą parašyti? (čia kur tu rašei "ir tadas su sąlyginiu sakiniu IF tikrini ar tiek gavai skaitmenų ar ne") Tomas Balčiūnas @ dA - http://swizz1.deviantart.com/
citni Narys Kapitonas Pranešimai: 796 Įstojęs: 2009 Bir. 28 15:06:04	2010 Gru. 13 22:12:16 21 žinutė iš 23
	Su if leis daugiau skaičių įves ir po to tikrins ar daugiau ar mažiau tų skaičių. Reik while ciklo arba repeat arba for.
SWIZZ Narys Tankas Pranešimai: 1990 Įstojęs: 2009 Geg. 2 16:05:45	2010 Gru. 13 22:12:06 22 žinutė iš 23
	Aš žinau ką daro if f-ja tik nesuprantu, kaip padaryti, kad tikrintu ar tu įvedėi būtent 3 skaičius, o ne 1, 2, 4 ir t.t. Tomas Balčiūnas @ dA - http://swizz1.deviantart.com/
citni Narys Kapitonas Pranešimai: 796 Įstojęs: 2009 Bir. 28 15:06:04	2010 Gru. 13 22:12:58 23 žinutė iš 23
	Nu jei nori tikrinimo po įvedimo, tai if x >999 then ,o jei vedant tai naudok for i:= 1 to 3 do

Peršokti į forumą: