Temos pavadinimas: WordPress, Shopify ir PHPFusion programuotojų bendruomenė :: Mano Pascal klausimai.
Parašė SWIZZ· 2010 Gru. 13 19:12:23
#1
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.
Parašė citni· 2010 Gru. 13 19:12:37
#2
Kaikurių programų toks bugas. Parašyk dar vieną readln;
Parašė Faitas.· 2010 Gru. 13 19:12:20
#3
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 :)
Parašė edeni· 2010 Gru. 13 19:12:01
#4
Dapkus dėsto informa? Jeigu jo tai gaidis jis yra. Neleidžia cs'o žaist per pamokas, intiką atjunginėja. :(((
Parašė Faitas.· 2010 Gru. 13 19:12:23
#5
Goku Tu čia man? :D
Parašė edeni· 2010 Gru. 13 19:12:01
#6
Faitas parašė:
Goku Tu čia man? :D
Ne. Nedarom ot čia.
Parašė SWIZZ· 2010 Gru. 13 20:12:30
#7
Goku, ne Dapkus, o ta Ryža. :D Faitai, ką ten pakeitėi gali pasakyti? :) Nes man ne vien tokioj programoj reikia.
Parašė Faitas.· 2010 Gru. 13 20:12:27
#8
Niekad nerašyk:
Read( ... );
Rašyk:
ReadLn( ... );
Ir niekad nerašyk
Write( '...' );
O rašyk
WriteLn( '...' );
Na manau turėtum žinoti tokius elementarius dalykus :)
Parašė SWIZZ· 2010 Gru. 13 20:12:46
#9
Prasirgau 2 savaitės, tai daug ką pamiršau... :)
Veikia, dėkui.
Parašė Faitas.· 2010 Gru. 13 20:12:09
#10
Jai dar ko nors reiks klausk :)
Parašė citni· 2010 Gru. 13 20:12:11
#11
Faitai, žinai kam naudojama Read ir kam naudojama Readln? :). Juos reikia naudoti tada, kada reikia.
Parašė SWIZZ· 2010 Gru. 13 20:12:46
#12
Elvinai, gali plačiau? :)
Parašė Faitas.· 2010 Gru. 13 20:12:11
#13
Ž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 :)
Parašė citni· 2010 Gru. 13 20:12:16
#14
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. :)
Parašė SWIZZ· 2010 Gru. 13 20:12:20
#15
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);
Parašė Faitas.· 2010 Gru. 13 20:12:59
#16
Vat šito jau nežinau. ?| Palauk paieškosiu informacijos kur nors, gal surasiu kokia pamoka :)
Parašė SWIZZ· 2010 Gru. 13 20:12:19
#17
Arba tarkim: (kad negalėtum daugiau 4 įrašyti?)
Writeln ('Įveskite keturženklį skaičių:');
Read (kt);
Parašė Faitas.· 2010 Gru. 13 20:12:29
#18
Vienu žodžiu, reikia su DIV skaidyti tą skaičių, ir tadas su sąlyginiu sakiniu
IF tikrini ar tiek gavai skaitmenų ar ne :)
Parašė citni· 2010 Gru. 13 21:12:56
#19
Jei nori, galiu parašyt programą su while ciklu.
Parašė SWIZZ· 2010 Gru. 13 22:12:16
#20
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")
Parašė citni· 2010 Gru. 13 22:12:16
#21
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.
Parašė SWIZZ· 2010 Gru. 13 22:12:06
#22
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.
Parašė citni· 2010 Gru. 13 22:12:58
#23
Nu jei nori tikrinimo po įvedimo, tai
if x >999 then
,o jei vedant tai naudok
for i:= 1 to 3 do