Jak za pomocą Turbo Pascala napisać program wypisujący "x" potęg liczby 2?
Turbo Pascal nie prędko póki co wyjdzie z programu nauczania w szkołach średnich. Jakiś czas temu spotkałem się z pytaniem, jak napisać program w pascalu, który wypisuje 5 kolejnych potęg liczby 2. Cóż, rozwiązanie jest bardzo proste, ale nie każdemu przychodzi to do głowy od razu.
- • Kompilator Turbo Pascala
Potrzebujemy zdefiniować dwie zmienne. Pierwszą jako integer, a drugą jako real. Dodatkowo przyda się nam zmienna, która przyjmie domyślną wartość instrukcji.
Powiedzmy:
var
i,l : integer;
p : real;
Zmienna "i" potrzebna nam będzie do przechwycenia wartości podanej przez użytkownika.
Zmienna "l" przyjmie domyślną wartość instrukcji for = 1.
Zmienna "p" odpowiedzialna będzie za wypisanie potęgi liczby 2, dlatego też jest to zmienna typu real, bo użytkownik może podać i:=100;.
Zmienna "p" bez przydzielonej wartości 1
Musimy teraz zdefiniować jedną instrukcję. Będzie to instrukcja for i:=1 do i, ponieważ ma się ona wykonać minimum 1 raz, a powtarzana ma być do "i" razu - użytkownik definiuje ile razy.
Jedyną rzeczą, którą musimy pamiętać jest nadanie zmiennej "p" wartości równej 1 PRZED INSTRUKCJĄ FOR. Wiemy o tym, że 1 pomnożone przez 2, da wynik 2. Dlatego właśnie musi być zdefiniowana ta wartość przed instrukcją. Jeśli tego nie zrobimy, to każdy wynik będzie równy 0.
Jak zatem instrukcja ma wyglądać?
p:=1;
for l:=1 to i do
begin
p=p*2;
write(' ',l,' . ',p
end;
Przykład działania
Dodać należy jeszcze komunikat o podaniu wartości dla "i", oraz odczytać ją z klawiatury.
Tak utworzony program powinien wyglądać, jak na obrazku obok. Oczywiście ja nieco "upiększyłem" ten program i zabezpieczyłem go przed podaniem wartości <=0.
Działający program możecie pobrać ze strony: http://dl.dropbox.com/u/102145/potegi.exe
• Przeczytaj teraz:
Komentarze
Ostatnio zmieniony: 2013-04-14 15:48:04
Dodaj komentarz