Instrukcja „repeat” - powtarzaj
Ogólna postać instrukcji:
REPEAT
lista_instrukcji;
UNTIL warunek_końca;
Przykłady programów:
Napisz program który wczytuje liczby z klawiatury i oblicza ich sumę aż do napotkania liczby 0.
program instre;
var
suma,liczba:integer;
begin
suma:=0;
repeat
writeln('dotychczasowa suma wynosi= ',suma);
writeln('Podaj liczbe z klawiatury');
readln(liczba);
suma:=suma+liczba;
until liczba=0;
end.
Napisz program który nakazuje użytkownikowi podanie hasła składającego się z 3 liczb.
Program hasło;
USES CRT;
VAR
haslo:longint;
BEGIN
REPEAT
clrscr;
writeln('Podaj hasło!');
read(haslo);
UNTIL haslo=123;
writeln('BRAWO! Odgadłeś hasło!');
readln;
END.
Napisz program który wita użytkownika 100 razy.
Napisz program wypisujący imię użytkownika w 15 kolorach.
Instrukcja „while” - dopóki
Ogólna postać instrukcji:
WHILE warunek DO
begin
instrukcja1;
instrukcja2;
end;
Przykładowe programy:
Napisz program wypisujący liczby parzyste z pośród 100 liczb naturalnych.
Program parzyste;
uses crt;
var x:integer;
begin
clrscr;
x:=0;
While x<100 do
begin
x:=x+2;
writeln('liczba parzysta jest -',x);
end;
readln;
end.
Napisz program obliczający iloczyn liczb rzeczywistych wczytanych z klawiatury. Mnożenie zakończ gdy wypisana zostanie liczba 1.
Program iloczyn;
uses crt;
var iloczyn:real;
n:real;
begin
clrscr;
iloczyn:=1;
Writeln('podaj liczbe z klawiatury');
readln(n);
While n<>1 do
begin
iloczyn:=iloczyn*n;
Writeln('podaj liczbe z klawiatury');
readln(n);
end;
writeln('iloczyn wynosi',iloczyn);
readln;
end.