Aclantis

kekita · Invitado

hola necesito hacer este programa en pseudocodigo me peudenayudar porfis ....

gracias

construir un algortimo que dada una cantidad indeterminada de valores determine la suma de todos los multiplos de 3 y la multiplicacion de todos los numeros pares. el algoritmo termina cuando el valor que se ingresa es -1

crcbad · Moderador

Es muy sencillito.... sería algo así como:

VARIABLES
LAMULTI, LASUMA, NUMERO: ENTERO

INICIO
LAMULTI, LASUMA = 1

ESCRIBIR "INTRODUZCA NUMERO"
RECOGER NUMERO

DESDE I=2 HASTA I >= ENTERO HACER INCREMENTANDO 2
LAMULTI= LAMULTI* I

DESDE I=3 HASTA >= ENTERO HACER INCREMENTANDO 3
LASUMA= LASUMA+I

ESCRIBIR "MULTIPLICACION DE PARES: ", LAMULTI
ESCRIBIR "SUMA DE MULTIPLOS DE TRES :", LASUMA

FIN

Espero que te sirva.

Salu2 ^^

ProgramadorPofesional · Invitado

wenas, pues yo lo haría así:

VAR:
num, SumaM3, MulPar: entero

INICIO

SumaM3 ------ 0
MulPar --------- 1

ESCRIBIR ("Introduzca un valor" Smile

LEER (num)

/* Esto se pone para evitar q nos de numeros negativos (salvo nuestro centinela -1)*/
/*El enunciado es un poco ambiguo, pero supongo q solo se referirá a enteros positivos, sino no tendría sentido poner de centinela el -1 */

MIENTRAS (num< -1) HACER
ESCRIBIR ("Valor Incorrecto. Por favor, repita valor:")
LEER (num)
FIN_MIENTRAS

REPETIR
SI (numMOD2=0) ENTONCES
MulPar ----- Mulpar*num
FIN_SI
SI (numMOD3=0) ENTONCES
SumaM3 ----- SumaM3+num
FIN_SI
HASTA QUE (num= -1)

ESCRIBIR ("La multiplicacion de todos los numeros pares es:", MulPar)
ESCRIBIR ("La suma de todos los multiplos de 3 es:", SumaM3)

FIN

crcbad · Moderador

Si, tienes razón, tu aportación es más optimizada evitando los números negativos Smile

Bueno kekita, ya tienes dos formas de como hacerlo, tanto evitando los numeros negativos como utilizando diferentes bucles de control para la realización del mismo Wink