Program Menghitung Fraction Turbo Pascal

Berikut GanBagus Share sedikit mengenai Fractional / Fraksional dalam bahasa pemograman Pascal / TPW.

  Frac

Mengambil desimal dari suatu bilangan. Frac(456.789)=0.789. (Frac=Fraction)

Contoh :

Program Hitung_Frac;

Uses WinCrt;

Begin

   Writeln(‘Frac dari 123.456 = ‘,Int(123.456):0:0); {0.456}

   Writeln(‘Frac dari -123.456 = ‘,Int(-123.456):0:0); {-0.456}

   Writeln(‘Frac dari 456.789 = ‘,Int(456.789):0:0); {0.789}

Writeln(‘Frac dari -456.789 = ‘,Int(-456.789):0:0); {-0.789}

End.

Anda sedang membaca artikel tentang Program Menghitung Fraction Turbo Pascal dan anda bisa menemukan artikel Program Menghitung Fraction Turbo Pascal ini dengan url http://brenkswap.blogspot.com/2011/11/program-menghitung-fraction-turbo.html,anda boleh menyebar luaskannya atau mengcopy paste-nya jika artikel Program Menghitung Fraction Turbo Pascal ini sangat bermanfaat bagi teman-teman anda,namun jangan lupa untuk meletakkan link Program Menghitung Fraction Turbo Pascal sebagai sumbernya.