jueves, 16 de agosto de 2012

lunes, 13 de agosto de 2012

CODIGO PARA BASE DE DATOS 10 ALUMNOS ¡completo!


Proceso sin_titulo
Dimension promedio(10)
Dimension n(10,10)
Dimension nom(10)

Para i<-1 Hasta 10 Con Paso 1 Hacer
escribir "ingrese el nombre del primer alumno"
leer nom(i)
pt<-0
Para j<-1 Hasta 3 Con Paso 1 Hacer
Escribir "ingrese la nota N# ",j,"   del alumno : " ,i
leer n(i,j)
pt<-pt+n(i,j)
FinPara
promedio(i)<-pt/3
FinPara
Escribir "     nota 1","  ","nota 2","  ","nota 3"
para m<-1 hasta 5 Con Paso 1 Hacer
Escribir "cod:",m,"  ",n(m,1),"        ",n(m,2),"        ",n(m,3) 
FinPara
x<-1
Mientras x<=1 Hacer
Escribir "escribir 1 si desea continuar y 2 si desea terminar";
leer x
Si x=1 Entonces
Escribir "si sabe el nombre escriba 1 si sabe el codigo escriba 2"
leer dato
Si dato=1 Entonces
Escribir "nombre del alumno"
leer nomb
Para i<-1 Hasta 10 Con Paso 1 Hacer
Si nom(i)=nomb Entonces
Escribir  "codigo ",i
Escribir "NOTA 1:",n(i,1)
Escribir "NOTA 2:",n(i,2)
Escribir "NOTA 3:",n(i,3)
a <- promedio(i)
r <- REDON(a*100)/100;
Escribir "PROMEDIO::::", r
Sino
FinSi
FinPara
Sino
Si dato=2 Entonces
Escribir "codigo del alumno"
leer cod
Escribir  nom(cod)
Escribir "NOTA 1:",n(cod,1)
Escribir "NOTA 2:",n(cod,2)
Escribir "NOTA 3:",n(cod,3)
a <- promedio(cod)
r <- REDON(a*100)/100;
Escribir "PROMEDIO::::", r
Sino

FinSi
FinSi
Sino
FinSi
FinMientras
FinProceso

base de datos profe 13 ultimooooo


Proceso sin_titulo

Dimension promedio(10)
Dimension n(10,10)
Para i<-1 Hasta 10 Con Paso 1 Hacer
pt<-0
Para j<-1 Hasta 3 Con Paso 1 Hacer
n(i,j)<-azar(9)
//Escribir "nota_",j,"_del alumno_",i
//Escribir n(i,j)
pt<-pt+n(i,j)
FinPara
promedio(i)<-pt/3
FinPara
Escribir "nota 1","  ","nota 2","  ","nota 3"
para m<-1 hasta 10 Con Paso 1 Hacer
Escribir n(m,1),"        ",n(m,2),"        ",n(m,3) 
FinPara
x<-1
Mientras x<=1 Hacer
Escribir "escribir 1 si desea continuar y 2 si desea terminar";
leer x
Si x=1 Entonces
Escribir "nota del alumno con codigo"
leer nota
Escribir "NOTA 1:",n(nota,1)
Escribir "NOTA 2:",n(nota,2)
Escribir "NOTA 3:",n(nota,3)
a <- promedio(nota)
r <- REDON(a*100)/100;
Escribir "PROMEDIO::::", r
Sino
FinSi
FinMientras
FinProceso

domingo, 12 de agosto de 2012


ALGORITMO MULTIPLICACION DE MATRIZ NxN
Continuando les presento el algoritmo de multiplicación de matrices nxn en condigo c++
-------------------------------
#include <cstdlib>
#include <iostream>
using namespace std;
int main(int argc, char *argv[])
{int a[100][100],b[100][100],mul[100][100];
    int n,i,j,t,c;cin>>n;
cout<<"introducir matriz a";cout<<"la matriz cuadra es de ";
cout<<n,"\t";cout<<"x";cout<<n,"\t elementos";cout<<"\n";
    for(i=0;i<n;i++){for(j=0;j<n;j++){
     cout<<"ingrese el valor de la matriz ";
     cout<<i+1;cout<<"-";cout<<j+1;cout<<"\t";
      a[i][j] = rand() % 11; }}
cout<<"\n";cout<<"introducir matriz b";cout<<"\n";
    for(i=0;i<n;i++){for(j=0;j<n;j++){
     cout<<"ingrese el valor de la matriz ";cout<<i+1;
     cout<<"-";cout<<j+1;cout<<"\t";
     b[i][j] = rand() % 11; }}
     for(i=0;i<n;i++){for(j=0;j<n;j++){
     cout<<a[i][j];cout<<"\t";}cout<<"\n";}
cout<<"\n";cout<<"\n";cout<<"X";cout<<"\n";cout<<"\n";
    for(i=0;i<n;i++){for(j=0;j<n;j++)
     { cout<<b[i][j]; cout<<"\t";}cout<<"\n";}
     for(i=0;i<n;i++){for(j=0;j<n;j++){for(c=0;c<n;c++)
     {mul[i][j]=(mul[i][j] +(a[i][c]*b[c][j]));}}}
    cout<<"\n";cout<<"=";cout<<"\n";cout<<"\n";
        for(i=0;i<n;i++){ for(j=0;j<n;j++){
     cout<<mul[i][j];cout<<"\t";}cout<<"\n";}
    cout<<"\n";
    system("PAUSE");
    return EXIT_SUCCESS;
}
--------------------------------------

intro


Seguidores

Vistas de página en total