Ocena użytkownikóww: ***** / 0
Nadesłany przez Tomasz Lubiński, 04 września 2009 01:00
Kod przedstawiony poniżej przedstawia główną część rozwiązania problemu.
Pobierz pełne rozwiązanie.Jeżeli nie odpowiada Ci sposób formatowania kodu przez autora skorzystaj z pretty printer'a i dostosuj go automatycznie do siebie.
Szukanie z wartownikiem - Delphi/szukanie_z_wartownikiem.dpr:
//Szukanie z wartownikiem zadanego elementu w tablicy
//(c) 2009 by Tomasz Lubinski
//www.algorytm.org
program szukanie_z_wartownikiem;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a: Array [1..101] of Integer;
i, n, x: Integer;
begin
//pobierz dane od uzytkownika
writeln('Podaj liczbe elementow tablicy (maks. 100)');
readln(n);
for i:=1 to n do
begin
writeln('Podaj element a[', i, ']');
readln(a[i]);
end;
writeln('Podaj element do wyszukania');
readln(x);
//szukaj elementu x
a[n+1] := x;
i := 1;
while (a[i] <> x) do
begin
i := i + 1;
end;
//podaj wynik
if (i = n+1) then
writeln('Nieznaleziono w tablicy elementu ', x)
else
writeln('Odnaleziono element ',x,' pod indeksem ',i);
//poczekaj na enter od uzytkownika
readln;
end.
