Pascal/Turbo Pascal - Ayuda con problema de pascal

   
Vista:

Ayuda con problema de pascal

Publicado por Brandon (2 intervenciones) el 06/04/2014 22:50:23
Hola mi maestro me puso este problema para completarlo pero no se como solo necesito el area de las variables y no se si contiene un arreglo, función o procedimiento.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Begin
          esta:=0
          ind:=0
          while ind<n and esta=0 do
          begin
                    if x= tabla[ind] then
                    begin
                               esta=1
                    end;
                    ind=ind+1
           end;
           if esta=1 then
           begin
                     write('esta en la pocición');
           end
           else
           begin
                     write('no esta');
           end;
end.

Gracias!!
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

Ayuda con problema de pascal

Publicado por ramon (2072 intervenciones) el 07/04/2014 00:52:25
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
{Con la información que me das podría ser esto}
 
const
    n = 9;
   tabla : array[1..n] of integer = (
    1,2,3,4,5,6,7,8,9);
 var
   x, esta, ind : integer;
 
Begin
esta:=0
ind:=0
while ind<n and esta=0 do
begin
if x= tabla[ind] then
begin
esta=1
end;
ind=ind+1
end;
if esta=1 then
begin
write('esta en la pocición');
end
else
begin
write('no esta');
end;
end.
{Te falta el dato de x que es el que compara}
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

Ayuda con problema de pascal

Publicado por Brandon (2 intervenciones) el 07/04/2014 01:10:07
Muchisimas gracias!!!
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