Παρασκευή 30 Ιανουαρίου 2015

Εγχειρίδιο Εισαγωγή Στην Πληροφορική

Το παρακάτω link αποτελεί το εγχειρίδιο για το μάθημα
"ΕΙΣΑΓΩΓΗ ΣΤΗΝ ΠΛΗΡΟΦΟΡΙΚΗ" 
του πρώτου εξαμήνου του ΙΕΚ.
Κατεβάστε το στον υπολογιστή σας και καλό διάβασμα.

Παρασκευή 5 Δεκεμβρίου 2014

Δευτέρα 1 Δεκεμβρίου 2014

program prosthesi_pinakon;
var
A,B,C,D:array[1..5] of integer;
i:integer;
begin
    writeln('ΠΙΝΑΚΑΣ Α');
for i:=1 to 5 do
 begin
  writeln('Δώσε το ',i,'ο στοιχειο του πίνακα A');
  readln(A[i]);
 end
    ;
    writeln('ΠΙΝΑΚΑΣ B');
    for i:=1 to 5 do
 begin
  writeln('Δώσε το ',i,'ο στοιχειο του πίνακα B');
  readln(B[i]);
 end
    ;
    writeln('ΠΙΝΑΚΑΣ C');
    for i:=1 to 5 do
 begin
  C[i] := A[i] + B[i];
  writeln('Το άθροισμα του ',A[i],' και του ', B[i],' είναι ',C[i]);
      end
    ;
    writeln('ΠΙΝΑΚΑΣ D');
    for i:=1 to 5 do
 begin
  D[i] := A[i] + C[i];
  writeln('Το άθροισμα του ',A[i],' και του ', C[i],' είναι ',D[i]);
      end
    ;
end.

Ερωτήσεις για την Πιστοποίηση - Παλιές
Ρίξτε μια ματιά ... και δυο!!!!

Παρασκευή 28 Νοεμβρίου 2014

program seiriaki_anazitisi;
var
  i,counter,x:integer;
  A:array[1..5] of integer;
  to_vrika:boolean;
begin

 for i:=1 to 5 do {ΜΕ ΑΥΤΉ ΤΗ FOR ΓΕΜΙΖΩ ΕΝΑΝ ΠΙΝΑΚΑ ΜΕ ΣΤΟΙΧΕΙΑ}
   begin
    readln(A[i]);
   end
 ;
 writeln();
 writeln('Δώσε έναν αριθμό να σου πώ σε ποιά θέση βρίσκεται');
 readln(x);{ΕΙΣΑΓΩ ΕΝΑΝ ΑΡΙΘΜΟ ΑΠΟ ΤΟ ΠΛΗΚΤΡΟΛΟΓΙΟ}

 {ΤΩΡΑ ΘΑ ΨΑΞΩ ΝΑ ΤΟΝ ΒΡΩ ΣΕ ΠΟΙΕΣ ΘΕΣΕΙΣ ΑΥΤΟΣ ΒΡΙΣΚΕΤΑΙ....ΑΝ ΥΠΑΡΧΕΙ.
 ΑΝ ΔΕΝ ΥΠΑΡΧΕΙ ΘΑ ΒΓΑΛΩ ΜΗΝΥΜΑ ΟΤΙ ΚΑΙ ΚΑΛΑ ΔΕΝ ΤΟΝ ΒΡΗΚΑ ΠΟΥΘΕΝΑ - ΣΕΙΡΙΑΚΗ ΑΝΑΖΗΤΗΣΗ}
 counter:=0; {ΕΝΑΣ ΜΕΤΡΗΤΗΣ ΠΟΥ ΜΟΥ ΔΕΙΧΝΕΙ ΠΟΣΕΣ ΦΟΡΕΣ ΒΡΗΚΑ ΤΟ ΣΤΟΙΧΕΙΟ
 ΠΟΥ ΨΑΧΝΩ, ΑΝ ΤΟ ΒΡΗΚΑ}
 to_vrika:=false;
 for i:=1 to 5 do
   begin
    if x = A[i] then
     begin
      to_vrika:=true;
     writeln('Το στοιχείο που ψάχνεις βρέθηκε στη θέση ',i);
     counter:= counter + 1;
    end
    ;
   end
 ;
 if to_vrika = false then
  begin
   writeln('Το στοιχείο που ψάχνεις δεν βρέθηκε πουθενά');
  end
 else
  begin
   writeln('Το στοιχείο που ψάχνεις βρέθηκε ',counter, ' φορές');
  end
 ;
 end.

Τετάρτη 26 Νοεμβρίου 2014

program procedures_with_arrays;
procedure DIAKRISH(var filo:char, bathmos:integer);
begin
if filo='A' then
   begin
    writeln('Είσαι άνδρας');
    if bathmos > 10 then
      begin
       writeln('Μπράβο Πέρασες αγόρι μου');
      end
    else
      begin
       writeln('Δυστυχώς Κόπηκες αγόρι μου');
      end
    ;
   end
  else
   begin
    writeln('Είσαι Κορίτσι');
    if bathmos > 10 then
      begin
       writeln('Μπράβο Πέρασες κορίτσι μου');
      end
    else
      begin
       writeln('Δυστυχώς Κόπηκες κορίτσι μου');
      end
    ;
   end
  ;
end
;

var
onoma:string;
filo:char;
bathmos:integer;

begin
 writeln('Δώσε το όνομά, το φύλο σου και το βαθμό σου');
 readln(onoma);
 readln(filo);
 readln(bathmos);
 while onoma <> 'TELOS' do
   begin
   DIAKRISH(filo,bathmos);
   writeln('Δώσε το όνομά, το φύλο σου και το βαθμό σου');
   readln(onoma);
   if onoma = 'TELOS' then
    begin
     writeln('Τελειώσαμε. Ευχαριστώ για τις πληροφορίες');
    end
   else
    begin
     readln(filo);
     readln(bathmos);
    end
   ;
   end
 ;
end.