Project for Students: Create a code to check the marks obtained by a student when there is negative marking for wrong attempts.

 Here is the code :

!=================================

program negativermkv

implicit none

integer :: right, wrong ,didnotdo,totalmarks,notattemp

integer, parameter :: qnumber=25

integer, parameter :: marks_for_correct=4

integer, parameter :: marks_for_wrong=-1

write(*,'(A10, A10, A10, A13, A13)') 'right','wrong','notattemp','didnotdo','totalmarks'

do didnotdo=0,qnumber,1   ! didnotdo includes wrong+did not attemp

do wrong = 0,didnotdo,1

right = qnumber - didnotdo 

notattemp=didnotdo-wrong 

totalmarks = right*marks_for_correct + wrong*marks_for_wrong + didnotdo*0

write(*,23)right,wrong,notattemp,totalmarks

23 format(100(I3,1x))

end do

end do

end program

!=============================

How to run this code?

gfortran codefile.f90

./a.out

Regards,

Somenath Jalal

19.12.2025

11:44 PM