Ocena użytkownikóww: ***** / 4
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 elementu - Delphi/szukanie_elementu.dpr:
//Szukanie zadanego elementu w tablicy
//(c) 2009 by Tomasz Lubinski
//www.algorytm.org
program szukanie_elementu;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a: Array [1..100] 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
for i:=1 to n do
begin
if (a[i] = x) then
begin
//podaj wynik
writeln('Odnaleziono element ',x,' pod indeksem ',i);
//poczekaj na enter od uzytkownika
readln;
//zakoncz program
exit;
end;
end;
//podaj wynik
writeln('Nieznaleziono w tablicy elementu ', x);
//poczekaj na enter od uzytkownika
readln;
end.