TechPioneers

Προγραμματισμός, Συστήματα Αυτόματου Ελέγχου, Software, Hardware.


    Προγράμματα σε Pascal - Χρήσιμα Παραδείγματα Προγραμμάτων

    Μοιραστείτε
    avatar
    ArcZeus
    Moderator
    Moderator

    Posts : 45
    Join date : 05/04/2010
    Location : Sacred Land of Trials

    Προγράμματα σε Pascal - Χρήσιμα Παραδείγματα Προγραμμάτων

    Δημοσίευση από ArcZeus Την / Το Παρ Μάης 07, 2010 1:40 am

    Ένα πρόγραμμα το οποίο τυπώνει "Hello, World!".

    Κώδικας:
    program hello_world;

    begin
        writeln('Hello, World!');
    end.
    avatar
    ArcZeus
    Moderator
    Moderator

    Posts : 45
    Join date : 05/04/2010
    Location : Sacred Land of Trials

    Απ: Προγράμματα σε Pascal - Χρήσιμα Παραδείγματα Προγραμμάτων

    Δημοσίευση από ArcZeus Την / Το Παρ Μάης 07, 2010 2:00 am

    Να γραφεί μια συνάρτηση που να υπολογίζει και να τυπώνει το παραγωντικό από το 0 μέχρι κάποιο αριθμό Ν, π.χ. 16...

    Κώδικας:
    program factorial;

    function fact(n: integer): real;
    begin
        if (n = 0) then
            fact := 1
        else
            fact := n * fact(n - 1);
    end;

    var
        n: integer;

    begin
        for n := 0 to 16 do
            writeln(n, '! = ', fact(n):-1:0);
    end.
    avatar
    ArcZeus
    Moderator
    Moderator

    Posts : 45
    Join date : 05/04/2010
    Location : Sacred Land of Trials

    Απ: Προγράμματα σε Pascal - Χρήσιμα Παραδείγματα Προγραμμάτων

    Δημοσίευση από ArcZeus Την / Το Παρ Μάης 07, 2010 2:02 am

    Η σειρά Fibonacci σε πρόγραμμα της Pascal...

    Κώδικας:
    program fibonacci;

    function fib(n:integer): integer;
    begin
        if (n <= 2) then
            fib := 1
        else
            fib := fib(n-1) + fib(n-2);
    end;

    var
        i:integer;

    begin
        for i := 1 to 16 do
            write(fib(i), ', ');
        writeln('...');
    end.
    avatar
    Christos63
    Moderator
    Moderator

    Posts : 4
    Join date : 08/05/2010
    Age : 25
    Location : Nicosia

    Απ: Προγράμματα σε Pascal - Χρήσιμα Παραδείγματα Προγραμμάτων

    Δημοσίευση από Christos63 Την / Το Σαβ Μάης 08, 2010 5:43 pm

    Μια υπολογιστική μηχανή...

    Κώδικας:

    1. Program Calculate;
    2. Var     
    3.    Num1, Num2, Sum : Integer;
    4.
    5. Begin
    6.  Write('Input number 1:');
    7.  Readln(Num1);
    8.  Writeln('Input number 2:');
    9.  Readln(Num2);
    10.  Sum := Num1 + Num2;
    11.  Writeln(Sum);
    12. End.

    Στο πιο πάνω πρόγραμμα μπορείς να προσθέσεις δυο αριθμούς μεταξύ τους. Η αριθμοί που βρίσκονται αριστερά του κώδικα δεν μπαίνουν στο πρόγραμμα.

    • Στη πρώτη γραμμή βάζουμε το όνομα του προγράμματος μας.
    • Στη δεύτερη γραμμή πρέπει να βάλουμε τι λέξη Var δηλαδή Variable που σημαίνει μεταβλητή.
    • Στη τρίτη γραμμή δηλώνουμε τις μεταβλητές μας με οποιο όνομα θέλουμε αλλα είναι προτιμότερο να βάλουμε κάποιο όνομα σχετικό με το τι κάνει. Παραδείγματος χάρι num1, num2, sum, όπου num1 είναι ο πρώτος αριθμός, num2 ο δεύτερο και sum το αποτέλεσμα. Μπορείτε αν θέλετε να δηλώσετε και άλλες μεταβλητές όπως num3, num4 και όσους αριθμός θέλετε να προσθέσετε. Στο τέλος βάζουμε integer που είναι ο τύπος δεδομένων που θέλουμε να έχουν η μεταβλητές μας. Integer βάζουμε για ακέραιους αριθμούς.
    • Στη πέμπτη γραμμή βάζουμε Begin όπου θα το βάζουμε σε κάθε πρόγραμμα πριν το βασικό προγραμματισμό.
    • Η έκτη γραμμή εμφανίζει στο πρόγραμμα μια γραμμή που σου λέει να γράψεις ένα αριθμό. Αυτό τον αριθμό το γραφής στην εβδομη γραμμή στο readln(num1) όπου είναι ο πρώτος μας αριθμός που θέλουμε να προσθέσουμε.
    • Παρόμοια διαδικασία ακολουθείται και στις επόμενες δυο γραμμές όπου θα γράψεις τον δεύτερο αριθμό.
    • Στη δεκατη γραμμή λέμε στο πρόγραμμα ότι το sum ισούται με τι προσθέσει του num1 και του num2. Με αυτό τον τρόπο προστίθενται η δυο αριθμοί. Αν θέλετε δεν κάνετε πρόσθεσε και κάνετε άλλη πράξη φεύγοντα το + και βάζοντας το - για αφαίρεση, το * για πολλαπλασιασμό και το / για διαίρεση.
    • Στην εντέκατη γραμμή μας δίνη το αποτέλεσμα και στην δωδέκατη βάζουμε End για να τελειώσουμε το κώδικα.


    Πιστεύω το εξήγησα αρκετά καλά για να το καταλάβει και κάποιος εντελώς αρχάριος. Smile

    themisd

    Posts : 1
    Join date : 14/08/2010

    Απ: Προγράμματα σε Pascal - Χρήσιμα Παραδείγματα Προγραμμάτων

    Δημοσίευση από themisd Την / Το Σαβ Αυγ 14, 2010 8:12 pm

    A programe that calculates the pressure!!
    Κώδικας:
    program Pressures ;

    CONST
        MAXREAL = 1.0E37 ;

    type
        pressuretype = array [1 .. 1000] of real ;


        Procedure GetPressures (var n : integer ; var pressure : pressuretype) ;

        begin
            n := 1 ;

            writeln ('ENTER A NEGATIVE PRESSURE TO TERMINATE DATA INPUT.') ;
            writeln ;

            while TRUE do begin
                write ('ENTER PRESSURE #', n:0, ' ') ;
                readln (pressure[n]) ;
                if pressure[n] < 0.0 then begin
                    n := n - 1 ;
                    exit
                end ;
                n := n + 1
            end
        end ;


        procedure ProcessPressures (n                      : integer ;
                                    pressure                : pressuretype ;
                                    var
                                        high, low, average  : real) ;

        var
            total  :  real ;
            count  :  integer ;

        begin
            total  :=  0.0 ;
            count  :=  0 ;
            high    :=  pressure[1] ;
            low    :=  pressure[1] ;

            for count := 1 to n do begin
                total := total + pressure[count] ;
                if pressure[count] > high then
                    high := pressure[count] ;
                if pressure[count] < low then
                    low  := pressure[count]
            end ;

            average := total / count
        end ;


        procedure PrintSummaryResults  (n                  :  integer ;
                                        pressure            :  pressuretype ;
                                        high, low, average  :  real) ;

        var
            i  :  integer ;

        begin
            writeln('NUMBER OF INTERVALS TO MONITOR: ', n) ;
            writeln('**********************************') ;

            for i := 1 to n do
                writeln('PROCESS ', i:0, ' PRESSURE: ', pressure[i]:10:3);
            writeln ;
            if high > 5000.0 then
                writeln('DANGER! OVERPRESSURE OF ', high:0:3) ;
            if low < 14.0 then
                writeln('DANGER! VACUUM OF ', low:0:3) ;
           
            writeln('HIGH PRESSURE IS ', high:0:3) ;
            writeln('LOW PRESSURE IS ', low:0:3) ;
            writeln('AVERAGE PRESSURE IS ', average:0:3) ;
            writeln('************************************')
        end;


    var
        n          :  integer ;
        pressure    :  pressuretype ;
        high,
        low,
        average    :  real ;

    begin
        GetPressures (n, pressure) ;
        ProcessPressures (n, pressure, high, low, average);
        PrintSummaryResults (n, pressure, high, low, average);
    end.

      Η τρέχουσα ημερομηνία/ώρα είναι Τετ Δεκ 12, 2018 10:45 am