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

Navigacija

Vartotojų tinkle

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

Registruoti nariai: 25,957
Naujausias narys: keistuole

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

Nepas	1 diena
keistuole	2 savaitės
Gizmis	3 savaitės
Reikalas	3 savaitės
Rytis	13 savaitės
MaFetas	17 savaitės
ozzWANTED	18 savaitės
saulyzas	20 savaitės
TOMIJUS	22 savaitės
Jaunelis	37 savaitės
lanis	37 savaitės
And2s	38 savaitės
Memento Mori	43 savaitės
Quwqkibor	45 savaitės
asirija	49 savaitės
tomeem	51 savaitės
weberiz	54 savaitės
mRokass	57 savaitės
kartoonas	58 savaitės
grunskiz	61 savaitės

Informacija:

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

Nepas
2025 Bal. 9 17:04:13

Nepas
2025 Bal. 9 17:04:08

Gizmis
2025 Kov. 15 14:03:50
OMG, smagu matyt sita puslapi veikianti

ozzWANTED
2024 Lap. 30 15:11:14
Taip, vis dar up

MaFetas
2024 Lap. 13 22:11:57
hey how, geras dar veikiantis saitas?

Š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ų: 7615

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ą: