fork download 
  1. program water_bill
  2.   implicit none
  3.   integer :: meter_0, meter_1, usage, basic_fee, total_fee
  4.   basic_fee = 1375
  5.   read(*, *) meter_0
  6.   read(*, *) meter_1
  7.   usage = meter_1 - meter_0
  8.   if (usage > 60) then
  9.      total_fee = basic_fee + 11*8 + 169.40*20 + (usage-40)*233.20
  10.   else if (usage > 40) then
  11.      total_fee = basic_fee + 11*8 + 169.40*20
  12.   else if (usage > 20) then
  13.      total_fee = basic_fee + 11*(usage-12)
  14.   else if (usage > 13) then
  15.      total_fee = basic_fee + (usage-12)*11
  16.   else
  17.      total_fee = basic_fee
  18.   end if
  19.   print *, "使用水量: ", usage
  20.   print *, "水道料金: ", INT(total_fee)
  21. end program water_bill
Success #stdin #stdout 0s 5300KB
comments (?)
stdin 
253
282
stdout 
 使用水量:           29
 水道料金:         1562
https://ideone.com/VBJKDn
meter_0 = 102
meter_1 = 118
language:
Fortran (gfortran 8.3)
created:
12 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!