Question

Se dispone de una balanza de dos platos y seis objetos de metal del mismo tamaño, cinco de ellos tienen el mismo peso, mientras que el otro es mas pegado. *Elaborar* un algoritmo para detectar el objeto mas pegado.

Answer 1

Pseudocódigo en pseint para determinar que objeto pesa más en una balanza de 2 platos.

Algoritmo balanzaDeDosPlatos

• // Definir e inicializar variables

Definir dif,peso Como Real

Definir objeto,plato Como Caracter

Definir op,op1,Pt1,Pt2 Como Entero

Dimension objeto[6]

Dimension plato[2]

Dimension peso[6]

• // Asignar peso a los objetos (cinco de 3 kilos y uno más pesado de 3.1)

masPesado <- azar(5)+1

Para x<-1 Hasta 6 Hacer

 Si masPesado=x Entonces

  peso[x] <- 3.1

 SiNo

  peso[x] <- 3

 FinSi

FinPara

Escribir ' Objeto    Peso (kilos)'

Para x<-1 Hasta 6 Hacer

 Escribir '   ',x,'         ',peso[x] Sin Saltar

 Escribir ' '

FinPara

• // inicializar platos de la balanza

Pt1 <- 0

Pt2 <- 0

• // configurar el menú

Para x<-1 Hasta 6 Hacer

 objeto[x] <- 'Objeto '+ConvertirATexto(x)

FinPara

Para x<-1 Hasta 2 Hacer

 plato[x] <- 'Plato '+ConvertirATexto(x)

FinPara

Repetir

 Escribir 'Elija  el objeto a pesar '

 Para x<-1 Hasta 6 Hacer

  Escribir '(',x,') ',objeto[x]

 FinPara

 Repetir

  Leer op

  Si  NO (op=1 O op=2 O op=3 O op=4 O op=5 O op=6) Entonces

   Escribir 'Entrada inválida'

  FinSi

 Hasta Que op=1 O op=2 O op=3 O op=4 O op=5 O op=6

 Si Pt1=0 Y Pt2=0 Entonces

  Escribir 'Elija  el plato de la balanza '

  Para x<-1 Hasta 2 Hacer

   Escribir '(',x,') ',plato[x],'  ' Sin Saltar

  FinPara

  Repetir

   Leer op1

   Si  NO (op1=1 O op1=2) Entonces

    Escribir 'Entrada inválida'

   FinSi

  Hasta Que op1=1 O op1=2

•   // Asigno el objeto seleccionado al un plato de la balanza

  Segun op1  Hacer

   1:

    Pt1 <- op

•     // Escribir 'Plato 1 con objeto de: " , peso(Pt1), " Kilos"

   2:

    Pt2 <- op

  FinSegun

 SiNo

  Si Pt1=0 Entonces

   Pt1 <- op

  FinSi

  Si Pt2=0 Entonces

   Pt2 <- op

  FinSi

•   // si los pesos son diferentes entonces se identifica el objeto de mayor peso, sino se coloca colocar otro objeto en el plato 2

  dif <- peso[Pt2]-peso[Pt1]

  Si dif=0 Entonces

   Escribir 'Objeto ',Pt1,' y ',Pt2,' tienen el mismo peso'

   Pt2 <- 0

  SiNo

   Si peso[Pt1]>peso[Pt2] Entonces

    Escribir 'Objeto ',Pt1,' es el más pesado de todos'

   SiNo

    Escribir 'Objeto ',Pt2,' es el más pesado de todos'

   FinSi

  FinSi

 FinSi

 objeto[op] <- '-----------------'

Hasta Que Pt1<>0 Y Pt2<>0

FinAlgoritmo

Para saber más acerca de programa en pseint consulte: https://brainly.lat/tarea/50359407

#SPJ1