Algoritmia - pseint me redondea el resultado

 
Vista:
sin imagen de perfil
Val: 1
Ha aumentado su posición en 19 puestos en Algoritmia (en relación al último mes)
Gráfica de Algoritmia

pseint me redondea el resultado

Publicado por carlos (1 intervención) el 02/08/2018 12:49:19
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
Algoritmo Calculadora_De_Dimensiones
	Escribir 'Dimensiones'
	Definir resultado1 como real
	Definir resultado2 como real
	Definir resultado3 como real
	Definir tot Como Real
	Definir n1 como real
	Definir r1 como real
	Definir n2 como real
	Definir r2 como real
	Definir n3 como real
	Definir r3 como real
	Definir n4 como real
	Definir r4 como real
	Definir n5 como real
	Definir r5 como real
	Definir n6 como real
	Definir r6 como real
	Definir res Como Real
 
 
 
	Repetir
		resultado3 <- resultado3
		tot <- tot
		tot <- tot+resultado3
		Escribir 'ingrese un numero de 3 a 6 cifras, Escribe  0 para salir'
		Leer a
 
		resultado3 <- Numerico
 
 
		Si a<1000 Entonces
			n1 <- trunc(a/100)
			r1 <- a MOD 100
			n2 <- trunc(r1/10)
			r2 <- a MOD 10
			n3 <- trunc(r2/1)
 
			union1 <- n1*n2
			union2 <- union1*n3
			resultado3 <- union2/12
		SiNo
			Si a>999 Y a<9999 Entonces
				n1 <- trunc(a/1000)
				r1 <- a MOD 1000
				n2 <- trunc(r1/100)
				r2 <- a MOD 100
				n3 <- trunc(r2/10)
				r3 <- a MOD 10
				n4 <-trunc(r3/1)
 
				union1 <-n2
				resultado1 <- n1*n2
				res<-n3*10+n4
				resultado2 <- resultado1*res
				resultado3 <- resultado2/12
			SiNo
				Si a>9999 y a<99999 Entonces
					n1 <- trunc(a/10000)
					r1 <- a MOD 10000
					n2 <- trunc(r1/1000)
					r2 <- a MOD 1000
					n3 <- trunc(r2/100)
					r3 <- a MOD 100
					n4 <-trunc(r3/10)
					r4 <- a MOD 10
					n5 <-trunc(r4/1)
 
 
					union1 <-n2*10+n3
					union2 <-n4*10+n5
					resultado1 <- n1*union1
					resultado2 <- resultado1*union2
					resultado3 <- resultado2/12
 
 
 
				SiNo
					Si a>99999 y a <999999 Entonces
 
						n1 <- trunc(a/100000)
						r1 <- a MOD 100000
						n2 <- trunc(r1/10000)
						r2 <- a MOD 10000
						n3 <- trunc(r2/1000)
						r3 <- a MOD 1000
						n4 <- trunc(r3/100)
						r4 <- a MOD 100
						n5 <- trunc(r4/10)
						r5 <- a Mod(10)
						n6 <- trunc (r5/1)
 
 
						union1 <- n1*10+n2
						union2 <- n3*10+n4
						union3 <-n5*10+n6
 
						resultado1 <- union1*union2
						resultado2 <- union3*resultado1
						resultado3 <- resultado2/12
 
 
 
					FinSi
				FinSi
			FinSi
		FinSi
		// Escribir 'el digito de los numeros ingresados es ',n1,n2,n3,n4,n5
		// Escribir 'segunda cifra es ',union1
		Escribir 'el resultado convertido a (P) es ',resultado3
	Hasta Que resultado3=0
	Escribir 'Total:',tot
FinAlgoritmo


he testeado con 41410. 3 veces y me sale que el resultado es 140 y no 139.8 como deseo que sea
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
sin imagen de perfil
Val: 303
Oro
Ha mantenido su posición en Algoritmia (en relación al último mes)
Gráfica de Algoritmia

pseint me redondea el resultado

Publicado por dario (105 intervenciones) el 02/08/2018 15:25:02
Hola, no entiendo tu codigo, que estas tratando de hacer.
Coloca el enunciado completo del problema, para ver donde estas fallando.
Salu2.
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