Παρασκευή 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.

Δεν υπάρχουν σχόλια:

Δημοσίευση σχολίου