progx

Hello,
     please, asap, provide me with any possible ideas, hints or ,in detail,solutions to the following program:-

* Write a pascal program to input two real numbers and give the user the choice to adding, subtracting, multiplying or dividing these numbers. Perform the appropriate calculation and display the result. Your program should trap any attempt to divide by zero.

We have covered the For,repeat,While,and case statements, and arrays.      
hmalkuz1Asked:
Who is Participating?
 
chumpConnect With a Mentor Commented:
program Calc;

var real1, real2 : real;
    choice       : string;

begin

  write("Number 1: ");
  readln(real1);
  write("Number 2: ");
  readln(real2);

  write("Choice: ");
  readln(choice);

  write("Result : ");
 
  case choice[1] of
   '+' : write(real1 + real2);
   '-' : write(real1 - real2);
   '*' : write(real1 * real2);
   '/' : if real2 = 0 then write("<divide by zero>")
                      else write(real1 / real2);
  end;
 
  writeln;

end.

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.