Πρόγραμμα με χαρακτηρισμό βαθμού

Να γίνει πρόγραμμα σε Pascal που να διαβάζει έναν βαθμό από το 0 έως το 20 (επιτρέπονται δεκαδικά ψηφία) και να εμφανίζει τον  αντίστοιχο χαρακτηρισμό:

• Ανεπαρκώς αν ο βαθμός είναι μεγαλύτερος ή ίσος με το 0 και μικρότερος ή ίσος με το 9
• Μέτρια αν ο βαθμός είναι μεγαλύτερος από το 9 και μικρότερος ή ίσος με το 12
• Καλά αν ο βαθμός είναι μεγαλύτερος από το 12 και μικρότερος ή ίσος με το 15
• Πολύ Καλά αν ο βαθμός είναι μεγαλύτερος από το 15 και μικρότερος ή ίσος με το 18
• Άριστα αν ο βαθμός είναι μεγαλύτερος από το 18 και μικρότερος ή ίσος με το 20 

Λύση:

Program vathmos;
var v:real;
Begin
    repeat
        write('Δώσε έναν βαθμό μεταξύ 0 και 20 :');
        readln(v);
    until (v>=0) and (v<=20);
    if (v>=0) and (v<=9) then
    writeln('Ανεπαρκώς');
    if (v>9) and (v<=12) then
    writeln('Μέτρια');
    if (v>12) and (v<=15) then
    writeln('Καλά');
    if (v>15) and (v<=18) then
    writeln('Πολύ Καλά');
    if (v>18) and (v<=20) then
    writeln('Άριστα');
End.

Εύρεση μεγαλύτερου αριθμού

Να γίνει πρόγραμμα σε Pascal που να διαβάζει ν ακέραιους αριθμούς (το ν θα δίνεται από το χρήστη) και θα υπολογίζει και θα εμφανίζει το μεγαλύτερο αριθμό.

Λύση:

Program find_max;
var a,i,max,n:integer;
Begin
    write('Δώσε το πλήθος ν των αριθμών :');
    readln(n);
    write('Δώσε τον 1ο αριθμό :');
    readln(a);
    max:=a;
    for i:=2 to n do
    begin
        write('Δώσε τον ',i,'ο αριθμό :');
        readln(a);
        if a>max then
            max:=a;
    end;
    writeln('Ο μεγαλύτερος είναι ο :',max);
End.

Επίλυση πρωτοβάθμιας εξίσωσης με την PASCAL

Program prwtovathmia;
Uses crt;
Var a,b:integer;
x:real;
Begin
Clrscr;
Repeat
         Write('Δώσε τον Α:');
         Readln(a);
Until a<>0;
Write('Δώσε τον Β:');
Readln(b);
x:=-b/a;
Writeln('To x einai ',x:8:2);
Readln;
End.

Αντιστροφή διψήφιου αριθμού

program antistrofi;
var a,b,c,d:integer;
begin
repeat
    write('Δώσε έναν διψήφιο αριθμό:');
    readln(a);
until (a>=10) and (a<=99);
b:=a div 10;
c:=a mod 10;
d:=c*10+b;
writeln('Ο αντίστροφος είναι:',d);
End.

Ακέραια Διαίρεση

Πρόγραμμα σε Pascal που υπολογίζει το πηλίκο και το υπόλοιπο ακέραιας διαίρεσης.
Π.χ. Αν διαιρέσουμε το 9 με το 2, το πηλίκο είναι 4 (το 2 χωράει 4 φορές στο 9) και το υπόλοιπο είναι 1 (περισσεύει 1, 9-4 Χ 2=9-8=1).






Program diairesi;
Uses crt;
Var a,b,c,d:integer;
Begin
Clrscr;
     Write('Δώσε τον διαιρετέο:');
     Readln(a);
     Write('Δώσε τον διαιρέτη:');
     Readln(b);
     c:=a div b;
     d:=a mod b;
     Writeln('Το πηλίκο είναι:',c);
     Writeln('Το υπόλοιπο είναι:',d);
     Readln;
End.