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