Įvairūs > Pascal programavimas

Ciklas - while

(1/1)

Macaque:
Sveiki, šioje pamokoje pamatysite kaip veikia paprasčiausias ciklas while


--- Kodas: ---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.

--- Baigti kodą ---

Vygantas Pauliukonis:
Nu cia toks paprastas, bet kam dar tai naujiena tai tikrai pravers

Navigacija

[0] Žinučių sąrašas

Eiti į pilną versiją