zadanie lato WDI

USES CRT;

VAR t:text;

const n=1000;

linia:array[0..1000] of string;

linia:t[0..1000] of integer;

i,j,min,x,zakres:integer;

BEGIN

clrscr;

//wczytanie pliku i takie tam innne

assign(t, 'input.txt');

reset(t);

read(t,linia[0]);

for i:=1 to n do

begin

Readln(t,linia[i]);

Read(t,znak_konca_wiersza);

Val(linia[i], t[i]) end;

//wczytanie liczby x

writeln('Podaj liczbe x: ');

readln(x);

//sortowanie

min:=1;

for i:=1 to n do

begin

for j:=i+1 to n do

begin

if t[min]>t[j] then

min:=j;

end;

linia:array[0..1000] o t[min]:=t[min]+t[i];

t[i]:=t[min]-t[i];

t[min]:=t[min]-t[i];

end;

//sprawdzenie binarnie

zakres:=500 for i=1 to n do

begin

if t[zakres]=x then

begin

writeln('Taka liczba jest w pliku!');

break;

end;

if t[zakres]>x then

begin

zakres:=zakres/2;

break;

end;

if t[zakres]<x then

begin

zakres:=zakres+zakres/2 break;

end;

end;

writeln('Takiej liczby nie ma w pliku!');

close(t);

END.




Wyszukiwarka

Podobne podstrony:
Zadanie z UBEZPIECZEŃ ŻYCIOWYCH - lato 2012-13 (2B332R), WSZiB Kraków
ćwiczenie 12 bioenergetyka zadania, Biologia Komórki, Prezentacje, 2011 lato
Zadanie z UBEZPIECZEŃ MAJĄTKOWYCH - lato 2012-13 (2B332R), WSZiB Kraków
zadanie 3 2013 lato
fd 2012 lato fdm palowy dane do zadania
fd 2012 lato skarpa opis zadania
lato zadania id 263808 Nieznany
Zadanie dla studentów ARMI lato 13
Zadania IF Egzamin SD Lato 11
fd 2012 lato fundament na palach wzór zadania (2) doc
fd 2012 lato fundament na palach wzór zadania doc
fd 2012 lato skarpa opis zadania
Zadania z treścia
Lato prezentacja 3
Prezentacja 2 analiza akcji zadania dla studentow
Przedmiot i zadania dydaktyki 4