Autorius Tema: Padėkite išspręsti uždavinį. neišveda į ekraną to, ką turėtų išvesti  (Skaityta 2473 kartus)

Neprisijungęs juodas

  • Naujokas
  • *
  • Įrašai: 87
  • Karma: +0/-0
    • Žiūrėti profilį
Sprendžiau uždavinį. Manau viską gerai padariau, tik kad neišveda į ekraną to, ką turėtų išvesti. Gal jūs kanors suprasite, nes aš nesuprantu. Vien su tais salygos sakiniais man viskas pinasi, tas paskalis toks nepatogus... Nors yra aiški taisyklė, kad po kiekvienu reiškiniu, pvz priskyrimo sakiniu, reikia dėti kabliataškį, bet salygos sakiniuose jo net negalima dėti... Ir daug tokių nesamonių.
Štai kodas:
program Uzduotis6;

var k1, k2, k3:integer;
    m, d:integer;
    gali1, gali2: boolean;

begin
  Writeln('Atostogu pradzia.');
  Write('Menuo: '); Readln(m);
  Write('Diena: '); Readln(d);
  Write('Kaina A: '); Readln(k1);
  Write('Kaina B: '); Readln(k2);
  Write('Kaina C: '); Readln(k3);
 
  if (m = 1)
    then if (d <= 25) then
        begin
        gali1 := false;
        gali2 := true;
        end
    else if (d >= 26) then
        begin
        gali1 := false;
        gali2 := false;
        end;
  if (m = 2) and (d <= 15)
    then
        begin
        gali2 := false;
        gali1 := true;
        end
  else if (d >= 16) then
    begin
    gali1 := true;
    gali2 := true;
    end;


    if (gali1 = true) and (gali2 = true) // Galimi abu kurortai
        then
            if (k1 < k2) and (k1 < k3)
                then Writeln('Slidineti galima kurorte A.', k1, ' Lt')
            else if (k2 < k3) and (k2 < k1)
                then Writeln('Slidineti galima kurorte B.', k2, ' Lt')
            else if (k3 < k1) and (k3 < k2)
                then Writeln('Slidineti galima kurorte C.', k3, ' Lt')
    else if (gali2 = false) // Negalimas kurortas B
        then
            if (k1 < k3)
                then Writeln('Slidineti galima kurorte A.', k1, ' Lt')
            else if (k3 < k1)
                then Writeln('Slidineti galima kurorte C.', k3, ' Lt')
    else if (gali1 = false) // Negalimas kurortas A
        then
            if k2 < k3
                then Writeln('Slidineti galima kurorte B.', k2, ' Lt')
            else if k3 < k2
                then Writeln('Slidineti galima kurorte C.', k3, ' Lt')
    else if (gali1 = false) and (gali2 = false) // Negalimi kurortai A ir B
        then Writeln('Slidineti galima kurorte C.', k3, ' Lt');
 
  Readln;
  Readln;
end.
« Paskutinį kartą keitė: 2013-01-25 16:59:40 pm sukūrė Lukas Liesis »
Seksas visai kaip matematika, atemi kelnes, pridedi lovą, padalini kojas ir daugini. Svarbu laiku ištraukti šaknį, kad neliktų liekanos.

Neprisijungęs Lukas

  • Administratorius
  • Herojus
  • ******
  • Įrašai: 7431
  • Karma: +232/-15
    • Žiūrėti profilį
Ats: Padėkite išspręsti uždavinį
« Atsakymas #1 Įrašytas: 2012-09-04 13:56:27 pm »
tu neparasei ko tu tikiesi kad isves ir ka isveda. Beja, as paskali naudojau paskutini karta mokykloj, tai tikrai neprisimenu, bet kazkaip keistai atrodo kad kartais po "end" yra ; o kartais ne. Cia taip turi buti?
Jūsų draugas, kolega ir puslapio administratorius,

Lukas.

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

Neprisijungęs juodas

  • Naujokas
  • *
  • Įrašai: 87
  • Karma: +0/-0
    • Žiūrėti profilį
Ats: Padėkite išspręsti uždavinį
« Atsakymas #2 Įrašytas: 2012-09-04 16:52:20 pm »
tu neparasei ko tu tikiesi kad isves ir ka isveda. Beja, as paskali naudojau paskutini karta mokykloj, tai tikrai neprisimenu, bet kazkaip keistai atrodo kad kartais po "end" yra ; o kartais ne. Cia taip turi buti?
Nu tai va. Nebepamenu kur, bet kažkur skaičiau, kad tik po paskutiniojo end yra taškas (.), o po VISŲ kitų end yra kabliataškiai (;), bet kad kitaip nesikompiliuoja.
Seksas visai kaip matematika, atemi kelnes, pridedi lovą, padalini kojas ir daugini. Svarbu laiku ištraukti šaknį, kad neliktų liekanos.

Neprisijungęs Lukas

  • Administratorius
  • Herojus
  • ******
  • Įrašai: 7431
  • Karma: +232/-15
    • Žiūrėti profilį
Ats: Padėkite išspręsti uždavinį
« Atsakymas #3 Įrašytas: 2012-09-04 21:52:53 pm »
tu neparasei ko tu tikiesi kad isves ir ka isveda. Beja, as paskali naudojau paskutini karta mokykloj, tai tikrai neprisimenu, bet kazkaip keistai atrodo kad kartais po "end" yra ; o kartais ne. Cia taip turi buti?

Nu tai va. Nebepamenu kur, bet kažkur skaičiau, kad tik po paskutiniojo end yra taškas (.), o po VISŲ kitų end yra kabliataškiai (;), bet kad kitaip nesikompiliuoja.


zinok nezinau, paziurek paskalio pamokos
Jūsų draugas, kolega ir puslapio administratorius,

Lukas.

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

Manualai.lt Forumas

Ats: Padėkite išspręsti uždavinį
« Atsakymas #3 Įrašytas: 2012-09-04 21:52:53 pm »

Neprisijungęs juodas

  • Naujokas
  • *
  • Įrašai: 87
  • Karma: +0/-0
    • Žiūrėti profilį
Ats: Padėkite išspręsti uždavinį
« Atsakymas #4 Įrašytas: 2012-09-06 12:22:04 pm »
O tai kaip tu ten dedi tas pamokas, jei pats nemoki paskalio?
Seksas visai kaip matematika, atemi kelnes, pridedi lovą, padalini kojas ir daugini. Svarbu laiku ištraukti šaknį, kad neliktų liekanos.

Neprisijungęs Lukas

  • Administratorius
  • Herojus
  • ******
  • Įrašai: 7431
  • Karma: +232/-15
    • Žiūrėti profilį
Ats: Padėkite išspręsti uždavinį
« Atsakymas #5 Įrašytas: 2012-09-06 13:28:30 pm »
O tai kaip tu ten dedi tas pamokas, jei pats nemoki paskalio?

jas ne as kuriau, as kuriau viska iskyrus dizaino ir paskalio pamokas
Jūsų draugas, kolega ir puslapio administratorius,

Lukas.

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

Neprisijungęs Erikas Kuv

  • Naujokas
  • *
  • Įrašai: 3
  • Karma: +0/-0
    • Žiūrėti profilį
Ats: Padėkite išspręsti uždavinį
« Atsakymas #6 Įrašytas: 2013-01-16 18:53:28 pm »
Tai tu parašyk mums uždavinio salygą, kaip mes turime žinoti būtent kokiu principu turi veikti ta tavo programa jeigu tu nenurodei ko būtent reikia tau. Parašei kad kažkas nesigauna, parašei kodą ir sakai kad tau išveda neteisingai. Kartais prieš prašant pagalbos išdėstyk viska ko tau reikia, kitaip kaip mes žinosim kas tau galvoje.


Edit: Atsiprašau, nepastebėjau sukūrimo datos.
« Paskutinį kartą keitė: 2013-01-16 20:02:24 pm sukūrė Erikas Kuv »
“A little knowledge is a dangerous thing. So is a lot.” ― Albert Einstein

Manualai.lt Forumas

Ats: Padėkite išspręsti uždavinį
« Atsakymas #6 Įrašytas: 2013-01-16 18:53:28 pm »