[Porter5423]

Suppose that a gas company bases its charges on consumption according to the following table:

Gas used /Rate

first 70 cubic meters - $5 minimum cost
next 100 cubic meters - 5 cents per cubic meter
next 230 cubic meters - 2.5 cents per cubic meter
above 400 cubic meters - 1.5 cents per cubic meters

Meter readings are four digit numbers that represent cubic meters. Write a program in which the meter reading for the previous month and the current month are entered and then the amount of the bill is calculated. Note:the current reading may be less than the previous one; for example, the previous reading may have been 9897, and the current one is 0103.

have to use case commands not if /then
Thanks!!

This post has been edited by Porter5423: 24 September 2008 - 02:20 PM

[RedSonja]

Goodness, there are still people learning Fortran! I thought it died long ago. Why are you learning it? Put in some personal details, I am curious...

Anyway, if you want help on this forum, you have to write some code and give it a try first. We don't do your homework, we help fix problems. So have a bash and post it and I will have a look. Maybe there are others out there who have had to do Fortran?

If you never wrote a program before, then copy an old one that works, sort of "hello world", and put in the changes you need. A confession; I have been coding for decades, and I NEVER start with an empty page.

[Porter5423]

program consumption
implicit none
real::Previous,Current,Total
real::Price

write(*,*)'insert previous reading, current reading'
read*,Previous,Current

Total= Previous-Current


select case(nint(Total))
case(:70)
Price=5

case(71:171)
Price=.025 

this is what I have so far and I really don't know what i need to do to find the price. I think i might need an equation for the price but i'm not sure.

[RedSonja]

Curses! I de-installed Fortran just yesterday to make room. Still, I will try off the top of my head...

You are on the right track.

Why case 71:171, isn't the second case 70:100? and then to get the amount to bill it's price*cubicmeters, so:

real Bill

case(71:100)
Bill=.025 * Amount

And so on and so forth. A big extra mark for putting IMPLICIT NONE, very good. You still have to handle the meter going over null; if amount <0 then add something ...

Which compiler, which Fortran dialect?

This post has been edited by RedSonja: 26 September 2008 - 02:00 AM

[TheFlipside]

Well Sonja... I must confess that on Dutch universities FORTRAN is still used as a programming language in the Engineering Studies.
The reason for this is (I guess anyway) that the particular tools like Finite element packages, CFD code etc. is all written in FORTRAN or uses FORTRAN math modules.
Even MatLab contains a lot of FORTRAN code...
I'm wondering what the future is of this language, like you said it looks likes its dead, but I encounter a lot of FORTRAN in 'state of the art' Fluid-Structure interaction code.