Navigace: Hlavní stránka -> PASCAL -> 05 Jednorozměrná pole -> 05.01 Hledání pozice zadané hodnoty v poli

MENU

05.01 Hledání pozice zadané hodnoty v poli

Zadání:
Sestavte program, který nalezne v poli náhodných čísel zadanou hodnotu a vypíše její pozice
Řešení:
Pro jednoduchost vyřešíme program na poli o 20 prvcích z intervalu 1..10.
Pomocí prvního cyklu FOR pro proměnnou i nagenerujeme 20 hodnot z intervalu 1..10, vložíme je do pole na příslušné
pozice a zároveň je vytiskneme. V druhém cyklu FOR zkontrolujeme, zda hodnota na pozici i odpovídá hledané
hodnotě. Pokud ano, pozici vytiskneme. 
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var pole:array[1..20] of 1..10;
    i,h:integer;

begin

   randomize;

   write('Zadejte hledanou hodnotu: ');
   readln(h);

   writeln('Pole:');

   for i:=1 to 20 do
   begin
      pole[i]:=random(10)+1;
      write(pole[i],' ');
   end;

   writeln;
   writeln('Hledane pozice: ');

   for i:=1 to 20 do
      if pole[i]=h then write(i,' ');

   readln;

end.
program ke stažení

Pro studenty:
Generátor náhodných čísel musíme zinicializovat příkazem RANDOMIZE, jinak by program tisknul pokaždé stejný výsledek.