26 (683)

begin

Suma Suma+I; Write (Suma, ' end;

Writeln;

Readln;

end.

Do tej pory wykorzystywaliśmy dokładnie wartości kolejnych indeksów (wyświetlając lub sumując kolejno). No dobrze, ale co zrobić, gdy nie potrzebujemy kolejnych wartości, tylko ułożonych w inny sposób? Możemy chcieć sumować nie kolejne liczby ale ich kwadraty lub wyświetlić liczby parzyste. Oczywiście możemy to zrobić, obliczając na podstawie indeksu pewne wyrażenie.

Wyrażenia z indeksem

Napisz program, który wypisuje 10 kolejnych liczb parzystych, a następnie 10 kolejnych liczb nieparzystych.

Aby to wykonać, należy wyświetlić pewne wyrażenie obliczone na podstawie zmiennej sterującej. W pierwszym przypadku będzie to 1*2, w drugim 1*2+1.

program cw3_32;

{ Program wpisuje 10 kolejnych liczb parzystych }

{ a później nieparzystych.    }

{ Katalog r3_08 : 3_32.pas    }

var

I : Byte;

begin

for I :- 0 to 9 do

Write (1*2, ' ');

Writeln;

for I :- 0 to 9 do

Write (1*2+1, ' ');

Writeln;

Readln; end.

Zrozumienie dziania pętli i odpowiedniego wykorzystania zmiennej sterującej jest kluczową sprawą, aby pisać efektywne programy. Na podstawie wartości, którą otrzymamy, poprzez zmienną sterującą możemy obliczać złożone wyrażenia. Przykład takiego zadania zobaczymy podczas rysowania wykresów w rozdziale poświęconym pracy w trybie graficznym. Ale pamiętaj, nie powinieneś zmieniać wartości samej zmiennej sterującej.

I C Z E N I E

_Wypisanie liczb naturalnych

Napisz program, który w sposób „siłowy" wypisze liczby naturalne mniejsze od 100 i podzielne przez 11.

Skorzystamy z pętli for, w której będziemy sprawdzać podzielność każdej liczby z zakresu przez 11. Sprawdzanie będzie się odbywać za pomocą instrukcji warunkowej. Wykorzystamy nowy operator: mod. Dla liczb całkowitych A i B oblicza resztę z dzielenia A przez B.