Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  k
Language: FORTRAN
Code:
     program over speed
     implicit none

     real::s     
     real::sl
     real::os
     character:: t, lv, mrt, chv  !type of vehicle

     write(*,*)"enter the speed of driving"     
     read(*,*) s
     
     write(*,*)"enter the limit of speed"
     read(*,*) sl

     write(*,*)"the type of vehicle"
     read(*,*) t
     
     os=s-sl
     if (os<=0) then
        write(*,*)"not over speed"
     end if
     
     if (t==lv .and. os>45) then      
       write(*,*)"the demerit points are 6 and the fine is $2154."
     else if (t==lv .and. os>30) then
       write(*,*)"the demerit points are 5 and the fine is $799."
     else if (t==lv .and. os>20) then
       write(*,*)"the demerit points are 4 and the fine is $417."
      else if (t==lv .and. os>10) then
       write(*,*)"the demerit points are 4 and the fine is $243."
       else if (t==lv .and. os<=10) then
       write(*,*)"the demerit points are 4 and the fine is $105."
     end if

     if (t==mrt .and. os>45) then      
       write(*,*)"the demerit points are 6 and the fine is $2154."
     else if (t==mrt .and. os>30) then
       write(*,*)"the demerit points are 5 and the fine is $799."
     else if (t==mrt .and. os>20) then
       write(*,*)"the demerit points are 4 and the fine is $521."
      else if (t==mrt .and. os>10) then
       write(*,*)"the demerit points are 4 and the fine is $417."
       else if (t==mrt .and. os<=10) then
       write(*,*)"the demerit points are 4 and the fine is $313."
     end if

      if (t==chv .and. os>45) then      
       write(*,*)"the demerit points are 6 and the fine is $3267."
     else if (t==chv .and. os>30) then
       write(*,*)"the demerit points are 5 and the fine is $1251."
     else if (t==chv .and. os>20) then
       write(*,*)"the demerit points are 4 and the fine is $521."
      else if (t==chv .and. os>10) then
       write(*,*)"the demerit points are 4 and the fine is $417."
       else if (t==chv .and. os<=10) then
       write(*,*)"the demerit points are 4 and the fine is $313."
     end if

     end program over speed
          
          
          
          
Comments: