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

Registruoti nariai: 25,956
Naujausias narys: saulyzas

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

saulyzas 3 dienos
MaFetas 5 dienos
TOMIJUS 1 savaitė
ozzWANTED 1 savaitė
Reikalas10 savaitės
Jaunelis16 savaitės
lanis17 savaitės
And2s17 savaitės
Memento Mori22 savaitės
Quwqkibor25 savaitės
asirija29 savaitės
tomeem31 savaitės
weberiz34 savaitės
mRokass36 savaitės
kartoonas37 savaitės
grunskiz40 savaitės
Bruksnys41 savaitės
illusion41 savaitės
ordo42 savaitės
Jurgaila42 savaitės

Informacija:


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

Slaptažodis



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ė akinanti šypsen Šimtas metų, matau Šaukykloje nuostalgija. Smagu panaršyt po forumą ir pažiūrėt senas temas šypsosi

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 akinanti šypsen ačiū Ozz kad saugoji šitą kultūrinį reliktą šypsosi

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. šypsosi

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

Š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: klausimai
Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | C#, Python, Java, JS, C++ klausimai
Puslapis 1 iš 5 1 2 3 4 5 >
Autorius: s1Nk Peržiūrų: 89567      Spausdinti temą
2010 Rugs. 14 20:09:31          1 žinutė iš 169
Spausdinti pranešimą
Taigi kadangi laikysiu egzaminą informatikos, reiktu pradėti mokytis paskali. Visu pirma iš kur man ji parsisiust? Ir kur būtu straipsniu pradedančiajam. Biški 10 klasei programavom, bet daug ka esu užmiršes.
www.muz1ka.lt
Redagavo s1Nk 2011 Sau. 20 17:01:52
2010 Rugs. 14 20:09:05          2 žinutė iš 169
Spausdinti pranešimą
http://www.ipc.lt/21z/mokymas/mo...askal7.htm
pamokos
2010 Rugs. 14 20:09:08          3 žinutė iš 169
Spausdinti pranešimą
Štai: http://ims.mii.lt/fps/lt/about/i... šypsosi
2010 Rugs. 14 20:09:45          4 žinutė iš 169
Spausdinti pranešimą
Ne itin sunku surasti kur siųstis googlėje:

http://www.google.lt/search?hl=l...p;gs_rfai=

Dėl pamokų, tai geriausia paprašyk info mokytojos knygos. Joje atlikęs visas užduotis tikrai mokėsi nemažaimerkia akį
www.creatium.lt
2010 Rugs. 14 20:09:09          5 žinutė iš 169
Spausdinti pranešimą
Jau iškart galit kas parašyt nesunku uždavini pamėginsiu parašyt programa. šypsosi Kuo geresnis tas turbo paskalis? akinanti šypsen akinanti šypsen
www.muz1ka.lt
Redagavo s1Nk 2010 Rugs. 14 20:09:43
2010 Rugs. 14 20:09:50          6 žinutė iš 169
Spausdinti pranešimą
Tai kam tau uždavinį rašyt? Paprasčiausiai pats parašyk programą, kuri skaičiuoja (sudeda, atima, daugina, dalina, vėliau kuri ir tam tikrą procentinę dalį apskaičiuoja) ir išmoksi. Nepamiršk, kad čia eina pagrinde matematika, na ir aišku pats Pascalis.
www.creatium.lt
2010 Rugs. 14 20:09:28          7 žinutė iš 169
Spausdinti pranešimą
Na kiek spresdavau 10 klasei tai suniausia būdavo parašyt patį matematinį uždavinį. O šiaip tas paskalis yra naudingas? Ta prasme jis man bus kur nors nadudingas? galvoja
www.muz1ka.lt
Redagavo s1Nk 2010 Rugs. 14 20:09:06
2010 Rugs. 14 20:09:18          8 žinutė iš 169
Spausdinti pranešimą
tigi per pamokas su paskaliu dirbsit ir viska ismokys
2010 Rugs. 14 20:09:38          9 žinutė iš 169
Spausdinti pranešimą
Naudingas egzuose akinanti šypsen.
P.S. Siūlyčiau naudoti fps (free pascal) patogesnis.
2010 Rugs. 14 20:09:18          10 žinutė iš 169
Spausdinti pranešimą
paskalis yra programuotojo pačios pradmenys šypsosi
2010 Rugs. 14 20:09:17          11 žinutė iš 169
Spausdinti pranešimą
new parašė:
tigi per pamokas su paskaliu dirbsit ir viska ismokys


