Preguntas del examen final de Java de la Universidad Normal China

n, k, max: longint;

s: string

qm, bj, lw, jj: array[1..longint 100 ];

gb, xb:array[1..100] char

Nombre: array[1..string 100];

Inicialización del proceso;

Definir variables

I, x, y, z: longint;

t: string

TT :char;

Inicio

y:= 0;

readln(n);

Para i:= 1 a n hacer

Iniciar

s:="";

Leer(TT

Y TT<>\ ' \ '

Iniciar

s:= s+TT;

Lectura (TT);

Fin;

nombres[I]:= s;

leer(qm[i], bj[I]);

leer(TT);

leer (GB[I]);

Leer(TT);

leer(XB[I]);

readln(lw[I]);

Fin

Fin;

Programa principal

Definir variables

I, x, y: entero largo;

Inicio

max:= 0;

Para i:= 1 a n hacer

Iniciar

if(QM[I]>80 ) y (lw[I]>0) luego inc(jj[i], 8000);

if(QM[I]> 85) y (bj[I]>80) entonces inc(jj[i], 4000);

si (QM[I]>90) entonces inc(jj[i], 2000);

si (QM[I] ]& gt; 85) y (xb[i]='Y ') luego inc(jj[i], 1000);

if(bj[I]& gt; 80) y (gb[ i]='Y ') luego inc(jj[i], 850);

Fin

for I:= 1 to n do if jj[I]& gt; entonces Max

Inicio

k:= I;

max:= jj [I]

Fin

Fin;

Impresión del programa;

Definir variables

I, x, y, w: longint;

Inicio

w:= 0;

writeln(nombres[k]);

writeln(jj[k]);

para i := 1 an do inc(w,jj[I]);

writeln(w);

Fin;

Inicio

init

Principal;

Imprimir;

Fin.

Utilízalo tanto como sea posible.