Μια ενδιαφέρουσα σελίδα για διάβασμα Αλγορίθμων.

Εξασκήστε τον αλγοριθμικό τρόπο σκέψης σας.

Τσιωτάκης Παναγιώτης Ηλεκτρονικό Βιβλίο

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.

Ερωτήσεις για την Πιστοποίηση - Παλιές

Ρίξτε μια ματιά ... και δυο!!!!

https://drive.google.com/file/d/0BxhLbrXIHD3ya0pBcnBPZU1FYWc/view?usp=sharing

Όλα για την Pascal

https://drive.google.com/folderview?id=0BxhLbrXIHD3yY196NkVrSkMyZ3M&usp=sharing

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.

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.

Άσκηση με πίνακες if-for

program third_program_with_arrays;
var
i,sum:integer;
ONOMA:array[1..5] of string;
BATH:array[1..5] of integer;
MO:real;

begin
  for i := 1 to 5 do
    begin
    writeln('Δώσε το όνομά σου');
    readln(ONOMA[i]);
    writeln('Δώσε το βαθμό που πήρε στην Pascal ');
    readln(BATH[i]);
    end
  ;
   for i:=1 to 5 do
   begin
   writeln(ONOMA[i]:10, ' ', BATH[i]);
   if BATH[i]>10 then
   begin
   writeln('Μπράβο καλέ μαθητή/τριά πέρασες');
   end
   else
   begin
   writeln('Είσαι άχρηστος/η δεν θα προκόψεις στη ζωή σου');
   end;
   end
   ;
   writeln('Ο συνολικός Μ.0 της τάξης σου είναι');
   sum:=0;
   for i:=1 to 5 do
   begin
   sum:=sum+BATH[i];
   end
   ;
   MO:=sum/5;
   writeln(MO);
 
 
end.