Pascal/Turbo Pascal - leer un numero y buscarlo en el vector x

   
Vista:

leer un numero y buscarlo en el vector x

Publicado por Andrea (4 intervenciones) el 13/07/2015 00:57:33
Diseñe un program que lea un numero y lo busque en el vector x el cual tiene almacenados 80 elementos, escribir la posicion donde esta almacenado el numero en el vector o le mensaje "No" si no lo encuentra, busqueda secuencial.

nesecito ayuda. :(
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

leer un numero y buscarlo en el vector x

Publicado por dario (20 intervenciones) el 13/07/2015 11:54:32
A ver si esto esta bien.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
{Busqueda secuencial}
uses crt;
type
	vector=array[1..80] of integer;
var
	x:vector;
	i,num,pos:integer;
	encontro:boolean;
begin
	clrscr;
	randomize;
 
    {llenar vector x con 80 elementos, numeros aleatorios}
    {del 1 al 100}
	for i:=1 to 80 do
		x[i]:=random(100);
 
     for i:=1 to 80 do
		write(x[i],' ');
 
     writeln;
     write('Ingrese un numero del 1-100: ');
     readln(num);
 
	for i:=1 to 8
	0 do
	begin
		if  x[i] = num then begin
			encontro:=true;
			pos:=i;
            break;
		end
		else
			encontro:=false;
	end;
 
	if encontro then
		writeln('se encontro en la posicion ',pos)
	else
		writeln('no se encontro');
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar