TechPioneers

Θέλετε να αντιδράσετε στο μήνυμα; Φτιάξτε έναν λογαριασμό και συνδεθείτε για να συνεχίσετε.
TechPioneers

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


3 απαντήσεις

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

    ArcZeus
    ArcZeus
    Moderator
    Moderator


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

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

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

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

    Κώδικας:
    program hello_world;

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


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

    Προγράμματα σε Pascal - Χρήσιμα Παραδείγματα Προγραμμάτων Empty Απ: Προγράμματα σε 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.
    ArcZeus
    ArcZeus
    Moderator
    Moderator


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

    Προγράμματα σε Pascal - Χρήσιμα Παραδείγματα Προγραμμάτων Empty Απ: Προγράμματα σε 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.
    Christos63
    Christos63
    Moderator
    Moderator


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

    Προγράμματα σε Pascal - Χρήσιμα Παραδείγματα Προγραμμάτων Empty Απ: Προγράμματα σε 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
    avatar
    themisd


    Posts : 1
    Join date : 14/08/2010

    Προγράμματα σε Pascal - Χρήσιμα Παραδείγματα Προγραμμάτων Empty Απ: Προγράμματα σε 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.

      Η τρέχουσα ημερομηνία/ώρα είναι Πεμ Μαρ 28, 2024 6:42 pm