Instrukcja_repeat_while.doc

Instrukcja „repeat” - powtarzaj

Ogólna postać instrukcji:

REPEAT

lista_instrukcji;

UNTIL warunek_końca;

Przykłady programów:

1.      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.

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

1.      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.

2.      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.