Autorius Tema: Ciklas - while  (Skaityta 8687 kartus)

Neprisijungęs Macaque

  • Dalyvis
  • **
  • Įrašai: 861
  • Karma: +26/-0
  • makakuje.
    • Žiūrėti profilį
Ciklas - while
« Įrašytas: 2009-12-15 15:53:37 pm »
Sveiki, šioje pamokoje pamatysite kaip veikia paprasčiausias ciklas while

program ciklas_while;
var   i : integer;        // Ciklo kintamasis
Begin
   i := 1;                // Kintamajam priskiriama reiksme 1
while i <= 10 do   
 Begin
   WriteLn(i);
   i := i +1;             // Didinama i reiksme 1, kad nebutu begalybe.
 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 Vygantas Pauliukonis

  • Dalyvis
  • **
  • Įrašai: 1136
  • Karma: +12/-2
  • Itkokteilis.lt
    • Žiūrėti profilį
Re: Ciklas - while
« Atsakymas #1 Įrašytas: 2009-12-15 15:59:31 pm »
Nu cia toks paprastas, bet kam dar tai naujiena tai tikrai pravers

Manualai.lt Forumas

Re: Ciklas - while
« Atsakymas #1 Įrašytas: 2009-12-15 15:59:31 pm »