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

Navigacija

Vartotojų tinkle

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

Registruoti nariai: 25,952
Naujausias narys: tomeem

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

asirija	4 dienos
tomeem	2 savaitės
Reikalas	3 savaitės
weberiz	6 savaitės
mRokass	8 savaitės
kartoonas	9 savaitės
iaescortsmap	9 savaitės
ozzWANTED	10 savaitės
grunskiz	12 savaitės
Bruksnys	12 savaitės
illusion	12 savaitės
ordo	13 savaitės
Jurgaila	14 savaitės
originalcs16	14 savaitės
Rytis	15 savaitės
halis	16 savaitės
junkus	19 savaitės
morlis	19 savaitės
Majakas	20 savaitės
andsoft	21 savaitės

Informacija:

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

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

Žmogus
2023 Rugs. 7 21:09:14
O gal BloodKiller pasijungs?

Apocal
2023 Rugs. 2 18:09:23
Nu davai nuveikiam kažką

. Prisijungti kada visi čia

.

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

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ų: 6922

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