ΥΠΟΣΤΗΡΙΞΗ

2) ΠΑΡΑΓΟΝΤΙΚΟ ΕΝΟΣ ΑΡΙΘΜΟΥ

3) ΑΘΡΟΙΣΜΑ ΔΥΟ ΑΡΙΘΜΩΝ

4) ΘΕΡΜΟΚΡΑΣΙΕΣ ΚΑΙ ΠΛΗΘΟΣ ΗΜΕΡΩΝ

5) ΕΜΦΩΛΕΥΜΕΝΕΣ - ΕΠΑΝΑΛΗΠΤΙΚΕΣ ΕΝΤΟΛΕΣ

5 ΔΙΑΦΟΡΕΤΙΚΑ ΠΡΟΓΡΑΜΜΑΤΑ ΣΤΗΝ ΓΛΩΣΣΑ PASCAL 

1)ΝΑ ΓΡΑΦΕΙ ΠΡΟΓΡΑΜΜΑ ΠΟΥ ΝΑ ΔΙΑΒΑΖΕΙ ΤΟΝ ΜΙΣΘΟ ΕΝΟΣ ΥΠΑΛΛΗΛΟΥ ΚΑΙ ΝΑ ΥΠΟΛΟΓΙΖΕΙ ΚΑΙ ΝΑ ΤΥΠΩΝΕΙ ΤΙΣ ΚΡΑΤΗΣΕΙΣ ΚΑΙ ΤΟΝ ΚΑΘΑΡΟ ΜΙΣΘΟ ΔΕΔΟΜΕΝΟΥ ΟΤΙ ΑΝ Ο ΜΙΣΘΟΣ ΕΙΝΑΙ ΚΑΤΩ ΑΠΟ 200.000 ΟΙ ΚΡΑΤΗΣΕΙΣ ΕΙΝΑΙ 5%, ΕΝΩ ΑΝ ΕΙΝΑΙ ΠΑΝΩ ΑΠΟ 200.000 ΟΙ ΚΡΑΤΗΣΕΙΣ ΕΙΝΑΙ 7%.

PROGRAM ASK01;

USES CRT;                                                   

VAR    M:LONGINT;    KM,K:REAL;                             {ΔΗΛΩΣΕΙΣ ΜΕΤΑΒΛΗΤΩΝ}

BEGIN

     CLRSCR;                                                            {ΚΑΘΑΡΙΣΜΟΣ ΟΘΟΝΗΣ}

     WRITE('ΔΩΣΕ ΤΟΝ ΜΙΣΘΟ ΥΠΑΛΛΗΛΟΥ');        

     READLN(M);                                                         {ΔΙΑΒΑΖΕΙ ΤΟ ΜΙΣΘΟ}

     IF M<=200000 THEN                                         {ΥΠΟΛΟΓΙΖΕΙ ΤΙΣ ΚΡΑΤΗΣΕΙΣ

            K:=(5*M)/100                                             ΑΝΑΛΟΓΑ ΜΕ ΤΟ ΑΝ Ο ΜΙΣΘΟΣ  

     ELSE                                                                 ΕΙΝΑΙ ΜΕΓΑΛΥΤΕΡΟΣ Ή 

            K:=(7*M)/100;                                             ΜΙΚΡΟΤΕΡΟΣ ΑΠΟ 200.000}

     WRITELN('ΟΙ ΚΡΑΤΗΣΕΙΣ ΕΙΝΑΙ Κ=',Κ);                   ΤΥΠΩΝΕΙ ΤΙΣ ΚΡΑΤΗΣΕΙΣ}

     KM:=M-K;                                                    {ΥΠΟΛΟΓΙΖΕΙ ΤΟΝ ΚΑΘΑΡΟ ΜΙΣΘΟ}

     WRITELN('Ο ΚΑΘΑΡΟΣ ΜΙΣΘΟΣ ΕΙΝΑΙ KM=', KM);   {ΤΥΠΩΝΕΙ ΤΟΝ ΚΑΘΑΡΟ ΜΙΣΘΟ}

     READLN;

END.

2)ΝΑ ΓΡΑΦΕΙ ΠΡΟΓΡΑΜΜΑ ΤΟ ΟΠΟΙΟ ΝΑ ΔΙΑΒΑΖΕΙ ΑΠΟ ΤΟ ΠΛΗΚΤΡΟΛΟΓΙΟ ΕΝΑΝ ΑΚΕΡΑΙΟ ΑΡΙΘΜΟ ΚΑΙ ΝΑ ΥΠΟΛΟΓΙΖΕΙ ΚΑΙ ΝΑ ΕΚΤΥΠΩΝΕΙ ΤΟ ΠΑΡΑΓΟΝΤΙΚΟ ΤΟΥ.

PROGRAM  ASK02;

USES CRT;

VAR    P,N,I:INTEGER;                                                {ΔΗΛΩΣΕΙΣ ΜΕΤΑΒΛΗΤΩΝ}

BEGIN

         CLRSCR;                                                           {ΚΑΘΑΡΙΣΜΟΣ ΟΘΟΝΗΣ}

         WRITE('ΔΩΣΕ ΕΝΑΝ ΑΡΙΘΜΟ');

         READLN(N);                                                       {ΔΙΑΒΑΖΕΙ ΤΟΝ ΑΚΕΡΑΙΟ}  

         P:=1;

         FOR I:=1 TO N DO                                  {ΥΠΟΛΟΓΙΖΕΙ ΤΟ ΠΑΡΑΓΟΝΤΙΚΟ ΤΟΥ} 

                P:=P*I;

         WRITELN('ΤΟ ΠΑΡΑΓΟΝΤΙΚΟ ΕΙΝΑΙ P=',P);        {ΤΥΠΩΝΕΙ ΤΟ ΠΑΡΑΓΟΝΤΙΚΟ}

         READLN;

END.

3)ΝΑ ΓΡΑΦΕΙ ΠΡΟΓΡΑΜΜΑ ΤΟ ΟΠΟΙΟ ΝΑ ΔΙΑΒΑΖΕΙ ΑΠΟ ΤΟ ΠΛΗΚΤΡΟΛΟΓΙΟ 2 ΑΡΙΘΜΟΥΣ ΚΑΙ ΝΑ ΥΠΟΛΟΓΙΖΕΙ ΚΑΙ ΝΑ ΤΥΠΩΝΕΙ ΤΟ ΑΘΡΟΙΣΜΑ ΤΟΥΣ

PROGRAM ASK03;

USES CRT;                                                                

VAR   A,B,S:INTEGER;                                            {ΔΗΛΩΣΕΙΣ ΜΕΤΑΒΛΗΤΩΝ}

BEGIN

        CLRSCR;                                                        {ΚΑΘΑΡΙΣΜΟΣ ΟΘΟΝΗΣ}

        WRITE('ΔΩΣΕ ΕΝΑΝ ΑΡΙΘΜΟ Α');                

        READLN(A);                                                  {ΔΙΑΒΑΖΕΙ ΤΟΝ 1ο ΑΚΕΡΑΙΟ}

        WRITE('ΔΩΣΕ ΕΝΑΝ ΑΡΙΘΜΟ Β');

        READLN(B);                                                   {ΔΙΑΒΑΖΕΙ ΤΟΝ 2ο ΑΚΕΡΑΙΟ}

        S:=A+B;                                                    {ΥΠΟΛΟΓΙΖΕΙ ΤΟ ΑΘΡΟΙΣΜΑ ΤΟΥΣ}

        WRITELN('ΤΟ ΑΘΡΟΙΣΜΑ ΕΙΝΑΙ S=',S);              {ΤΥΠΩΝΕΙ ΤΟ ΑΘΡΟΙΣΜΑ ΤΟΥΣ}

        READLN;

END.

4)ΝΑ ΓΡΑΦΕΙ ΠΡΟΓΡΑΜΜΑ ΤΟ ΟΠΟΙΟ ΝΑ ΔΙΑΒΑΖΕΙ ΑΠΟ ΤΟ ΠΛΗΚΤΡΟΛΟΓΙΟ ΤΙΣ ΘΕΡΜΟΚΡΑΣΙΕΣ 30 ΗΜΕΡΩΝ ΚΑΙ ΣΤΗ ΣΥΝΕΧΕΙΑ ΝΑ ΥΠΟΛΟΓΙΖΕΙ ΚΑΙ ΝΑ ΕΚΤΥΠΩΝΕΙ ΤΗ ΜΕΣΗ ΘΕΡΜΟΚΡΑΣΙΑ ΤΩΝ ΗΜΕΡΩΝ ΑΥΤΩΝ ΚΑΘΩΣ ΚΑΙ ΤΟ ΠΛΗΘΟΣ ΤΩΝ ΗΜΕΡΩΝ ΠΟΥ ΕΧΟΥΝ ΘΕΡΜΟΚΡΑΣΙΑ ΜΕΓΑΛΥΤΕΡΗ ΑΠΟ 15 ΒΑΘΜΟΥΣ ΚΕΛΣΙΟΥ.

PROGRAM ASK04;

USES CRT;

VAR    S,TH,MO:REAL;    P,I:INTEGER;                            {ΔΗΛΩΣΕΙΣ ΜΕΤΑΒΛΗΤΩΝ}

BEGIN

        CLRSCR;                                                              {ΚΑΘΑΡΙΣΜΟΣ ΟΘΟΝΗΣ}

        S:=0;                                                                  {ΑΡΧΙΚΟΠΟΙΗΣΗ 

        P:=0;                                                                                ΜΕΤΑΒΛΗΤΩΝ}

        FOR I:=1 TO 30 DO

        BEGIN

              READ(TH);                                                  {ΔΙΑΒΑΖΕΙ ΤΗ ΘΕΡΜΟΚΡΑΣΙΑ}

              S:=S+TH;                                  {ΥΠΟΛΟΓΙΖΕΙ ΑΘΡΟΙΣΜΑ ΘΕΡΜΟΚΡΑΣΙΩΝ}

               IF TH>15 THEN                         {ΥΠΟΛΟΓΙΖΕΙ ΠΟΣΕΣ ΘΕΡΜΟΚΡΑΣΙΕΣ 

                    P:=P+1;                                                        ΕΙΝΑΙ ΠΑΝΩ ΑΠΟ 15^Ο C}

        END;

        MO:=S/30;                                                        {ΥΠΟΛΟΓΙΖΕΙ ΤΟ ΜΕΣΟ ΟΡΟ}

        WRITELN('ΜΕΣΗ ΘΕΡΜΟΚΡΑΣΙΑ=',MO);                    {ΤΥΠΩΝΕΙ ΤΟ ΜΕΣΟ ΟΡΟ}

        WRITELN('ΠΛΗΘΟΣ ΗΜΕΡΩΝ ΜΕ ΘΕΡΜΟΚΡΑΣΙΑ > ΑΠΟ 15 ',P);

        REPEAT UNTIL KEYPRESSED;

END.

5)ΝΑ ΓΡΑΦΕΙ ΠΡΟΓΡΑΜΜΑ ΤΟ ΟΠΟΙΟ ΜΕ ΤΗ ΒΟΗΘΕΙΑ ΕΜΦΩΛΕΥΜΕΝΩΝ ΕΠΑΝΑΛΗΠΤΙΚΩΝ ΕΝΤΟΛΩΝ ΝΑ ΤΥΠΩΝΕΙ ΤΟ ΠΑΡΑΚΑΤΩ ΣΧΗΜΑ:

* * * * *   

* * * *     

* * *       

* *         

*            

  * *           

* * *      

* * * *   

 * * * * * 

PROGRAM ASK05;

USES CRT;

VAR    I,J:INTEGER;

BEGIN

     CLRSCR;

     FOR I:=5 DOWHTO 1 DO

     BEGIN          

          FOR J:=5 DOWNTO I DO

                WRITE('*  ');

          WRITELN;

      END;

      FOR I:=2 TO 5 DO

      BEGIN

            FOR J:=1 TO I DO

                  WRITE('*  ');

            WRITELN;

      END;

      REPEAT UNTIL KEYPRESSED;

END.