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 Entoncesn1 <- 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=0Escribir '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
0