DEV207.1x/FirstProgram.fs at master · xjose97x/DEV207.1x · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(********************************************
*DEV207.1x                                  *
*Program Name: Fuel Consumption		        *
*Programming Language: F#                   *
*Author: José I. Escudero                   *
*E-mail: joseignacioescudero97@hotmail.com  *
*Date(DD/MM/YYYY): 18/10/2015               *
********************************************)

open System

[<EntryPoint>]
let main argv =
    Console.Write("Please enter how far you traveled: ")
    let distance = Console.ReadLine()
    let distance = float distance
    Console.Write("Please enter how much fuel you used: ")
    let fuel = Console.ReadLine()
    let fuel = float fuel
    let consumption = distance / fuel
    Console.WriteLine("Your car does a distance of " + (string consumption) + "  per single unit of fuel ")
    Console.ReadKey()
    0 // return an integer exit code