petle w pascalu.doc

Pętle repeat i while.

INSTRUKCJA REPEAT. .. UNTIL

repeat {powtarzaj dopóki}

instrukcja_1 {wykonywana gdy warunek nie jest spełniony}

instrukcja_n

until < warunek >

Zadanie 1. Napisz program który powtarza napis "informatyka" dopóki nie wciśniesz klawisz "n" lub "N".

program napis;

var znak: char;

begin

repeat

writeln ('informatyka')

writeln ("czy dalej t/n');

readln(znak);

until (znak='n') or (znak='N');

end.

Zadanie 2. Napisz program obliczający sumę pięciu liczb wczytanych z klawiatury.

Zadanie 3. Napisz program, który czyta kolejne liczby i liczy ich sumę aż do napotkania liczby 0. Program wyświetla tymczasową sumę. Wynik obliczenia wyświetl z dokładnością do dwóch miejsc po przecinku.

Zadanie 4. Napisz program, którego działanie polega na obliczeniu kwadratu dowolnie wprowadzonej

z klawiatury liczby. Po wykonaniu obliczenia program powinien zapytać, czy obliczyć sześcian następnej

liczby. Powtarzanie działania programu powinno trwać tak długo dopóki nie naciśniesz klawisza innego niż‘t’ lub ‘T’.

Zadanie 5. Napisz program, którego działanie polega na obliczeniu średniej arytmetycznej dowolnej ilości liczb wprowadzonych z klawiatury. Działanie programu powinno zostać przerwane po tym jak suma liczb przekroczy 2001.

DO WHILE - POWTARZAJ

WHILE - DO jest instrukcją pętli z kontrolowanym WEJŚCIEM. Jej działanie polega na obliczeniu wartości warunku i dopiero wtedy wykonaniu instrukcji lub ciągu instrukcji. Jej ogólna postać wygląda następująco:

WHILE warunek DO DOPÓKI warunek jest spełniony WYKONUJ

BEGIN warunek jest sprawdzany na początku wykonania serii instrukcji

instrukcja 1; jest spełniony – prawdę

instrukcja 2; nie jest spełniony – fałsz .

....

instrukcja n;

END;

Zadanie 6. Napisz program, który sprawdza poprawność działania 2+2=4.

Program sprawdz;

var x : byte;

begin

while x<>4 do

begin

write(' Podaj wynik dodawania 2 + 2 = ');

readln(x);

end;

writeln('Dziekuje, wynik poprawny');

end.

Zadanie 7. Napisz program, który oblicza sumę czterech liczb wprowadzonych z klawiatury.

Zadanie 8. wczytuje liczbę całkowitą z klawiatury. Program powinien przyjmować jedynie liczę dodatnia. W przypadku gdy liczba nie jest dodatnia powinien być wyświetlony komunikat o błędzie i ponowiona próba wczytania liczby.

Zadanie 9. wczytuje z klawiatury liczbę aż do momentu gdy będzie ona należała do przedziału <0;100>

Zadanie 10. wyświetla liczby parzyste dopóki ich sumę nie przekroczy 20

Zadanie 11. wczytuje z klawiatury poprawny numer miesiąca tzn. liczbę z przedziału <1;12>. Zakładamy, że możliwe są tylko 3 próby podania poprawnego numeru. Do liczenia prób wprowadź zmienną określającą licznik, zwiększaną w każdym obrocie pętli.

Zadanie 12. wczytuje z klawiatury liczby rzeczywiste aż do momentu, gdy podana liczba jest równa 0, a następnie wyświetla na ekranie sumę i średnia arytmetyczną tych liczb.

Zadanie 13. liczący pole kwadratu  podanej długości boku. W przypadku podania niewłaściwej wartości, czyli zera lub liczby ujemnej, program wyświetla komunikat z prośbą o podanie poprawnej wartości.

Realizacja algorytmów iteracyjnych w Pascalu – pętla for.

for licznik := początek to koniec do instrukcja

lub

for licznik := początek downto koniec do instrukcja

np. for i := 1 to 10 do write(i);

Zadanie 13. Napisz program który wpisuje liczby od 1 do 10, a następnie w dół - od 10 do 1.

program zliczanie;

var

i : Byte;

begin

for i := 1 to 10 do { zliczamy w górę od 1 do 10 }

write(i, ' ');

writeln;

for i:= 10 downto 1 do { a następnie w dół od 10 do 1 }

write(i, ' ');

writeln;

readln;

end.

.

Zadanie 14. Napisz program który z gwiazdek (*) rysuje kwadrat 10 na 10.

Zadanie 15. Napisz program który oblicza iloczyn n kolejnych liczb naturalnych (począwszy od

Zadanie 16. Napisz program który oblicza średnią N podanych przez użytkownika liczb.

zadanie 17. Napisz program który oblicza wartość silni dla liczby N

zadanie 18. Napisz program który wyświetla kwadrat z gwiazdek o boku n.

zadanie 19. Napisz program który wyświetla tabliczkę mnożenia (10 x 10).