ys.prg

项目评估系统

use zbtx
local a(6,1)
local ap(6,6)
copy to array a fields zbq
use
for i=1 to 6
    for j=1 to 6
         if a(j,1)=0 
             ap(i,j)=0
         else    
             if a(i,1)=0
                  ap(i,j)=0
             else     
                  ap(i,j)=a(j,1)/a(i,1) 
             endi
         endi
    endf
endf
x=0
for i=1 to 6
    for j=1 to 6
        x=x+ap(i,j)
    endf
endf

for j=1 to 6
    y=0
    for i=1 to 6
        y=y+ap(i,j)
    endf    
    a(j,1)=y
endf
for i=1 to 6
    if x=0 
      a(i,1)=0
    else
      a(i,1)=a(i,1)/x 
    endi   
endf
            
                
use zbtx1
local g1(9,1)
local gp1(9,9)
copy to array g1 fields zbq
use
for i=1 to 9
    for j=1 to 9
         if g1(j,1)=0 
             gp1(i,j)=0
         else    
             if g1(i,1)=0
                  gp1(i,j)=0
             else     
                  gp1(i,j)=g1(j,1)/g1(i,1) 
             endi
         endi
    endf
endf
x=0
for i=1 to 9
    for j=1 to 9
        x=x+gp1(i,j)
    endf
endf

for j=1 to 9
    y=0
    for i=1 to 9
        y=y+gp1(i,j)
    endf    
    g1(j,1)=y
endf
for i=1 to 9
    if x=0 
      g1(i,1)=0
    else
      g1(i,1)=g1(i,1)/x 
    endi   
endf
            
            

use zbtx2
local g2(7,1)
local gp2(7,7)
copy to array g2 fields zbq
use
for i=1 to 7
    for j=1 to 7
         if g2(j,1)=0 
             gp2(i,j)=0
         else    
             if g2(i,1)=0
                  gp2(i,j)=0
             else     
                  gp2(i,j)=g2(j,1)/g2(i,1) 
             endi
         endi
    endf
endf
x=0
for i=1 to 7
    for j=1 to 7
        x=x+gp2(i,j)
    endf
endf

for j=1 to 7
    y=0
    for i=1 to 7
        y=y+gp2(i,j)
    endf    
    g2(j,1)=y
endf
for i=1 to 7
    if x=0 
      g2(i,1)=0
    else
      g2(i,1)=g2(i,1)/x 
    endi  
endf
            

use zbtx3
local g3(2,1)
local gp3(2,2)
copy to array g3 fields zbq
use
for i=1 to 2
    for j=1 to 2
         if g3(j,1)=0 
             gp3(i,j)=0
         else    
             if g3(i,1)=0
                  gp3(i,j)=0
             else     
                  gp3(i,j)=g3(j,1)/g3(i,1) 
             endi
         endi
    endf
endf
x=0
for i=1 to 2
    for j=1 to 2
        x=x+gp3(i,j)
    endf
endf

for j=1 to 2
    y=0
    for i=1 to 2
        y=y+gp3(i,j)
    endf    
    g3(j,1)=y
endf
for i=1 to 2
    if x=0 
      g3(i,1)=0
    else
      g3(i,1)=g3(i,1)/x 
    endi  
endf



            
            
close all
use zbtx4
local g4(7,1)
local gp4(7,7)
copy to array g4 fields zbq
use
for i=1 to 7
    for j=1 to 7
         if g4(j,1)=0 
             gp4(i,j)=0
         else    
             if g4(i,1)=0
                  gp4(i,j)=0
             else     
                  gp4(i,j)=g4(j,1)/g4(i,1) 
             endi
         endi
    endf
endf
x=0
for i=1 to 7
    for j=1 to 7
        x=x+gp4(i,j)
    endf
endf

for j=1 to 7
    y=0
    for i=1 to 7
        y=y+gp4(i,j)
    endf    
    g4(j,1)=y
endf
for i=1 to 7
    if x=0 
      g4(i,1)=0
    else
      g4(i,1)=g4(i,1)/x 
    endi  
endf



use zbtx5
local g5(2,1)
local gp5(2,2)
copy to array g5 fields zbq
use
for i=1 to 2
    for j=1 to 2
         if g5(j,1)=0 
             gp5(i,j)=0
         else    
             if g5(i,1)=0
                  gp5(i,j)=0
             else     
                  gp5(i,j)=g5(j,1)/g5(i,1) 
             endi
         endi
    endf
