Pętla for … to… do
Pętla wykonuje wielokrotnie jakąś operację. Przypuśćmy że chcesz aby Twój program wypisał liczby od 1 do 1000. Zamiast pisać 1000 razy writeln można użyć pętli for i:=1 to 1000 do Zadanie 1 Napisać program który wyświetli przemieszczający się od lewej do prawej strony napis: Informatyka. Wykorzystać funkcję gotoxy(x,y) i pętlę for…. Podpowiedź Zadanie 2 Napisać program , który prosi o podanie słowa. Następnie prosi o...
Pętla REPEAT … UNTIL ….
W sytuacjach, gdy chcesz aby program wykonywał się aż do momentu spełnienia jakiegoś warunku pomocą jest pętla repeat until. Jest wyjątkowa pod tym względem, że wykonuje wszystkie instrukcje znajdujące się pomiędzy nią, więc nie trzeba używać poleceń BEGIN i END. Przykład uses Crt; begin repeat until KeyPressed; end. Powyższy przykład pokazuje w jaki sposób można zbudować program czekający na naciśnięcie dowolnego klawisza....
Tworzenie prostych aplikacji w trybie graficznym cz. 3
Zadanie 51 Wykonać projekt, w którym obiekt można przesuwać po ekranie za pomocą suwaków. Kształt obiektu będzie można zmieniać za pomocą listy rozwijalnej typu Combo. Na formularzu umieścić następujące komponenty: Shape, Panel x2, ComboBox, ScrollBar x2, Button. 2. Ustalić właściwości komponentów: dla Button – caption: koniec, dla Shape: dla ScrollBar2: dla ComboBox: 3. Ustalić akcje dla przycisków wg źródła poniżej:...
Algorytm Euklidesa
Algorytm Euklidesa służy do znajdowania największego wspólnego dzielnika (NWD) dwóch liczb naturalnych. Największy wspólny dzielnik (NWD) dwóch lub więcej liczb naturalnych (różnych od zera) to największa liczba naturalna, przez którą dzieli się bez reszty każda z danych liczb. W codziennej praktyce NWD służy nam do skracania ułamków do postaci właściwej np.: 12 18 = 2 3 Ponieważ największą liczbą naturalną...