Na daugumas klasėjė nori dirbti su wordu. Tai kažin ar dirbsim. akinanti šypsen Aš ir davienas ruošiuos egzaminą laikyt tai daug laiko reiks dirbt individuoliai. šypsosi mokykloi yra FPS tai yr šita žadu naudot mokinantis namuose.merkia akį
www.muz1ka.lt
Redagavo s1Nk 2010 Rugs. 14 20:09:05
2010 Rugs. 14 20:09:57          12 žinutė iš 169
Spausdinti pranešimą
O jums neleido 10 klasėje rinktis ką norit ?
Programavimą (pascal)
Dizainą
Tinklapių kūrimą (HTML)

Nes mes rinkomės kas ką nori, o tada skėlė į grupes.
Dj zDon @ FACEBOOK
2010 Rugs. 14 20:09:18          13 žinutė iš 169
Spausdinti pranešimą
Ne, neleido. Dirbom su wordais exeliais ir pnš. šypsosi
www.muz1ka.lt
2010 Rugs. 14 20:09:54          14 žinutė iš 169
Spausdinti pranešimą
pas mane 2 skolos is paskalio .Tamsus miskas
http://www.linksmiau.net/zaidimu... zaidimu kodai
2010 Rugs. 14 20:09:44          15 žinutė iš 169
Spausdinti pranešimą
zdon ce dabar tokia nauja programa yra, siais ar preitais metais pradejo skirstyt i tuos kaip sakai programuotojus, dizainerius ir koduotojus... šypsosi
2010 Rugs. 14 20:09:52          16 žinutė iš 169
Spausdinti pranešimą
Tai va pirmają programą bandžiau parašyt sudėti, bet esu palikes klaidu gla pataisytumėt ir pasakytumėt ku klaidas padariau. 


program Sudėtis;

var a, b;

begin

  WriteLn('Iveskite skaičiu:');

  read (a);

  WriteLn ('Iveskite skaičiu:');

  read (b);

  Write (a+b);

  Readln;

end.


galvoja
www.muz1ka.lt
Redagavo s1Nk 2010 Rugs. 14 20:09:34
2010 Rugs. 14 20:09:35          17 žinutė iš 169
Spausdinti pranešimą
read pakeisk į readln, o write į writeln. Pas mus jeigu budavo read/write, tai neveikdavo kažkodėl... Ir, man atrodo po paskutinio readln nereikia ; (gal ir klystu)
www.creatium.lt
Redagavo Creatium 2010 Rugs. 14 20:09:02
2010 Rugs. 14 20:09:33          18 žinutė iš 169
Spausdinti pranešimą
Na klaida rodo kaškas blogai ties begin. galvoja
www.muz1ka.lt
2010 Rugs. 14 21:09:42          19 žinutė iš 169
Spausdinti pranešimą
Ai, dar gali būt dėl to:

var a, b; pakeisk į var a, b : integer;

Jeigu ne, tai nežinau.
www.creatium.lt
2010 Rugs. 14 21:09:21          20 žinutė iš 169
Spausdinti pranešimą
Paskutinis readln tik del sintakses, jis nieko nedaro. O del sito readln ar read tai reikia geriau rasyt readln, nes kazkaip kaikurios programos teskaito tik taip.
2010 Rugs. 14 21:09:12          21 žinutė iš 169
Spausdinti pranešimą
Veikia. šypsosi Ka bereiškia tas integer? Kiek prisimenu, mes ji rašydavom vietoj var. Ir dar kaip, kad išvestu rezultata rašytu "Rezultatas: atsakymas" drovus
www.muz1ka.lt
2010 Rugs. 14 21:09:48          22 žinutė iš 169
Spausdinti pranešimą
Žemaitis parašė:
Paskutinis readln tik del sintakses, jis nieko nedaro. O del sito readln ar read tai reikia geriau rasyt readln, nes kazkaip kaikurios programos teskaito tik taip.


