Turbo Pascal Algorytm

[sarahek]

Witam! Mam zrealizowania algorytm z ćwiczenia poniżej za pomocą pętli FOR ... TO ... DO. Bardzo proszę o pomoc, bo w ogóle tego nie rozumiem Będę bardzo wdzięczna za pomoc!

Program stosowanie_while;

var
imie:string;
ile:integer;
licznik:integer;
Begin
Writeln('Jak masz na imie: ');
Read(imie);
Writeln('Ile razy wypisa� Twoje imie: ');
Read(ile);
licznik:=0;
while licznik<ile do
begin
write(imie, ' ');
licznik:=licznik+1;
end;
Writeln;
end.

[sher]

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