Name: Title:

 Name:
ONLINE COMPILERS
LIBRARY
MANUAL PAGES & DOCS
CONTACT

User Submitted Source Code!

Description:
kk
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"

write(*,*)"enter the limit of speed"

write(*,*)"the type of vehicle"

os=s-sl
write(*,*)"the speed that over"

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