Proyecto

Solo disponible en BuenasTareas
  • Páginas : 2 (430 palabras )
  • Descarga(s) : 4
  • Publicado : 13 de junio de 2010
Leer documento completo
Vista previa del texto
Dim ss, s, ci, c1, csd, ca, cr, bandera, d, ad, ada As Integer
Dim p1, p2, p3, pa, psd, pr, dpa, dp, por1, por2, por3 As Single
Dim mayord, mayorci As Integer
Dim n, mayornAs String

FileOpen(1, "C:\Users\Johnder\Documents\Visual Studio 2008\calificaciones.txt", OpenMode.Input)
FileOpen(2, "C:\Users\Johnder\Documents\Visual Studio2008\aprobados.txt", OpenMode.Output)
FileOpen(3, "C:\Users\Johnder\Documents\Visual Studio 2008\sd.txt", OpenMode.Output)
FileOpen(4, "C:\Users\Johnder\Documents\Visual Studio 2008\recuperativo.txt",OpenMode.Output)
Console.WriteLine("cual es la seccion:")
ss = Console.ReadLine
Console.WriteLine("cual es el porcentaje 1:")
por1 = Console.ReadLineConsole.WriteLine("cual es el porcentaje 2:")
por2 = Console.ReadLine
Console.WriteLine("cual es el porcentaje 3:")
por3 = Console.ReadLine
c1 = 0
ca = 0cr = 0
csd = 0
ad = 0
ada = 0
bandera = 0
While Not EOF(1)
Input(1, s)
Input(1, ci)
Input(1, n)Input(1, p1)
Input(1, p2)
Input(1, p3)
d = Math.Round(((por1 / 100) * p1) + ((por2 / 100) * p2) + ((por3 / 100) * p3))
ad = ad + d
If s =ss Then
c1 = c1 + 1

If d >= 10 Then
PrintLine(2, "{0},{1},{2}", ci, n, d)
ca = ca + 1List_ca.items.add(ca)
ada = ada + d

Else
If d < 5 Then
PrintLine(3, "{0},{1},{2}", ci, n, d)
csd = csd +1

List_csd.Items.Add(csd)
Else
If (d >= 5) And (d < 10) Then
PrintLine(3, "{0},{1},{2}", ci, n,...
tracking img