Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: rulitosnoe on Apr 24th, 2012  |  syntax: None  |  size: 0.78 KB  |  hits: 13  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. PROGRAM
  2. implicit none
  3. !variables
  4. character*10 nombre, apellido
  5. integer*2 NL, aux, B, lm
  6. real*4 sueldo, comision, st, sm
  7. !inicio
  8. write(*,*)('Ingrese legajo, 0 para terminar')
  9. read(*,*)(NL)
  10. B=0
  11. do while (NL/=0)
  12. aux=NL
  13. write(*,*)('Escribir apellido')
  14. read(*,*)(apellido)
  15. write(*,*)('Escribir nombre')
  16. read(*,*)(nombre)
  17. write(*,*)('Ingrese sueldo')
  18. read(*,*)(sueldo)
  19. st=sueldo
  20. read(*,*)(NL)
  21. do while(NL==aux)
  22. write(*,*)('Ingrese comsión')
  23. read(*,*)(comision)
  24. st=st+comison  
  25. if(B==0)then
  26. sm=st
  27. am=apellido
  28. nm=nombre
  29. b=1
  30. else
  31. if(st>sm)then
  32. sm=st
  33. am=apellido
  34. nm=nombre
  35. lm=NL
  36. endif
  37. endif
  38. read(*,*)(NL)
  39. enddo
  40. enddo
  41. write(*,*)('El empleado que tiene el mayor sueldo es:'), nm, am
  42. write(*,*)('Legajo:'), lm
  43. write(*,*)('Total de sueldo y comisiones: $'), sm
  44. endprogram
create a new version of this paste RAW Paste Data