stylex = 
        Table[{N[0.1 i], 
            If[Mod[i, 10] == 0, i/10, ""], {0.01, 0}}, {i, 0, 50, 
            1}];
styley = 
        Table[{N[0.01 i], 
            If[Mod[i, 10] == 0, N[i/100], ""], {0.01, 0}}, {i, 0, 
            80, 2}];

Plot[{FresnelC[x], FresnelS[x]}, {x, 0, 
        5}, 
Frame -> 
        True, 
PlotRange -> {{0, 5}, {0, 
            0.8}}, 
GridLines -> {{0, 0.5, 1.0, 1.5, 
            2, 2.5, 3, 3.5, 4, 4.5, 5}, {0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 
            0.7, 0.8}}, 
PlotPoints -> 
        500, 
PlotStyle -> {{}, {Dashing[{0.04, 
                0.01}]}}, 
FrameTicks -> {stylex, 
          styley}
]