endf
x=0
for i=1 to 2
    for j=1 to 2
        x=x+gp5(i,j)
    endf
endf

for j=1 to 2
    y=0
    for i=1 to 2
        y=y+gp5(i,j)
    endf    
    g5(j,1)=y
endf
for i=1 to 2
    if x=0 
      g5(i,1)=0
    else
      g5(i,1)=g5(i,1)/x 
    endi  
endf


use zbtx6
local g6(3,1)
local gp6(3,3)
copy to array g6 fields zbq
use
for i=1 to 3
    for j=1 to 3
         if g6(j,1)=0 
             gp6(i,j)=0
         else    
             if g6(i,1)=0
                  gp6(i,j)=0
             else     
                  gp6(i,j)=g6(j,1)/g6(i,1) 
             endi
         endi
    endf
endf
x=0
for i=1 to 3
    for j=1 to 3
        x=x+gp6(i,j)
    endf
endf

for j=1 to 3
    y=0
    for i=1 to 3
        y=y+gp6(i,j)
    endf    
    g6(j,1)=y
endf
for i=1 to 3
    if x=0 
      g6(i,1)=0
    else
      g6(i,1)=g6(i,1)/x 
    endi  
endf


for i=1 to 9
    g1(i,1)=g1(i,1)*a(1,1)
endf
for i=1 to 7
    g2(i,1)=g2(i,1)*a(2,1)
endf
for i=1 to 2
    g3(i,1)=g3(i,1)*a(3,1)
endf
for i=1 to 7
    g4(i,1)=g4(i,1)*a(4,1)
endf
for i=1 to 2
    g5(i,1)=g5(i,1)*a(5,1)
endf
for i=1 to 3
    g6(i,1)=g6(i,1)*a(6,1)
endf

local o(30,1)
for i=1 to 9
    o(i,1)=g1(i,1)
endf
for i=1 to 7
    o(i+9,1)=g2(i,1)
endf
for i=1 to 2
    o(i+16,1)=g3(i,1)
endf
for i=1 to 7
    o(i+18,1)=g4(i,1)
endf
for i=1 to 2
    o(i+25,1)=g5(i,1)
endf
for i=1 to 3
    o(i+27,1)=g6(i,1)
endf
use zbzj
go top
for i=1 to 30
    repl zbq with o(i,1)
    skip
endf
use
use zjpf
count to zjs
publ d(zjs,30)
copy to array d
use

local v(4,1)
v(1,1)=10
v(2,1)=7
v(3,1)=5
v(4,1)=2
local r(30,4)
for j=1 to 30
    fa=0
    fb=0
    fc=0
    fd=0
    for i=1 to zjs
        if d(i,j)>9
           fa=fa+1
        else    
           fa=fa+d(i,j)/9
        endi       
        if d(i,j)>7
           fb=fb+2-d(i,j)/7
        else 
           fb=fb+d(i,j)/7
        endi 
        if d(i,j)>5
           fc=fc+2-d(i,j)/5
        else 
           fc=fc+d(i,j)/5
        endi 
        if d(i,j)>4
           fd=0
        else
           if d(i,j)>2    
              fd=fd+2-d(i,j)/2
           else 
              fd=fd+d(i,j)/2
           endi 
         endi  
    endf
    f=fa+fb+fc+fd
    if f=0
        r(j,1)=0
        r(j,2)=0
        r(j,3)=0
        r(j,4)=0
     else
        r(j,1)=fa/f
        r(j,2)=fb/f
        r(j,3)=fc/f
        r(j,4)=fd/f
     endi
endf
local pm(1,4)
pm=0
for i=1 to 30
    pm(1,1)=r(i,1)*o(i,1)+pm(1,1)
endf

for i=1 to 30
    pm(1,2)=r(i,2)*o(i,1)+pm(1,2)
endf

for i=1 to 30
    pm(1,3)=r(i,3)*o(i,1)+pm(1,3)
endf

for i=1 to 30
    pm(1,4)=r(i,4)*o(i,1)+pm(1,4)
endf
jg=0
for i=1 to 4
     
    jg=jg+pm(1,i)*v(i,1)
endf
do case
       case jg>7
           dj="优秀"
       case jg>5 and jg<=7
           dj="良好"
       case jg>2 and jg<=5
           dj="中"
       case jg<=2
           dj="差" 
endcase           
retu