Guest User

Untitled

a guest
Oct 27th, 2015
135
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. WriteLn (' ');
  2. mediafinal := (((((port10 + port11 + port12)/3 *0.6 + (exampt/10 *0.4)) + (((mat10 + mat11 + mat12)/3 *0.6 + (exammat/10 *0.4) + (((opc110 + opc111)/2 *0.6 + examop1*0.4) + ((((opc210 + opc211)/2*0.6) + examop2*0.4)) + ((filo10 + filo11)/2) + ((le10 + le11)/2) + opc112 + opc212) / 8 )
  3. If respostaef = 's' Then
  4. Begin
  5. mediaafinal := (((((port10 + port11 + port12)/3)* 0.6) + ((exampt/10)*0.4)) + ((((mat10 + mat11 + mat12)/3)* 0.6) + ((exammat/10)*0.4)) + ((((opc110 + opc111)/2)* 0.6) + (examop1*0.4)) + ((((opc210 + opc211)/2)* 0.6) + )examop2*0.4() + ((filo10 + filo11)/2) + ((le10 + le11)/2) + (opc112) + (opc212) + ((ef10 + ef11 + ef12)/3) ) /9;
  6. End;
RAW Paste Data