Felhasználói eszközök

Eszközök a webhelyen


inf-prog-fszi:logaritmikus_kereses_tetele

Különbségek

A kiválasztott változat és az aktuális verzió közötti különbségek a következők.

Összehasonlító nézet linkje

Előző változat mindkét oldalon Előző változat
inf-prog-fszi:logaritmikus_kereses_tetele [2017/06/18 10:31]
beistvan
inf-prog-fszi:logaritmikus_kereses_tetele [2017/06/21 14:25] (aktuális)
beistvan
Sor 72: Sor 72:
  
 [[https://​ideone.com/​u5EiEy | A <​binaris_logaritmikus_kereses.pas>​ forráskódjának futtatása online ]] [[https://​ideone.com/​u5EiEy | A <​binaris_logaritmikus_kereses.pas>​ forráskódjának futtatása online ]]
 +
 +Órai gyakorlat
 +
 +<code pascal logaritmikus_kereses.pas>​
 +program logaritmikus_kereses;​
 +const n=8;
 +var i,​j,​al,​fel,​keresendo,​koz,​ cs : integer;
 +    van:​boolean;​
 +    a: array [1..n] of integer;
 +begin
 +  writeln('​Kerem a tomb elemeit: ');
 +  for i:=1 to n do
 +  begin
 +    write('​a[',​i,'​] = '); readln(a[i]);​
 +  end;
 +  for i:=1 to n-1 do
 +    for j:=i+1 to n do
 +      if a[j]<​a[i] then
 +      begin
 +        cs:=a[j];
 +        a[j]:=a[i];
 +        a[i]:=cs;
 +      end;
 +  write('​A rendezett tomb elemei: ');
 +  for i:=1 to n do
 +    write(a[i]:​3);​
 +  writeln;
 +  //​logaritmikus kereses
 +  al:=1;
 +  fel:=n;
 +  write('​A keresendo szam: '); readln(keresendo);​
 +  repeat
 +    koz := (al+fel) div 2;
 +    if a[koz]<​keresendo then al:=koz+1;
 +    if a[koz]>​keresendo then fel:=koz-1;
 +  until (al>fel) or (a[koz]=keresendo);​
 +  van := al<=fel;
 +  if van then write('​Megvan,​ sorszama: ',​koz)else write('​Nincs meg');
 +  readln;
 +end.
 +</​code>​
inf-prog-fszi/logaritmikus_kereses_tetele.txt · Utolsó módosítás: 2017/06/21 14:25 szerkesztette: beistvan