Program stosowanie_while;
Nazwa programu.
var
imie:string;
ile:integer;
licznik:integer;
Tu deklarujesz zmienne (po słowie kluczowym var). Imię jest zmienną, w której przechowujesz tekst (string). Ile oraz Licznik przechowują liczby całkowite (integer).
Begin
Writeln('Jak masz na imie: ');
Read(imie);
Rozpoczęcie programu, wczytanie imienia użytkownika
Writeln('Ile razy wypisa� Twoje imie: ');
Read(ile);
Pobranie liczby iteracji algorytmu. Iteracja to prościej mówiąc (lekko upraszczając) powtórzenie. Jeżeli użytkownik wpisze '5', poniższy blok instrukcji wykona się pięć razy.
licznik:=0;
while licznik<ile do
Zerowanie licznika. Następnie zastosowana jest pętla while ... do. wyrażenie pomiędzy begin i end znajdującymi się poniżej będzie wykonywane tak długo, jak warunek następujący po while jest prawdziwy - to jest dopóki zmienna licznik jest mniejsza od zmiennej ile.
begin
write(imie, ' ');
licznik:=licznik+1;
end;
Wypisanie imienia, zwiększenie zmiennej licznik o 1.
Writeln;
end.
Przejście do nowej linii, zakończenie programu.
UWAGA: program po skompilowaniu i uruchomieniu wykonuje swoją akcję i kończy działanie. Aby zobaczyć wyniki - n razy wypisane imię, proponuję po writeln, tuż przed słowem end dopisać
readln;.
Pozdrowionka.
Kontakt:
sher@onet.eu