vettori e matrici

esci algebraturbo.htm

PROGRAM matri14;
(* caricamento valori STRINGA in vettore e ricerca LINEARE elemento *)
(* valori compaiono una sola volta,senza duplicati *)
uses crt;
var h,n: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 da ordinare:nomi ');
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:=0;
repeat
h:=h+1;
until (v[h]=d) or (h=n);
if v[h]=d then
writeln(d,' = elemento cercato si trova nel posto ',h,' del vettore')
else
writeln(d,' questo elemento non si trova nel vettore');

writeln;
writeln('premiINVIO');
readln;
end.