Autorius Tema: {Pascal} Sąlyginiai sakiniai.  (Skaityta 4304 kartus)

Neprisijungęs Edmundas Ciucko

  • Moderatorius
  • Dalyvis
  • *****
  • Įrašai: 506
  • Karma: +27/-4
    • Žiūrėti profilį
    • Fejsbūkas.
{Pascal} Sąlyginiai sakiniai.
« Įrašytas: 2009-05-08 12:36:36 pm »


*Paveikslėlis buvo rehostintas*
« Paskutinį kartą keitė: 2009-05-11 19:26:53 pm sukūrė Falkner »
“It looks good” is the worst feedback you can get -
                                                                           Whitney Hess

filmai.in

Neprisijungęs Lukas

  • Administratorius
  • Herojus
  • ******
  • Įrašai: 7431
  • Karma: +232/-15
    • Žiūrėti profilį
Re: {Pascal} Sąlyginiai sakiniai.
« Atsakymas #1 Įrašytas: 2009-05-08 18:30:47 pm »
oba, gerai padarei :o
Jūsų draugas, kolega ir puslapio administratorius,

Lukas.

Gerda Photography
Serveriai.lt 50% nuolaida!
Free Hosting
Free Templates

Neprisijungęs Edmundas Ciucko

  • Moderatorius
  • Dalyvis
  • *****
  • Įrašai: 506
  • Karma: +27/-4
    • Žiūrėti profilį
    • Fejsbūkas.
Re: {Pascal} Sąlyginiai sakiniai.
« Atsakymas #2 Įrašytas: 2009-05-08 19:15:24 pm »
oba, gerai padarei :o
Norėtus išgirst tiksliau, kas tas gerai :)
« Paskutinį kartą keitė: 2009-05-08 20:12:21 pm sukūrė Falkner »
“It looks good” is the worst feedback you can get -
                                                                           Whitney Hess

filmai.in

Neprisijungęs Macaque

  • Dalyvis
  • **
  • Įrašai: 861
  • Karma: +26/-0
  • makakuje.
    • Žiūrėti profilį
Re: {Pascal} Sąlyginiai sakiniai.
« Atsakymas #3 Įrašytas: 2009-07-28 22:27:51 pm »
Kaip ir sakiai jeigu kas neaišku tai rašyti komentaruose, taigi aš čia ir parašiau.
 
Citata
program Pamoka02;
var x, ats:real
    Sal:char;
begin
writeln('Pasirinkite : 1.Randa 3,14 kvadratà, 2. Iðtraukia 3,14 ðakná.');
readln(Sal);
x=3.14;
if Sal = 1 then ats:=sqr(x)
           else ats:=sqrt(x);
           
writeln(Atsakymas: ' ,ats:4:2);
readln;
end.

Kodas viršuje, kas čia blogai yra? :S
„Tik vienas dalykas gali svajonę padaryti neįgyvendinamą: tai baimė, kad nepasiseks. “ - Paulo Coelho

Rekomenduoju pirkti domenus iš - IV.lt

Manualai.lt Forumas

Re: {Pascal} Sąlyginiai sakiniai.
« Atsakymas #3 Įrašytas: 2009-07-28 22:27:51 pm »

Neprisijungęs Edmundas Ciucko

  • Moderatorius
  • Dalyvis
  • *****
  • Įrašai: 506
  • Karma: +27/-4
    • Žiūrėti profilį
    • Fejsbūkas.
Re: {Pascal} Sąlyginiai sakiniai.
« Atsakymas #4 Įrašytas: 2009-07-29 14:48:15 pm »
Citata
program Pamoka02;
var x, ats:real;
    Sal:byte;
begin
writeln('Pasirinkite : 1.Randa 3,14 kvadrat?, 2. I?traukia 3,14 ?akn?.');
readln(Sal);
x:=3.14;
if Sal = 1 then ats:=sqr(x)
           else ats:=sqrt(x);

writeln('Atsakymas: ' ,ats:4:2);
readln;
end.

Buvo net kelios klaidos :)

Pirma, nurodanat kintamojo tipą reikia padėti kabliataškio ženklą eilutės gale.
Antra, nurodant kintamojo reikšmę reikai naudoti ženklus ':=' o ne '=.
Ir trečia, žiopla klaida 'writeln' komandoje, neatskyrėi teksto pradžioje  :)
“It looks good” is the worst feedback you can get -
                                                                           Whitney Hess

filmai.in

Neprisijungęs Lukas

  • Administratorius
  • Herojus
  • ******
  • Įrašai: 7431
  • Karma: +232/-15
    • Žiūrėti profilį
Re: {Pascal} Sąlyginiai sakiniai.
« Atsakymas #5 Įrašytas: 2009-08-13 22:07:23 pm »
paskaicius siuos kelis komentarus, manau reiktu prideti prie pamokos koki txt faila/tiesiog papeistinti i post'a visa koda, kuris buvo naudojamas pamokoje :)


Citata
Norėtus išgirst tiksliau, kas tas gerai :)
o is pirmo zvilgsnio patiko visas pateikimas, tas buvo gerai ;)
Jūsų draugas, kolega ir puslapio administratorius,

Lukas.

Gerda Photography
Serveriai.lt 50% nuolaida!
Free Hosting
Free Templates

Neprisijungęs Edmundas Ciucko

  • Moderatorius
  • Dalyvis
  • *****
  • Įrašai: 506
  • Karma: +27/-4
    • Žiūrėti profilį
    • Fejsbūkas.
Re: {Pascal} Sąlyginiai sakiniai.
« Atsakymas #6 Įrašytas: 2009-10-17 13:59:11 pm »
paskaicius siuos kelis komentarus, manau reiktu prideti prie pamokos koki txt faila/tiesiog papeistinti i post'a visa koda, kuris buvo naudojamas pamokoje :)




Sakai? :)
“It looks good” is the worst feedback you can get -
                                                                           Whitney Hess

filmai.in

Neprisijungęs Lukas

  • Administratorius
  • Herojus
  • ******
  • Įrašai: 7431
  • Karma: +232/-15
    • Žiūrėti profilį
Re: {Pascal} Sąlyginiai sakiniai.
« Atsakymas #7 Įrašytas: 2009-10-17 17:14:59 pm »
paskaicius siuos kelis komentarus, manau reiktu prideti prie pamokos koki txt faila/tiesiog papeistinti i post'a visa koda, kuris buvo naudojamas pamokoje :)




Sakai? :)

lengviau besimokant butu :] patogumo toks sudniekis,
Jūsų draugas, kolega ir puslapio administratorius,

Lukas.

Gerda Photography
Serveriai.lt 50% nuolaida!
Free Hosting
Free Templates

Manualai.lt Forumas

Re: {Pascal} Sąlyginiai sakiniai.
« Atsakymas #7 Įrašytas: 2009-10-17 17:14:59 pm »