Paskutinis readln yra dėl to, kad programa parašius atsakymą neišsijungtų. Jeigu jo nebūtų, tai nespėtum pamatyt atsakymo, o programa jau išsijungtų. Su readln reikia paspaust enter (arba kokį kitą) ir tik tuomet išsijungia.


Integer reiškia, kad skaičius yra sveikasis. Vietoj jo gali būt ir kitokios reikšmės.
www.creatium.lt
Redagavo Creatium 2010 Rugs. 14 21:09:26
2010 Rugs. 14 21:09:20          23 žinutė iš 169
Spausdinti pranešimą
Žemaitis parašė:
Paskutinis readln tik del sintakses, jis nieko nedaro. O del sito readln ar read tai reikia geriau rasyt readln, nes kazkaip kaikurios programos teskaito tik taip.


Na čia kaškada ozz poste mačiau, kad kaškaip ten readLn skaito eiltute o read visa gabalą ar panašiai. šypsosi
www.muz1ka.lt
2010 Rugs. 14 21:09:16          24 žinutė iš 169
Spausdinti pranešimą
Ai jo, gali buti, pats nebepamenu šypsosi Integer reiskia berots kad rasys sveikus skaicius be kableliu,

Read kaiptik skaito tik viena eilute kur issitenka, o jeigu eilute ilgesne, per kelis stulpelius tada ja skaito tik readln
2010 Rugs. 14 21:09:30          25 žinutė iš 169
Spausdinti pranešimą
Na galutinis variantas aatrodo taip jei kas irgi sumanytu kartu mokytis. 


program sudėtis;

var a, b : integer;

begin

  WriteLn('Iveskite skaičiu:');

  readLn(a);

  WriteLn ('Iveskite skaičiu');

  readLn(b);

  WriteLn (a+b);

  Readln

end.


Dar kaip prie to atsakymo kur išveda dadėt teksta "Rezultatas" galvoja
www.muz1ka.lt
2010 Rugs. 14 21:09:14          26 žinutė iš 169
Spausdinti pranešimą
Aš irgi dešimtokas, suskirste į grupes, bet tik viena savaitinė pamoka.. tai atsibosta tos informatikos ir laukt, namuos kanors neturėdamas ką veikt bandau savarankiškai, tai jei kas bus neašiku sakyk, pabandysiu padėt šypsosi


 

program sudėtis;

 

var a, b : integer;

 

begin

 

  WriteLn('Iveskite skaičiu:');

 

  readLn(a);

 

  WriteLn ('Iveskite skaičiu');

 

  readLn(b);

 

  WriteLn ('Rezultatas: ',a+b);

  Readln

 

end.
2010 Rugs. 14 21:09:30          27 žinutė iš 169
Spausdinti pranešimą
Antras lygis vidurkis. 


program vidurkis;

var a, b, vid: real;

begin

WriteLn ('Iveskite skaičiu')

read(a);

WriteLn ('Iveskite skaičiu')

read(b);

vid := (a+b)/2;

writeln(vid: 8: 2)

end.


Ka reiškia antroi eilutėi "vid: real;" Dar kaškodėl ketvirtoi eilutėi pačioj pradžioj klaida išmeta. Ir kaip suprast paskutine eilute (writeln(vid: 8: 2))
www.muz1ka.lt
Redagavo s1Nk 2010 Rugs. 14 21:09:03
2010 Rugs. 14 21:09:33          28 žinutė iš 169
Spausdinti pranešimą
Pats esu baigęs KTU fps kursą. Jei - pagalbos reiks klausk! Šiuo metu negaliu padėti, nes per telefoną naršau.
2010 Rugs. 14 21:09:22          29 žinutė iš 169
Spausdinti pranešimą
Na tai klausimai eina kaip iš kamyno. Pati pradžia daug kas neaišku. šypsosi P.S pažiurėkit kas gali blogai su ta programa. galvoja
www.muz1ka.lt
2010 Rugs. 14 21:09:56          30 žinutė iš 169
Spausdinti pranešimą
real yra realieji skaičiai tarkim atsakymą rašo ne tik sveikuosiu skaičius.
Meta klaidą, nes po writeln nepadėjai ;
(vid: 8: 2) parašo vidurkį su nustatytu skaičių kiekiu po kablelio.
2010 Rugs. 14 21:09:32          31 žinutė iš 169
Spausdinti pranešimą
program vidurkis;

var a, b, vid: real;

begin

WriteLn ('Iveskite skaičiu');

readLn (a);

WriteLn ('Iveskite skaičiu');

readLn(b);

vid := (a+b)/2;

writeln(vid: 8: 2);

end.
2010 Rugs. 14 21:09:03          32 žinutė iš 169
Spausdinti pranešimą
Daug maž turėtų veikt:


program vidurkis;

 

var a, b, vid: real;

 

begin

WriteLn ('Iveskite skaičiu');

readln(a);

WriteLn ('Iveskite skaičiu');

readln(b);

vid := (a+b)/2;

writeln(vid: 8: 2);

readln

end.



real reiškia, kad skaičius realus, tai gali būt su kableliais.
www.creatium.lt
2010 Rugs. 14 21:09:49          33 žinutė iš 169
Spausdinti pranešimą
štai galutinis variantas mano. akinanti šypsen 


program vidurkis;

var a, b, vid: real;

begin

WriteLn ('Iveskite skaičiu');

read(a);

WriteLn ('Iveskite skaičiu');

read(b);

vid := (a+b)/2;

writeln('Vidurkis',vid: 8: 2);

ReadLn

end.


Bet nesuprantu kodėl ji kai išveda vidurki ji iškart išsijungia. ReadLn gale esu darašes. galvoja
www.muz1ka.lt
2010 Rugs. 14 21:09:15          34 žinutė iš 169
Spausdinti pranešimą
Neparašei ; gale....
2010 Rugs. 14 21:09:35          35 žinutė iš 169
Spausdinti pranešimą
Tai kai gale darašai ; vistiek išsijungia. šypsosi
Na gal vėliau kas parašys. Daugybos programa. 


program daugyba;

var a, b : integer;

begin

  WriteLn('Iveskite skaičiu:');

  read(a);

  WriteLn ('Iveskite skaičiu:');

  readLn(b);

  WriteLn ('Rezultatas:',a*b);

  Readln;

end.


Dabar pradedu rašyt programa kuri keltu laipnsiu. šypsosi
www.muz1ka.lt
Redagavo s1Nk 2010 Rugs. 14 21:09:38
2010 Rugs. 14 21:09:35          36 žinutė iš 169
Spausdinti pranešimą
Na kartais būna bugų. Parašyk dar vieną ReadLn; ir neišsijungs.
Nemanau, kad parašysi, reikia išmokti ciklą while arba repeat.

Redagavo citni 2010 Rugs. 14 21:09:37
2010 Rugs. 14 21:09:38          37 žinutė iš 169
Spausdinti pranešimą
Žemaitis parašė:
zdon ce dabar tokia nauja programa yra, siais ar preitais metais pradejo skirstyt i tuos kaip sakai programuotojus, dizainerius ir koduotojus... šypsosi

Tikrai ne šiais įvedė tai. šypsosi
Aš niekada neturiu išankstinio nusistatymo apie žmones. Aš nekenčiu visų jų vienodai.
2010 Rugs. 14 21:09:58          38 žinutė iš 169
Spausdinti pranešimą
Padėjo. šypsosi Dar viena programa. šypsosi Pažiurėkit ar gerai parašyta.merkia akį


program kelimas laipsniu;

var a, b : integer;

begin

  WriteLn('Iveskite skaičiu 1:');

  read(a);

  WriteLn ('Iveskite skaičiu 2:');

  readLn(a);

  WriteLn ('Iveskite skaičiu 3:');

  readLn(a);

  WriteLn ('Rezultatas:',a*a*a);

  Readln;

end.


Na biški jau prisiminiau. Einu žiurėt paprastu uždavinių. šypsosi
www.muz1ka.lt
2010 Rugs. 14 21:09:53          39 žinutė iš 169
Spausdinti pranešimą
O palauk čia programuoja su FPS programa gal? šypsosi
Aš niekada neturiu išankstinio nusistatymo apie žmones. Aš nekenčiu visų jų vienodai.
2010 Rugs. 14 21:09:43          40 žinutė iš 169
Spausdinti pranešimą
Perskaityk aukščiau postus. drovus
www.muz1ka.lt
Puslapis 1 iš 5 1 2 3 4 5 >
Peršokti į forumą: