21 Δεκεμβρίου 2015

Κώδικας σελίδας HTML για τις 4 πράξεις (Πρόσθεση, Αφαίρεση, Πολλαπλασιασμός, Διαίρεση) δύο αριθμών με java script

<input type="number" step="0.01" id="an"=>Δώσε τον πρώτο αριθμό:</input>
<input type="number" step="0.01" id="bn"=>Δώσε δεύτερο αριθμό:</input><br>
<button onclick="argy-11()">Άθροισμα</button>
<button onclick="argy-12()">Διαφορά</button>
<button onclick="argy-13()">Γινόμενο</button>
<button onclick="argy-14 ()">Πηλίκο</button>
<p id="demox"></p>
<script type="text/javascript">
function argy-11() {
    var an=parseFloat(document.getElementById("an").value,2)
    var bn=parseFloat(document.getElementById("bn").value,2)
    var cn=an+bn
 cn=cn.toFixed(2)
    document.getElementById("demof").innerHTML=cn
}
function argy-12() {
    var an=parseFloat(document.getElementById("an").value,2)
    var bn=parseFloat(document.getElementById("bn").value,2)
    var cn=an-bn
 cn=cn.toFixed(2)
    document.getElementById("demof").innerHTML=cn;
}
function argy-13() {
    var an=parseFloat(document.getElementById("an").value,2)
    var bn=parseFloat(document.getElementById("bn").value,2)
    var cn=an*bn
    cn=cn.toFixed(2)
    document.getElementById("demof").innerHTML=cn;
}
function argy-14() {
    var an=parseFloat(document.getElementById("an").value,2)
    var bn=parseFloat(document.getElementById("bn").value,2)
    var cn=an/bn
    cn=cn.toFixed(2)
    document.getElementById("demof").innerHTML=cn
}
    </script>

Δώσε τον πρώτο αριθμό:
Δώσε δεύτερο αριθμό:

14 Δεκεμβρίου 2015

Κώδικας σελίδας HTML για την πρόσθεση δύο αριθμών με java script

Ακολουθεί ο κώδικας html και javascript  που τοποθετούμε σε μια σελίδα html για να κάνουμε μια εφαρμογή που προσθέτει δυο αριθμούς:

<html>
<head meta charset="UTF-8">
<title>java script example</title>
</head>
<body>
<p>Δώσε τον πρώτο αριθμό:<input type="number" step="0.01" id="an"></input></p>
<p>Δώσε δεύτερο αριθμό:<input type="number" step="0.01" id="bn"></input></p>
<p>Κάνε κλικ στο κουμπί για να εμφανιστεί το άθροισμά τους</p>
<button onclick="argy1()">Άθροισμα</button>
<p id="demo"></p>
<script type="text/javascript">
function argy1() {
    var an=parseFloat(document.getElementById("an").value,2);
    var bn=parseFloat(document.getElementById("bn").value,2);
    var cn=an+bn;
    document.getElementById("demo").innerHTML=cn;   
}
    </script>

</body>
</html>

 Αν βάλουμε το κομμάτι με τα έντονα γράμματα σε μια ανάρτηση του blog έχουμε το αποτέλεσμα:

Δώσε τον πρώτο αριθμό:

Δώσε δεύτερο αριθμό:

Κάνε κλικ στο κουμπί για να εμφανιστεί το άθροισμά τους

5 Μαΐου 2015

Εργαστήριο Μαθήματος "Λειτουργικά Συστήματα και Ασφάλεια Πληροφοριακών Συστημάτων"

Εργαστήριο Μαθήματος
 "Λειτουργικά Συστήματα και Ασφάλεια Πληροφοριακών Συστημάτων" 2015

  1. Εικονίδιο "Υπολογιστής" ή "Ο Υπολογιστής μου": Ιδιότητες
  2. Διαχείριση διεργασιών
  3. Διαχείριση δίσκων (Διαμερίσματα, Διαχείριση διαμερισμάτων, Αλλαγή γράμματος δίσκου)
  4. Διαχείριση λογαριασμών χρηστών
  5. Μορφοποίηση δίσκου - Σύστημα αρχείων
  6. Ανασυγκρότηση και εξέταση δίσκου
  7. Εκκαθάριση δίσκου
  8. Δημιουργία αντιγράφων ασφαλείας μέσω Windows και άλλα προγράμματα (π.χ. Acronis)
  9. Επαναφορά συστήματος
  10. Λειτουργίες φακέλων
  11. Κοινή Χρήση Φακέλων και αρχείων, Αντιστοίχιση δίσκου δικτύου
  12. Λειτουργίες αρχείων
  13. Αναζήτηση αρχείων σε windows
    και γραμμή εντολών
  14. Εντολές dos (dir, cls, cd, md, copy con)
  15. Αρχεία εντολών bat (batch files)
  16. Εντολές δικτύου (ping, ipconfig, tracert)
  17. Εντολές windows (π.χ. control για Πίνακα Ελέγχου)
  18. Μητρώο (Αναζήτηση, Ρύθμιση)
  19. Εντολή msconfig - Επιλογές
  20. Συμπίεση αρχείων (windows, winrar, winzip)
  21. Βήματα εγκατάστασης Λ.Σ.
  22. Διαχείριση συσκευών – Ρυθμίσεις συσκευών και windows
  23. Εγκατάσταση Windows και Λογισμικού
  24. Εγκατάσταση υλικού (π.χ. usb Bluetooth)
  25. Λογισμικό System Information (SIW), AIDA64


29 Απριλίου 2015

Μέσο ύψος μαθητών

Program ypsos;
var s,i,y:integer;
mo:real;
Begin
s:=0;
i:=0;
repeat
write('Δώσε το ύψος του μαθητή: ');
readln(y);
i:=i+1;
s:=s+y;
until y=0;
mo:=s/(i-1);
writeln('Το μέσο ύψος είναι: ',mo:8:2);
End.

Εκτέλεση:

Δώσε το ύψος του μαθητή: 160
Δώσε το ύψος του μαθητή: 150
Δώσε το ύψος του μαθητή: 180
Δώσε το ύψος του μαθητή: 0
Το μέσο ύψος είναι:   163.33

26 Απριλίου 2015

Έλεγχος αν ένα τρίγωνο είναι ισοσκελές

Να γίνει πρόγραμμα σε pascal που να διαβάζει το μήκος των 3 πλευρών ενός τριγώνου και να ελέγχει και να εμφανίζει μήνυμα αν το τρίγωνο είναι ισοσκελές ή όχι. Ένα τρίγωνο είναι ισοσκελές όταν έχει δυο πλευρές ίσες.








Απάντηση

Αντίστροφη μέτρηση έως το 0

Να γίνει πρόγραμμα σε pascal που να διαβάζει έναν θετικό ακέραιο αριθμό και να εμφανίζει την αντίστροφη μέτρηση από αυτόν τον αριθμό έως το 0. Να γίνει χρήση της δομής επανάληψης repeat..until.






Απάντηση

Περίμετρος και εμβαδό κύκλου

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

Οι τύποι είναι:
Περίμετρος=2*π*ακτίνα
Εμβαδό=π*ακτίνα*ακτίνα (π * ακτίνα στο τετράγωνο)
Όπου π=3,14 (περίπου)




Απάντηση

31 Μαρτίου 2015

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

Να γίνει πρόγραμμα σε 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.

18 Μαρτίου 2015

Επίλυση πρωτοβάθμιας εξίσωσης με την 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.

10 Μαρτίου 2015

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

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.

4 Μαρτίου 2015

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

Πρόγραμμα σε 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.

11 Φεβρουαρίου 2015

Πρόγραμμα με όριο γινομένου με repeat και while

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

10 Φεβρουαρίου 2015

Άθροισμα αριθμών με όριο

Να γίνουν 2 προγράμματα. Το πρώτο με τη δομή επανάληψης while και το δεύτερο με τη δομή επανάληψης repeat. Το πρόγραμμα θα διαβάζει ένα συγκεκριμένο αριθμό, που θα είναι το όριο. Μετά, θα διαβάζει αριθμούς μέχρι το άθροισμα τους να ξεπεράσει τον αριθμό όριο. Π.χ. Αν ο αριθμός όριο είναι το 100, θα ζητάει αριθμούς μέχρι το άθροισμα τους να ξεπεράσει το 100.





Λύση με while

Λύση με repeat

Επανάληψη με while και repeat

Να γίνoυν προγράμματα με τη χρήση των δομων επανάληψης while και repeat που να διαβάζουν το πλήθος των αριθμών που θα προστεθούν και μετά να ζητάνε τόσους αριθμούς (όσο και το πλήθος) και να τους αθροίζουν μεταξύ τους. Στο τέλος να εμφανίζεται και το άθροισμα. (Π.χ. αν ο αριθμός που θα δώσουμε για πλήθος είναι 5, θα ζητηθούν 5 αριθμοί και θα προστεθούν μεταξύ τους).



Λύση Άσκησης με while

Λύση Άσκησης με repeat

Επανάληψη με for

Να γίνει πρόγραμμα με τη χρήση της δομής επανάληψης for που να διαβάζει το πλήθος των αριθμών που θα προστεθούν και μετά να ζητάει τόσους αριθμούς (όσο και το πλήθος) και να τους αθροίζει μεταξύ τους. Στο τέλος να εμφανίζεται και το άθροισμα. (Π.χ. αν ο αριθμός που θα δώσουμε για πλήθος είναι 5, θα ζητηθούν 5 αριθμοί και θα προστεθούν μεταξύ τους).




Λύση Άσκησης


28 Ιανουαρίου 2015

Άσκηση με case και ημέρα εβδομάδας

Να δημιουργηθεί πρόγραμμα σε Pascal που θα ζητάει έναν αριθμό από το 1 έως το 7 και θα εμφανίζει την αντίστοιχη ημέρα της εβδομάδας ξεκινώντας από την Κυριακή. Π.χ. Αν δοθεί το 1 θα εμφανίζεται το μήνυμα 'Κυριακή'. Αν δοθεί το 2 θα εμφανίζεται το μήνυμα 'Δευτέρα' κ.ο.κ.


18 Ιανουαρίου 2015

Εισαγωγή στην εντολή case

Απλό παράδειγμα προγράμματος με  την εντολή case:


Πρόγραμμα με case

και ένα πρόγραμμα με if...then...else if το οποία θα μετατρέψουμε αργότερα σε πρόγραμμα με την χρήση της εντολής case.

Πρόγραμμα με if...then...else if


12 Ιανουαρίου 2015

Άσκηση Pascal

Να γράψετε πρόγραμμα σε Pascal που διαβάζει 4 βαθμούς, υπολογίζει τον Μέσο Όρο τους και τον τυπώνει.
Αν ο Μέσος Όρος είναι πάνω από 15 θα τυπώνει το μήνυμα "Επιτυχών" αλλιώς θα τυπώνει το μήνυμα "Όχι Επιτυχών".

 Λύση Άσκησης