Pascal/Turbo Pascal - if anidado pascal ayuda

   
Vista:

if anidado pascal ayuda

Publicado por Anahi (2 intervenciones) el 19/09/2011 08:11:11
tengo un problema, alguien podria corregir este ejercicio queme pide hallar en valor mayor y la posicion.
Lo hice de esta manera en pascal

declaraciones
begin
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

if anidado pascal ayuda

Publicado por Anahi (2 intervenciones) el 19/09/2011 08:21:00
tengo un problema, alguien podria corregir este ejercicio queme pide hallar el valor mayor y la posicion.
Lo hice de esta manera en pascal, tengo dudas en la estructura del if, como que hay muchos end y no estoy segura de los ;

declaraciones
begin
for i := 1 to n do
begin
readln( A [ I ] );
IF I:= 1 THEN
begin
pos := i;
may:= A [ I ]
end
else
begin
if ( A [ I ] ) > may then
begin
pos := i;
may:= A [ I ]
end;
end;
end;
write(pos, may);
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

if anidado pascal ayuda

Publicado por ramon (2072 intervenciones) el 20/09/2011 19:01:06
{Espero esto te valga}

program mayor_pos;
uses
crt;
var
pos, may : integer;
a : array[1..10] of integer;
loc, t, i : integer;

begin
clrscr;
writeln('Entre los 10 balores enteros');
for i := 1 to 10 do
begin
{primero entramos los datos}
read(a[i]);
end;
loc := 0;
{buscamos el mayor dato}
for i := 1 to 10 do
begin
for t := 1 to 10 do
begin
if a[i] < a[t] then
begin
if a[t] > a[loc] then
loc := t;
end;
end;
end;
writeln('posicion = ',loc,' valor = ',a[loc]);
writeln;
writeln('Pulsa [Una Tecla]');
repeat until keypressed;
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