>>

<<

Cifras decimales

Otro ejercicio

Selecciona el tipo de decimal:

Escribe la fracción generatriz:

Numerador -->

Denominador -->

Puedes simplificarla

Comprueba

Comprueba

num = Random(1, 500)
den = Random(1, 20)
mc = GCD(num, den)
num1: num / mc
den1: den / mc
lista3: {num1 / den1}
listafactoresprimos = Unique(PrimeFactors[den1])
tipo = If(den1 ≟ 1, 1, If[listafactoresprimos ≟ {2, 5} ∨ listafactoresprimos ≟ {2} ∨ listafactoresprimos ≟ {5}, 2, If[2 ∈ listafactoresprimos ∨ 5 ∈ listafactoresprimos, 4, 3]])
listadec: {"número entero", "decimal exacto", "decimal periódico puro", "decimal periódico mixto"}
conta: 0
co: floor((10^(conta) * num1 / den1)) / 10^(conta)
a: floor(num1 / den1)
A1: num1
B1: den1
B2: B1
C1 = Div(A1, B1)
A2: (10 * Mod[A1, B1])
C2 = Div(A2, B2)
B3: B2
A3: (10 * Mod[A2, B2])
C3 = Div(A3, B3)
B4: B3
A4: (10 * Mod[A3, B3])
C4 = Div(A4, B4)
B5: B4
A5: (10 * Mod[A4, B4])
C5 = Div(A5, B5)
B6: B5
A6: (10 * Mod[A5, B5])
C6 = Div(A6, B6)
B7: B6
A7: (10 * Mod[A6, B6])
C7 = Div(A7, B7)
B8: B7
A8: (10 * Mod[A7, B7])
C8 = Div(A8, B8)
B9: B8
A9: (10 * Mod[A8, B8])
C9 = Div(A9, B9)
B10: B9
A10: (10 * Mod[A9, B9])
C10 = Div(A10, B10)
B11: B10
A11: (10 * Mod[A10, B10])
C11 = Div(A11, B11)
B12: B11
A12: (10 * Mod[A11, B11])
C12 = Div(A12, B12)
B13: B12
A13: (10 * Mod[A12, B12])
C13 = Div(A13, B13)
B14: B13
A14: (10 * Mod[A13, B13])
C14 = Div(A14, B14)
B15: B14
A15: (10 * Mod[A14, B14])
C15 = Div(A15, B15)
B16: B15
A16: (10 * Mod[A15, B15])
C16 = Div(A16, B16)
B17: B16
A17: (10 * Mod[A16, B16])
C17 = Div(A17, B17)
B18: B17
A18: (10 * Mod[A17, B17])
C18 = Div(A18, B18)
B19: B18
A19: (10 * Mod[A18, B18])
C19 = Div(A19, B19)
B20: B19
A20: (10 * Mod[A19, B19])
C20 = Div(A20, B20)
B21: B20
A21: (10 * Mod[A20, B20])
C21 = Div(A21, B21)
B22: B21
A22: (10 * Mod[A21, B21])
C22 = Div(A22, B22)
B23: B22
A23: (10 * Mod[A22, B22])
C23 = Div(A23, B23)
B24: B23
A24: (10 * Mod[A23, B23])
C24 = Div(A24, B24)
B25: B24
A25: (10 * Mod[A24, B24])
C25 = Div(A25, B25)
B26: B25
A26: (10 * Mod[A25, B25])
C26 = Div(A26, B26)
B27: B26
A27: (10 * Mod[A26, B26])
C27 = Div(A27, B27)
B28: B27
A28: (10 * Mod[A27, B27])
C28 = Div(A28, B28)
B29: B28
A29: (10 * Mod[A28, B28])
C29 = Div(A29, B29)
B30: B29
A30: (10 * Mod[A29, B29])
C30 = Div(A30, B30)
B31: B30
A31: (10 * Mod[A30, B30])
C31 = Div(A31, B31)
B32: B31
A32: (10 * Mod[A31, B31])
C32 = Div(A32, B32)
B33: B32
A33: (10 * Mod[A32, B32])
C33 = Div(A33, B33)
B34: B33
A34: (10 * Mod[A33, B33])
C34 = Div(A34, B34)
B35: B34
A35: (10 * Mod[A34, B34])
C35 = Div(A35, B35)
B36: B35
A36: (10 * Mod[A35, B35])
C36 = Div(A36, B36)
B37: B36
A37: (10 * Mod[A36, B36])
C37 = Div(A37, B37)
B38: B37
A38: (10 * Mod[A37, B37])
C38 = Div(A38, B38)
B39: B38
A39: (10 * Mod[A38, B38])
C39 = Div(A39, B39)
B40: B39
A40: (10 * Mod[A39, B39])
C40 = Div(A40, B40)
B41: B40
A41: (10 * Mod[A40, B40])
C41 = Div(A41, B41)
B42: B41
A42: (10 * Mod[A41, B41])
C42 = Div(A42, B42)
B43: B42
A43: (10 * Mod[A42, B42])
C43 = Div(A43, B43)
B44: B43
A44: (10 * Mod[A43, B43])
C44 = Div(A44, B44)
B45: B44
A45: (10 * Mod[A44, B44])
C45 = Div(A45, B45)
B46: B45
A46: (10 * Mod[A45, B45])
C46 = Div(A46, B46)
B47: B46
A47: (10 * Mod[A46, B46])
C47 = Div(A47, B47)
B48: B47
A48: (10 * Mod[A47, B47])
C48 = Div(A48, B48)
B49: B48
A49: (10 * Mod[A48, B48])
C49 = Div(A49, B49)
B50: B49
A50: (10 * Mod[A49, B49])
C50 = Div(A50, B50)
B51: B50
A51: (10 * Mod[A50, B50])
C51 = Div(A51, B51)
B52: B51
A52: (10 * Mod[A51, B51])
C52 = Div(A52, B52)
B53: B52
A53: (10 * Mod[A52, B52])
C53 = Div(A53, B53)
B54: B53
A54: (10 * Mod[A53, B53])
C54 = Div(A54, B54)
B55: B54
A55: (10 * Mod[A54, B54])
C55 = Div(A55, B55)
B56: B55
A56: (10 * Mod[A55, B55])
C56 = Div(A56, B56)
B57: B56
A57: (10 * Mod[A56, B56])
C57 = Div(A57, B57)
B58: B57
A58: (10 * Mod[A57, B57])
C58 = Div(A58, B58)
B59: B58
A59: (10 * Mod[A58, B58])
C59 = Div(A59, B59)
B60: B59
A60: (10 * Mod[A59, B59])
C60 = Div(A60, B60)
B61: B60
A61: (10 * Mod[A60, B60])
C61 = Div(A61, B61)
B62: B61
A62: (10 * Mod[A61, B61])
C62 = Div(A62, B62)
B63: B62
A63: (10 * Mod[A62, B62])
C63 = Div(A63, B63)
B64: B63
A64: (10 * Mod[A63, B63])
C64 = Div(A64, B64)
B65: B64
A65: (10 * Mod[A64, B64])
C65 = Div(A65, B65)
B66: B65
A66: (10 * Mod[A65, B65])
C66 = Div(A66, B66)
B67: B66
A67: (10 * Mod[A66, B66])
C67 = Div(A67, B67)
B68: B67
A68: (10 * Mod[A67, B67])
C68 = Div(A68, B68)
B69: B68
A69: (10 * Mod[A68, B68])
C69 = Div(A69, B69)
B70: B69
A70: (10 * Mod[A69, B69])
C70 = Div(A70, B70)
B71: B70
A71: (10 * Mod[A70, B70])
C71 = Div(A71, B71)
B72: B71
A72: (10 * Mod[A71, B71])
C72 = Div(A72, B72)
B73: B72
A73: (10 * Mod[A72, B72])
C73 = Div(A73, B73)
B74: B73
A74: (10 * Mod[A73, B73])
C74 = Div(A74, B74)
B75: B74
A75: (10 * Mod[A74, B74])
C75 = Div(A75, B75)
B76: B75
A76: (10 * Mod[A75, B75])
C76 = Div(A76, B76)
B77: B76
A77: (10 * Mod[A76, B76])
C77 = Div(A77, B77)
B78: B77
A78: (10 * Mod[A77, B77])
C78 = Div(A78, B78)
B79: B78
A79: (10 * Mod[A78, B78])
C79 = Div(A79, B79)
B80: B79
A80: (10 * Mod[A79, B79])
C80 = Div(A80, B80)
B81: B80
A81: (10 * Mod[A80, B80])
C81 = Div(A81, B81)
B82: B81
A82: (10 * Mod[A81, B81])
C82 = Div(A82, B82)
B83: B82
A83: (10 * Mod[A82, B82])
C83 = Div(A83, B83)
B84: B83
A84: (10 * Mod[A83, B83])
C84 = Div(A84, B84)
B85: B84
A85: (10 * Mod[A84, B84])
C85 = Div(A85, B85)
B86: B85
A86: (10 * Mod[A85, B85])
C86 = Div(A86, B86)
B87: B86
A87: (10 * Mod[A86, B86])
C87 = Div(A87, B87)
B88: B87
A88: (10 * Mod[A87, B87])
C88 = Div(A88, B88)
B89: B88
A89: (10 * Mod[A88, B88])
C89 = Div(A89, B89)
B90: B89
A90: (10 * Mod[A89, B89])
C90 = Div(A90, B90)
B91: B90
A91: (10 * Mod[A90, B90])
C91 = Div(A91, B91)
B92: B91
A92: (10 * Mod[A91, B91])
C92 = Div(A92, B92)
B93: B92
A93: (10 * Mod[A92, B92])
C93 = Div(A93, B93)
B94: B93
A94: (10 * Mod[A93, B93])
C94 = Div(A94, B94)
B95: B94
A95: (10 * Mod[A94, B94])
C95 = Div(A95, B95)
B96: B95
A96: (10 * Mod[A95, B95])
C96 = Div(A96, B96)
B97: B96
A97: (10 * Mod[A96, B96])
C97 = Div(A97, B97)
B98: B97
A98: (10 * Mod[A97, B97])
C98 = Div(A98, B98)
B99: B98
A99: (10 * Mod[A98, B98])
C99 = Div(A99, B99)
B100: B99
A100: (10 * Mod[A99, B99])
C100 = Div(A100, B100)
n = 4 (slider from 1 to 30, step 1)
lista1 = Take(C2:C100, 1, n)
lista0: {Div[num1, den1], ","}
lista2 = Join({lista0, lista1})
b: 1
A = (-3.86, 4.54)
texto6 = TableText({lista3})
texto7: "n = " + (TableText[{lista2}, "lh"])
num2 = 300
den2 = 29
casillanumerador = Textfield(num2)
casilladenominador = Textfield(den2)
compu: 0
texto10: "n=\frac{" + (LaTeX[casillanumerador]) + "}{" + (LaTeX[casilladenominador]) + "}"
compu2: 0
texto1: "\frac{" + (LaTeX[num1]) + "}{" + (LaTeX[den1]) + "}=" + (LaTeX[num1 / den1]) + ""
Textocomprobacion2 = If(num1 ≟ num2 ∧ den1 ≟ den2, "Correcto", If[num1 / den1 ≟ num2 / den2, "Puedes simplificarla", "Revisa tu fracción"])
texto2: "es un " + (Element[listadec, tipo]) + ""
Textocomprobacion1 = If(SelectedElement[listadec] ≟ Element[listadec, tipo], "Correcto,", "Revisa tu selección")