Το πρόβλημα του παραγοντικού

Στα μαθηματικά, το παραγοντικό ενός φυσικού αριθμού ν συμβολίζεται με ν!, διαβάζεται νι παραγοντικό, και είναι το γινόμενο όλων των θετικών ακεραίων μικρότερων ή ίσων με ν. Είναι λοιπόν ν! = 1 ∙ 2 ∙ 3 ∙ … ∙ ν
Συμβατικά 0! = 1! = 1

Να κατασκευαστεί πρόγραμμα σε γλώσσα Pascal το οποίο:

  1. Να διαβάζει έναν ακέραιο αριθμό ≥0
  2. Να υπολογίζει το παραγοντικό του αριθμού που διαβάστηκε κάνοντας χρήση συνάρτησης
  3. Να εμφανίζει το αποτέλεσμα του υπολογισμού ως εξής:
    Το παραγοντικό του αριθμού … είναι …

program prgFactorial;

var
  Num: Integer;
  Fact: WORD; { Στην γλώσσα Pascal ο τύπος WORD 
                είναι ακέραιος τύπος και παίρνει
                τιμές >=0. Στην έκδοση TURBO PASCAL
                που χρησιμοποιεί και το βιβλίο μας,
                ο τύπος WORD χρησιμοποιεί 2 Byte για την
                αναπαράσταση των τιμών του οι οποίες
                κυμαίνονται από 0 έως 65535 }

function Factorial(N: Integer): WORD;
var
  Fact: WORD; { Η μεταβλητή Fact είναι τοπική μεταβλητή
                και παρόλο που έχει το ίδιο όνομα με την
                καθολική μεταβλητή δεν δημιουργεί πρόβλημα
                στο πρόγραμμά μας. Σ' αυτήν την περίπτωση
                η συνάρτηση χρησιμοποιεί την τοπική της 
                μεταβλητή }
  i: Integer;
begin
  Fact := 1;
  for i := 2 to N do
    Fact := Fact * i;
  Factorial := Fact;
end;


begin
  Write('Δώστε έναν ακέραιο αριθμό >=0: '); Readln(Num);
  Fact := Factorial(Num);
  Writeln('Το παραγοντικό του αριθμού ', Num, ' είναι ', Fact); 
end.
Advertisements

Posted on 19/03/2012, in Γλώσσα Pascal, Δομημένος Προγραμματισμός and tagged , , , . Bookmark the permalink. Σχολιάστε.

Σχολιάστε

Εισάγετε τα παρακάτω στοιχεία ή επιλέξτε ένα εικονίδιο για να συνδεθείτε:

Λογότυπο WordPress.com

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό WordPress.com. Αποσύνδεση / Αλλαγή )

Φωτογραφία Twitter

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό Twitter. Αποσύνδεση / Αλλαγή )

Φωτογραφία Facebook

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό Facebook. Αποσύνδεση / Αλλαγή )

Φωτογραφία Google+

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό Google+. Αποσύνδεση / Αλλαγή )

Σύνδεση με %s

Αρέσει σε %d bloggers: