Showing posts with label quotient in two numbers in turbo pascal. Show all posts
Showing posts with label quotient in two numbers in turbo pascal. Show all posts

Wednesday, April 26, 2017

Divide Two Numbers in Turbo Pascal

Here is a sample program that will ask the user to give two numbers and then our program will compute for it's quotient. I am using a user defined function in Turbo Pascal. I hope you will find my work useful. Thank you.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.





Sample Program Output


Program Listing

Program divide_two_numbers;
Uses Crt;

Var c,d,results : real;


Function Divide(a,b : real) : real;
begin
  divide := (a/b);
end;

Begin
  Clrscr;
  Writeln;
  textcolor(White);
  Write('Divide Two Numbers in Turbo Pascal');
  Writeln;
  Writeln;
  Write('Enter First Number  : ');
  Readln(c);
  Writeln;
  Write('Enter Second Number : ');
  Readln(d);

  results := Divide(c,d);

  Writeln;
  Writeln;
  Write('The quotient of ',c:5:2, ' and ',d:5:2, ' is ' ,results:5:2, '.');
  Writeln;
  Writeln;
  Write('End of Program');
  Writeln;
  Readln;
End.