Scribd
Upload
12 views13 pages

Notas y Cálculos Educativos

The document contains a program that calculates final averages for subjects like Mathematics and Language, checks for passing or failing grades, and allows for input of exam scores. It also includes a section for calculating the hypotenuse of a right triangle and generating multiplication tables. Additionally, there is a part that translates letters into Morse code.

Uploaded by

pinargotemyckell05
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
12 views13 pages

Notas y Cálculos Educativos

The document contains a program that calculates final averages for subjects like Mathematics and Language, checks for passing or failing grades, and allows for input of exam scores. It also includes a section for calculating the hypotenuse of a right triangle and generating multiplication tables. Additionally, there is a part that translates letters into Morse code.

Uploaded by

pinargotemyckell05
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd

INICIO: TextWindow.

WriteLine("PROMEDIO
FINAL")
[Link]("NOTAS POR
MATERIAS") promate=
(tri1mate+tri2mate+tri3mate+exmate
[Link]("MATEMÁTI
)/4
CAS")
[Link]("La Nota de
[Link]("1er
Matemáticas 1er trimestre es:"+
Trimestre")
promate)
tri1mate= [Link]()
If promate >=7 And promate <=10
[Link]("La Nota de Then
Matemáticas 1er trimestre es:"+
[Link]("Haz
tri1mate)
Aprobado la Materia")
[Link]("2do
EndIf
Trimestre")
If promate >=6 And promate <=6.99
tri2mate=
Then
[Link]()

[Link]("La Nota de
[Link]("Supletorio")
Matemáticas 2do trimestre es:"+
tri2mate) EndIf

[Link]("3er If promate >=3 And promate <=5.99


Trimestre") Then

tri3mate= [Link]("Quedado
[Link]() de Año")

[Link]("La Nota de EndIf


Matemáticas 3er trimestre es:"+
If promate >=0 And promate <=2.99
tri3mate)
Then
[Link]("NOTA DE
[Link]("Invalido")
EXAMEN")
Goto INICIO
exmate= [Link]()
EndIf
[Link]("La Nota de
Matemáticas 1er trimestre es:"+ INICIO1:
exmate)
[Link]("LENGUAJE"
)
[Link]("1er prolen=
Trimestre") (tri1len+tri2len+tri3len+exlen)/4

tri1len= [Link]() [Link]("La Nota de


Lenguaje 1er trimestre es:"+ prolen)
[Link]("La Nota de
Lenguaje 1er trimestre es:"+ tri1len) If prolen >=7 And prolen <=10 Then

[Link]("2do [Link]("Haz
Trimestre") Aprobado la Materia")

tri2len= [Link]() EndIf

[Link]("La Nota de If prolen >=6 And prolen <=6.99 Then


Lenguaje 2do trimestre es:"+ tri2len)

[Link]("3er [Link]("Supletorio")
Trimestre")
EndIf
tri3len= [Link]()
If prolen >=3 And prolen <=5.99
[Link]("La Nota de Then
Lenguaje 3er trimestre es:"+ tri3len)
[Link]("Quedado
[Link]("NOTA DE de Año")
EXAMEN")
EndIf
exlen=[Link]()
If prolen >=0 And prolen <=2.99
[Link]("La Nota de Then
Lenguaje 1er trimestre es:"+ exlen)
[Link]("Invalido")
[Link]("PROMEDIO
Goto INICIO1
FINAL")
EndIf
[Link]("Hipotenusa de un Triángulo Rectángulo")

[Link]("valor de a:")

a= [Link]()

[Link]("El valo de a es:"+a)

[Link]("valor de b:")

b= [Link]()

[Link]("El valo de b es:"+b)

c2= (a*a)+(b*b)

c= [Link](c2)

[Link](" La hipotenusa del triángulo es:"+c)


INICIO: [Link]("La Nota de
Matemáticas 1er trimestre es:"+
[Link]("NOTAS POR
exmate)
MATERIAS")
[Link]("PROMEDIO
[Link]("MATEMÁTI
FINAL")
CAS")
promate=
[Link]("1er
(tri1mate+tri2mate+tri3mate+exmate
Trimestre")
)/4
tri1mate= [Link]()
[Link]("La Nota de
[Link]("La Nota de Matemáticas 1er trimestre es:"+
Matemáticas 1er trimestre es:"+ promate)
tri1mate)
If promate >=7 And promate <=10
[Link]("2do Then
Trimestre")
[Link]("Haz
tri2mate= Aprobado la Materia")
[Link]()
EndIf
[Link]("La Nota de
If promate >=6 And promate <=6.99
Matemáticas 2do trimestre es:"+
Then
tri2mate)

[Link]("3er
[Link]("Reprobado")
Trimestre")
EndIf
tri3mate=
[Link]() If promate >=2 And promate <=5.99
Then
[Link]("La Nota de
Matemáticas 3er trimestre es:"+ [Link]("Demasiado
tri3mate) Bajo")

[Link]("NOTA DE EndIf
EXAMEN")
If promate >=0 And promate <=2.99
exmate= [Link]() Then
[Link]("Invalido") [Link]("PROMEDIO
FINAL")
Goto INICIO
prolen=
EndIf
(tri1len+tri2len+tri3len+exlen)/4
INICIO1:
[Link]("La Nota de
[Link]("LENGUAJE" Lenguaje 1er trimestre es:"+ prolen)
)
If prolen >=7 And prolen <=10 Then
[Link]("1er
[Link]("Haz
Trimestre")
Aprobado la Materia")
tri1len= [Link]()
EndIf
[Link]("La Nota de
If prolen >=6 And prolen <=6.99 Then
Lenguaje 1er trimestre es:"+ tri1len)

[Link]("2do
[Link]("Reprobado")
Trimestre")
EndIf
tri2len= [Link]()
If prolen >=3 And prolen <=5.99
[Link]("La Nota de
Then
Lenguaje 2do trimestre es:"+ tri2len)
[Link]("Demasiado
[Link]("3er
Bajo")
Trimestre")
EndIf
tri3len= [Link]()
If prolen >=0 And prolen <=2.99
[Link]("La Nota de
Then
Lenguaje 3er trimestre es:"+ tri3len)
[Link]("Invalido")
[Link]("NOTA DE
EXAMEN") Goto INICIO1

exlen=[Link]() EndIf

[Link]("La Nota de
Lenguaje 1er trimestre es:"+ exlen)
[Link]("Escribe tu nombre en código morse")

M=[Link]()

[Link](M+ "=--")

E=[Link]()

[Link](E+ "=.")

L=[Link]()

[Link](L+ "=.-..")

A=[Link]()

[Link](A+ "=.-")

N=[Link]()

[Link](N+ "=-.")

Y=[Link]()

[Link](Y+ "=-.--")

A=[Link]()

[Link](A+ "=.-")

R=[Link]()

[Link](R+ "=.-.")

A=[Link]()

[Link](A+ "=.-")

N=[Link]()

[Link](N+ "=-.")

A=[Link]()

[Link](A+ "=.-")
Inicio2: [Link]("2*12:"+tabla212)

[Link]("ELABORAR tabla213=2*[Link]()
TABLAS DE MULTIPLICAR")
If tabla213 >=12 Then
[Link]("Tabla del 2:")
[Link]("Número no
tabla2=2*[Link]() Válido")

[Link]("2*1:"+tabla2) Goto Inicio2

tabla22=2*[Link]() EndIf

[Link]("2*2:"+tabla22)

tabla23=2*[Link]() Inicio3:

[Link]("2*3:"+tabla23) [Link]("Tabla del 3:")

tabla24=2*[Link]() tabla3=3*[Link]()

[Link]("2*4:"+tabla24) [Link]("3*1:"+tabla3)

tabla25=2*[Link]() tabla32=3*[Link]()

[Link]("2*5:"+tabla25) [Link]("3*2:"+tabla32)

tabla26=2*[Link]() tabla33=3*[Link]()

[Link]("2*6:"+tabla26) [Link]("3*3:"+tabla33)

tabla27=2*[Link]() tabla34=3*[Link]()

[Link]("2*7:"+tabla27) [Link]("3*4:"+tabla34)

tabla28=2*[Link]() tabla35=3*[Link]()

[Link]("2*8:"+tabla28) [Link]("3*5:"+tabla35)

tabla29=2*[Link]() tabla36=3*[Link]()

[Link]("2*9:"+tabla29) [Link]("3*6:"+tabla36)

tabla210=2*[Link]() tabla37=3*[Link]()

[Link]("2*10:"+tabla210) [Link]("3*7:"+tabla37)

tabla211=2*[Link]() tabla38=3*[Link]()

[Link]("2*11:"+tabla211) [Link]("3*8:"+tabla38)

tabla212=2*[Link]() tabla39=3*[Link]()
[Link]("3*9:"+tabla39) [Link]("4*9:"+tabla49)

tabla310=3*[Link]() tabla410=4*[Link]()

[Link]("3*10:"+tabla310) [Link]("4*10:"+tabla410)

tabla311=3*[Link]() tabla411=4*[Link]()

[Link]("3*11:"+tabla311) [Link]("4*11:"+tabla411)

tabla312=3*[Link]() tabla412=4*[Link]()

[Link]("3*12:"+tabla312) [Link]("4*12:"+tabla412)

tabla313=3*[Link]() tabla413=4*[Link]()

If tabla313 >=12 Then If tabla413 >=12 Then

[Link]("Número no [Link]("Número no
Válido") Válido")

Goto Inicio3 Goto Inicio4

EndIf EndIf

Inicio4: Inicio5:

[Link]("Tabla del 4:") [Link]("Tabla del 5:")

tabla4=4*[Link]() tabla5=5*[Link]()

[Link]("4*1:"+tabla4) [Link]("5*1:"+tabla5)

tabla42=4*[Link]() tabla52=5*[Link]()

[Link]("4*2:"+tabla42) [Link]("5*2:"+tabla52)

tabla43=4*[Link]() tabla53=5*[Link]()

[Link]("4*3:"+tabla43) [Link]("5*3:"+tabla53)

tabla44=4*[Link]() tabla54=5*[Link]()

[Link]("4*4:"+tabla44) [Link]("5*4:"+tabla54)

tabla45=4*[Link]() tabla55=5*[Link]()

[Link]("4*5:"+tabla45) [Link]("5*5:"+tabla55)

tabla46=4*[Link]() tabla56=5*[Link]()

[Link]("4*6:"+tabla46) [Link]("5*6:"+tabla56)

tabla47=4*[Link]() tabla57=5*[Link]()

[Link]("4*7:"+tabla47) [Link]("5*7:"+tabla57)

tabla48=4*[Link]() tabla58=5*[Link]()

[Link]("4*8:"+tabla48) [Link]("5*8:"+tabla58)

tabla49=4*[Link]() tabla59=5*[Link]()
[Link]("5*9:"+tabla59) [Link]("6*9:"+tabla69)

tabla510=5*[Link]() tabla610=6*[Link]()

[Link]("5*10:"+tabla510) [Link]("6*10:"+tabla610)

tabla511=5*[Link]() tabla611=6*[Link]()

[Link]("5*11:"+tabla511) [Link]("6*11:"+tabla611)

tabla512=5*[Link]() tabla612=6*[Link]()

[Link]("5*12:"+tabla512) [Link]("6*12:"+tabla612)

tabla513=5*[Link]() tabla613=6*[Link]()

If tabla513 >=12 Then If tabla613 >=12 Then

[Link]("Número no [Link]("Número no
Válido") Válido")

Goto Inicio5 Goto Inicio6

EndIf EndIf

Inicio6: Inicio7:

[Link]("Tabla del 6:") [Link]("Tabla del 7:")

tabla6=6*[Link]() tabla7=7*[Link]()

[Link]("6*1:"+tabla6) [Link]("7*1:"+tabla7)

tabla62=6*[Link]() tabla72=7*[Link]()

[Link]("6*2:"+tabla62) [Link]("7*2:"+tabla72)

tabla63=6*[Link]() tabla73=7*[Link]()

[Link]("6*3:"+tabla63) [Link]("7*3:"+tabla73)

tabla64=6*[Link]() tabla74=7*[Link]()

[Link]("6*4:"+tabla64) [Link]("7*4:"+tabla74)

tabla65=6*[Link]() tabla75=7*[Link]()

[Link]("6*5:"+tabla65) [Link]("7*5:"+tabla75)

tabla66=6*[Link]() tabla76=7*[Link]()

[Link]("6*6:"+tabla66) [Link]("7*6:"+tabla76)

tabla67=6*[Link]() tabla77=7*[Link]()

[Link]("6*7:"+tabla67) [Link]("7*7:"+tabla77)

tabla68=6*[Link]() tabla78=7*[Link]()

[Link]("6*8:"+tabla68) [Link]("7*8:"+tabla78)

tabla69=6*[Link]() tabla79=7*[Link]()
[Link]("7*9:"+tabla79) [Link]("8*9:"+tabla89)

tabla710=7*[Link]() tabla810=8*[Link]()

[Link]("7*10:"+tabla710) [Link]("8*10:"+tabla810)

tabla711=7*[Link]() tabla811=8*[Link]()

[Link]("7*11:"+tabla711) [Link]("8*11:"+tabla811)

tabla712=7*[Link]() tabla812=8*[Link]()

[Link]("7*12:"+tabla712) [Link]("8*12:"+tabla812)

tabla713=7*[Link]() tabla813=8*[Link]()

If tabla713 >=12 Then If tabla813 >=12 Then

[Link]("Número no [Link]("Número no
Válido") Válido")

Goto Inicio7 Goto Inicio8

EndIf EndIf

Inicio8: Inicio9:

[Link]("Tabla del 8:") [Link]("Tabla del 9:")

tabla8=8*[Link]() tabla9=9*[Link]()

[Link]("8*1:"+tabla8) [Link]("7*1:"+tabla9)

tabla82=8*[Link]() tabla92=9*[Link]()

[Link]("8*2:"+tabla82) [Link]("7*2:"+tabla92)

tabla83=8*[Link]() tabla93=9*[Link]()

[Link]("8*3:"+tabla83) [Link]("7*3:"+tabla93)

tabla84=8*[Link]() tabla94=9*[Link]()

[Link]("8*4:"+tabla84) [Link]("7*4:"+tabla94)

tabla85=8*[Link]() tabla95=9*[Link]()

[Link]("8*5:"+tabla85) [Link]("7*5:"+tabla95)

tabla86=8*[Link]() tabla96=9*[Link]()

[Link]("8*6:"+tabla86) [Link]("7*6:"+tabla96)

tabla87=8*[Link]() tabla97=9*[Link]()

[Link]("8*7:"+tabla87) [Link]("7*7:"+tabla97)

tabla88=8*[Link]() tabla98=9*[Link]()

[Link]("8*8:"+tabla88) [Link]("7*8:"+tabla98)

tabla89=8*[Link]() tabla99=9*[Link]()
[Link]("7*9:"+tabla99) [Link]("10*9:"+tabla109)

tabla910=9*[Link]() tabla1010=10*[Link]()

[Link]("7*10:"+tabla910) [Link]("10*10:"+tabla101
0)
tabla911=9*[Link]()
tabla1011=10*[Link]()
[Link]("7*11:"+tabla911)
[Link]("10*11:"+tabla101
tabla912=9*[Link]()
1)
[Link]("7*12:"+tabla912)
tabla1012=10*[Link]()
tabla913=9*[Link]()
[Link]("10*12:"+tabla101
If tabla913 >=12 Then 2)

[Link]("Número no tabla1013=10*[Link]()
Válido")
If tabla1013 >=12 Then
Goto Inicio9
[Link]("Número no
EndIf Válido")

Goto Inicio10

Inicio10: EndIf

[Link]("Tabla del 10:")

tabla10=10*[Link]() Inicio11:

[Link]("10*1:"+tabla10) [Link]("Tabla del 11:")

tabla102=10*[Link]() tabla11=11*[Link]()

[Link]("10*2:"+tabla102) [Link]("11*1:"+tabla10)

tabla103=10*[Link]() tabla112=11*[Link]()

[Link]("10*3:"+tabla103) [Link]("11*2:"+tabla112)

tabla104=10*[Link]() tabla113=11*[Link]()

[Link]("10*4:"+tabla104) [Link]("11*3:"+tabla113)

tabla105=10*[Link]() tabla114=11*[Link]()

[Link]("10*5:"+tabla105) [Link]("11*4:"+tabla114)

tabla106=10*[Link]() tabla115=11*[Link]()

[Link]("10*6:"+tabla7106) [Link]("11*5:"+tabla115)

tabla107=10*[Link]() tabla116=11*[Link]()

[Link]("10*7:"+tabla107) [Link]("11*6:"+tabla116)

tabla108=10*[Link]() tabla117=11*[Link]()

[Link]("10*8:"+tabla108) [Link]("11*7:"+tabla117)

tabla109=10*[Link]() tabla118=11*[Link]()
[Link]("11*8:"+tabla118) tabla124=12*[Link]()

tabla119=11*[Link]() [Link]("12*4:"+tabla124)

[Link]("11*9:"+tabla119) tabla125=12*[Link]()

tabla1110=11*[Link]() [Link]("12*5:"+tabla125)

[Link]("11*10:"+tabla111 tabla126=12*[Link]()
0)
[Link]("12*6:"+tabla126)
tabla1111=11*[Link]()
tabla127=12*[Link]()
[Link]("11*11:"+tabla111
[Link]("12*7:"+tabla127)
1)
tabla128=12*[Link]()
tabla1112=11*[Link]()
[Link]("12*8:"+tabla128)
[Link]("11*12:"+tabla111
2) tabla129=12*[Link]()
tabla1113=11*[Link]() [Link]("12*9:"+tabla129)
If tabla1113 >=12 Then tabla1210=12*[Link]()
[Link]("Número no [Link]("12*10:"+tabla121
Válido") 0)
Goto Inicio11 tabla1211=12*[Link]()
EndIf [Link]("12*11:"+tabla121
1)

tabla1212=12*[Link]()
Inicio12:
[Link]("12*12:"+tabla121
[Link]("Tabla del 12:")
2)
tabla12=12*[Link]()
tabla1213=12*[Link]()
[Link]("12*1:"+tabla12)
If tabla1213 >=12 Then
tabla122=12*[Link]()
[Link]("Número no
[Link]("12*2:"+tabla122) Válido")

tabla123=12*[Link]() Goto Inicio11

[Link]("12*3:"+tabla123) EndIf

You might also like