SHARE
TWEET

1.2 Rectangle area

193030 Sep 22nd, 2019 84 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Rectagnle;
  2. var
  3. x1 : real;
  4. y1 : real;
  5. x2 : real;
  6. y2 : real;
  7. sum : real;
  8. begin
  9.     writeln('Enter x1: ');
  10.     readln(x1);
  11.     writeln('Enter y1: ');
  12.     readln(y1);
  13.     writeln('Enter x2: ');
  14.     readln(x2);
  15.     writeln('Enter y2: ');
  16.     readln(y2);
  17.     sum:=(x2-x1)*(y2-y1);
  18.     writeln('The sum is: ');
  19.     writeln(sum);
  20. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top