vettori e matrici

esci algebraturbo.htm

PROGRAM matri15;
(* caricamento valori STRINGA in vettore e ricerca BINARIA elemento *)
(* valori compaiono non duplicati *)
uses crt;
var h,n,k,a:integer;
v:array[1..50] of string[20];
d:string[20];

begin
clrscr;
write('scrivi numero elementi < 50 ');readln(n);
writeln('scrivi elementi del vettore :nomi in ordine alfabetico ');
for h:=1 to n do
begin
write('elemento n.',h,' = ' );readln(v[h]);
end;

write('scrivi elemento da cercare in vettore ');readln(d);
h:=1;
k:=n;
repeat
a:=(h+k) div 2;
if d>v[a] then h:=a+1
else
k:=a-1;
until (v[a]=d) or (h>k);
if v[a]=d then
write(d,' elemento del vettore nel posto ',a)
else
writeln('elemento assente nel vettore');
writeln;
writeln('premiINVIO');
readln;
end.