Scribd Logo
Cargar

¡Te damos la bienvenida a Scribd!

  • 13 vistas

    Pregunta 3

    Cargado por

    Jean Franco
    El documento describe un programa que crea una matriz de notas de cursos y alumnos, calcula las mayores notas por curso y los promedios por alumno.

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd

    Pregunta 3

    Cargado por

    Jean Franco
    13 vistas3 páginas
    El documento describe un programa que crea una matriz de notas de cursos y alumnos, calcula las mayores notas por curso y los promedios por alumno.

    Descripción original:

    R programacion

    Derechos de autor

    © © All Rights Reserved

    Formatos disponibles

    DOCX, PDF, TXT o lea en línea desde Scribd

    ¿Le pareció útil este documento?

    ¿Este contenido es inapropiado?

    El documento describe un programa que crea una matriz de notas de cursos y alumnos, calcula las mayores notas por curso y los promedios por alumno.

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd
    Descargar como docx, pdf o txt
    13 vistas3 páginas

    Pregunta 3

    Cargado por

    Jean Franco
    El documento describe un programa que crea una matriz de notas de cursos y alumnos, calcula las mayores notas por curso y los promedios por alumno.

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd
    Descargar como docx, pdf o txt
    Está en la página 1de 3

    cursos=c("matematicas","lenguaje","historia","geografía")

    alumnos=c("Juan","Emerson","Ana","Miguel","Danna")

    tablaNotas=matrix(0,4,5)

    rownames(tablaNotas) = cursos

    colnames(tablaNotas) = alumnos

    for(i in 1:4){

    for(j in 1:5){

    cat("Tala Notas[",cursos[i],",",alumnos[j],"]")

    tablaNotas[i,j]=as.numeric(readline(prompt = " "))

    while(tablaNotas[i,j]>20 | tablaNotas[i,j]<0){

    tablaNotas[i,j]=as.numeric(readline(prompt = "error, ingrese nota valida:"))

    matematicas=c()

    lenguaje=c()

    historia=c()

    geografía=c()

    for(i in 1:4){

    for(j in 1:5){

    if(i==1){

    matematicas[j]=tablaNotas[i,j]

    if(i==2){

    lenguaje[j]=tablaNotas[i,j]

    if(i==3){

    historia[j]=tablaNotas[i,j]

    }
    if(i==4){

    geografía[j]=tablaNotas[i,j]

    MayorNota = function(tablaNotas,alumnos,cursos){

    for(i in 1:4){

    mayor=0

    aux1=0

    for(j in 1:5){

    if(tablaNotas[i,j]>mayor){

    mayor=tablaNotas[i,j]

    aux1=j

    cat("La mayor nota en ", cursos[i], " es: ", mayor," y pertenece a ", alumnos[aux1],"\n")

    MayorPromedio = function(tablaNotas, alumnos)

    for(i in 1:5){

    s=0

    for(j in 1:4){

    s=s+tablaNotas[j,i]

    s=s/4

    cat("El promedio de ", alumnos[i], " es: ", s,"\n")

    }
    print(tablaNotas)

    MayorNota(tablaNotas,alumnos,cursos)

    MayorPromedio(tablaNotas,alumnos)

    También podría gustarte

    pFad - Phonifier reborn

    Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

    Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


    Alternative Proxies:

    Alternative Proxy

    pFad Proxy

    pFad v3 Proxy

    pFad v4 Proxy