Turbo Pascal
 
Szukanie zaawansowane
   
 
Home Rejestracja FAQ Użytkownicy Grupy Galerie  
 
 


Forum Turbo Pascal Strona Główna Pytania Obliczanie silni
Wyświetl posty z ostatnich:   
       
Napisz nowy temat  Odpowiedz do tematu Idź do strony Poprzedni  1, 2, 3  Następny

Sob 20:33, 18 Lut 2006
Autor Wiadomość
blood777
Początkujący



Dołączył: 17 Lut 2006
Posty: 7
Przeczytał: 0 tematów

Ostrzeżeń: 0/3
Skąd: Zakrzewo

Temat postu:

Popieram leogasa :)

Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  
Sob 23:33, 18 Lut 2006
Autor Wiadomość
zielony_admin
Średnio zaawansowany



Dołączył: 18 Lut 2006
Posty: 22
Przeczytał: 0 tematów

Ostrzeżeń: 0/3

Temat postu:

Mi się jednak mimo wszystko wydaje, że ten kto chce się nauczyć programować nie skopiuje kodu tylko zobaczy co i jak, i postara się sam napisać program. Natomiast osoba, która liczy na gotowca, znajdzie go tak czy inaczej, więc po co ludziom utrudniać życie?? Wiem po sobie, sam kiedyś pytałem na forum i dostawałem "wskazówki" z których nic nie rozumiałem, liczyłem na to, że ktoś zapoda gotowy program, żebym mógł go porównać ze swoim i poprawić błędy.

Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  

Nie 8:31, 19 Lut 2006
Autor Wiadomość
klakier
Początkujący



Dołączył: 17 Lut 2006
Posty: 11
Przeczytał: 0 tematów

Ostrzeżeń: 0/3

Temat postu:

Mnie ten kod bardzo pomógł i właśnie dzięki niemu zrozumiałem o co chodzi w tym programie. Myślę że najlepiej będzie, gdy każdy użytkownik będzie pisał, czy chce wskazówki, czy kodu. A może obu rzeczy naraz np. kodu źródłowe wraz z dokładnym opisem co dokładnie dzieje się w danym miejscu programu.

Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  

Nie 10:07, 19 Lut 2006
Autor Wiadomość
rafael
Administrator



Dołączył: 07 Lut 2006
Posty: 72
Przeczytał: 0 tematów

Ostrzeżeń: 0/3
Skąd: Pszczyna

Temat postu:

W dyskusji ogólnej sporządziłem specjalną ankietę, gdzie możecie głosować co Waszym zdaniem jest lepsze wskazówka czy kod.

Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  

Nie 23:42, 19 Lut 2006
Autor Wiadomość
istredd`
Średnio zaawansowany



Dołączył: 14 Lut 2006
Posty: 37
Przeczytał: 0 tematów

Ostrzeżeń: 0/3
Skąd: Kraków

Temat postu:

Wracając do silni i jej obliczania. Po pierwsze program jest niekompletny, po drugie za bardzo rozbudowany. Silnie można liczyć tylko i wyłącznie ze zbioru liczb Naturalnych z zerem włącznie. Należałoby więc stworzyć prostą pętlę 'repeat until', która miałaby za zadanie sprawdzać czy liczba całkowita wpisana przez użytkownika jest większa, bądź równa zeru. Warto również zaznaczyć, że można bardzo łatwo ominąć sprawdzanie warunku, czy silnia ma być obilaczana z liczby zero. Wystarczy zacząć pętle for od licznika 1. A pierwotny wynik silni ustawić jako również 1. Banalne, a skraca program o kilka linijek.
Na koniec należy zaznaczyć, że w liczeniu silni bardzo łatwo wyjść poza zakres. Należałoby więc z wyniku zrobić liczbę int64, co i tak ogranicza możliowść liczenia silni do dwudziestej pozycji.


Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  

Nie 23:50, 19 Lut 2006
Autor Wiadomość
istredd`
Średnio zaawansowany



Dołączył: 14 Lut 2006
Posty: 37
Przeczytał: 0 tematów

Ostrzeżeń: 0/3
Skąd: Kraków

Temat postu:

Aha. Jeszcze jedno. Nie wiem rafael czy to przez Twój pośpiech, czy też masz problemy z funkcjami, ale nie definiuj niepotrzebnej zmiennej globalnej, jeżeli nie jest ona nigdy wykorzystywana.

Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  

Pon 14:22, 20 Lut 2006
Autor Wiadomość
rafael
Administrator



Dołączył: 07 Lut 2006
Posty: 72
Przeczytał: 0 tematów

Ostrzeżeń: 0/3
Skąd: Pszczyna

Temat postu:

Nawet najlepsi popełniają błędy :wink:

Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  

Pon 15:07, 20 Lut 2006
Autor Wiadomość
zielony_admin
Średnio zaawansowany



Dołączył: 18 Lut 2006
Posty: 22
Przeczytał: 0 tematów

Ostrzeżeń: 0/3

Temat postu:

Oto poprawny kod tego programu:

Kod:
program silnia;
function silnia( liczba:integer):longint;
begin
 if liczba=0 then silnia:=1
                    else silnia:=liczba*silnia(liczba-1)
end;

begin
  writeln (' 3! = ‘, silnia(3))
end.


Bardzo bym Cię prosił istredd, jeśli znasz lepszy sposób na napisanie jakiegoś programu to umieść na forum cały kod.


Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  
Napisz nowy temat  Odpowiedz do tematu Idź do strony Poprzedni  1, 2, 3  Następny

 
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach


      Do góry  

Strona 2 z 3
Idź do strony Poprzedni  1, 2, 3  Następny
Skocz do:  
fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2002 phpBB Group
Avalanche style by What Is Real © 2004
             
Regulamin