Точка после числа

open System
open Microsoft.FSharp.Math
 
type SolveResult =
   None
 | Linear of float
 | Quadratic of float*float
 
let solve a b c =             //определение функции
   let D = b*b-4.*a*c     //определение локального имени D
   if a=0. then
     if b=0. then None
     else Linear(-c/b)       
  else
     if D<0. then None    //проверка условия отсутствия корней
     else Quadratic(((-b+sqrt(D))/(2.*a),(-b-sqrt(D))/(2.*a)))
 
let res = solve 1.0 3.0 1.0   //ввод исходных значений
match res with
  None ->printf "Нет решений"    //вывод на экран
  | Linear(x) ->printf "Линейное уравнение, корень: %f" x
  | Quadratic(x1,x2) when x1=x2 ->printf "Квадр.уравнение,1 корень: %f" x1
  | Quadratic(x1,x2) ->printf "Квадр.уравнение,2 корня: %f %f" x1 x2
Console.ReadLine()

open System
open Microsoft.FSharp.Math
 
let  mutable E,x,n = ( 0.00005,0.1,0.)
let  mutable a=x
let  mutable s=a
 
for i=1 to 5 do
let q = (-(x*x)*(2.*n-1.))/(2.*n+1.)
if abs(a)>E then
    a<-a*q
    n<-n+1.
    s<-s+a
 
Console.WriteLine("Результат")
Console.WriteLine("Сумма членов s:")
Console.WriteLine(s)
Console.WriteLine("Членов ряда n:")
Console.WriteLine(n)
Console.ReadLine()

open System
open Microsoft.FSharp.Math
 
type SolveResult =
   None
 | Linear of float
 | Quadratic of float*float
 
let solve a b c =             //определение функции
   let D = b*b-4.*a*c     //определение локального имени D
   if a=0. then
     if b=0. then None
     else Linear(-c/b)       
  else
     if D<0. then None    //проверка условия отсутствия корней
     else Quadratic(((-b+sqrt(D))/(2.*a),(-b-sqrt(D))/(2.*a)))
 
let res = solve 1.0 3.0 1.0   //ввод исходных значений
match res with
  None ->printf "Нет решений"    //вывод на экран
  | Linear(x) ->printf "Линейное уравнение, корень: %f" x
  | Quadratic(x1,x2) when x1=x2 ->printf "Квадр.уравнение,1 корень: %f" x1
  | Quadratic(x1,x2) ->printf "Квадр.уравнение,2 корня: %f %f" x1 x2
Console.ReadLine()