Autorius Tema: Savaitės dienos  (Skaityta 2184 kartus)

Neprisijungęs Macaque

  • Dalyvis
  • **
  • Įrašai: 861
  • Karma: +26/-0
  • makakuje.
    • Žiūrėti profilį
Savaitės dienos
« Įrašytas: 2009-12-01 02:17:27 am »
Su šia programa parašę savaitės diena (skaičiais), ji jum atvaizduos tekstu.

program savaitės_dienos;    // Pavadinimas
var
    a,b,diena : integer;    // Priskiriam kintamuosiuos, šio atvėju "a,b,diena" kintamieji yra sveiki
begin
  Write('Įveskite savaitės dieną: ');   // Spauzdinima "Įveskite savaitės dieną:"
  Readln(diena);    // Nuskaitomas kintamasis "diena"

  case diena of     // Priskiriam kintamajui "diena" f-cijas
    1 : Write('Pirmadienis');   // Parašius 1 spauzdins: "Pirmadienis"
    2 : Write('Antradienis');   // Parašius 2 spauzdins: "Antradienis"
    3 : Write('Treciadienis');  // Parašius 3 spauzdins: "Treciadienis"
    4 : Write('Ketvirtadienis');    // Parašius 4 spauzdins: "Ketvirtadienis"
    5 : Write('Penktadienis');  // Parašius 5 spauzdins: "Penktadienis"
    6 : Write('Šeštadienis');   // Parašius 6 spauzdins: "Šeštadienis"
    7 : Write('Sekmadienis');   // Parašius 7 spauzdins: "Sekmadienis"
  otherwise Write('Įvesta klaidinga savaitės diena');   // Jeigu kitoks skaičius spauzdins: "Įvesta klaidinga savaitės diena"
end;
   
    ReadLn;
end.
„Tik vienas dalykas gali svajonę padaryti neįgyvendinamą: tai baimė, kad nepasiseks. “ - Paulo Coelho

Rekomenduoju pirkti domenus iš - IV.lt

Neprisijungęs Lukas

  • Administratorius
  • Herojus
  • ******
  • Įrašai: 7431
  • Karma: +232/-15
    • Žiūrėti profilį
Re: Savaitės dienos
« Atsakymas #1 Įrašytas: 2009-12-01 11:00:19 am »
kai pagerintai switch ciklas ant paskalio rasos :D
Jūsų draugas, kolega ir puslapio administratorius,

Lukas.

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

Manualai.lt Forumas

Re: Savaitės dienos
« Atsakymas #1 Įrašytas: 2009-12-01 11:00:19 am »