fork download
copy 
  1. Program Lab3 (Input, Output);
  2. Const
  3.   K = 22.50;
  4.   L = 7.5;
  5.   x1 = 0.234;
  6.   x2 = 1.426;
  7.   x3 = -0.414;
  8. Var
  9.   x, a, b, y: real;
  10.   n:integer;
  11. Begin
  12.   writeln('Please enter value of X');
  13.   readln(n);
  14.     Case n of
  15.       1: x := x1;
  16.       2: x := x2;
  17.       3: x := x3;
  18.     else writeln('No number');
  19.   end;
  20.   if x < -2.84 then
  21.   begin
  22.   writeln('ERROR: the negative value in square root');
  23.   end
  24.   else
  25.   begin
  26.    a := sqr(exp(-0.5 * ln(K)) - L * sqrt(x + 2.84));
  27.   writeln('Result is a = ', a);
  28.   end;
  29.   if x<=0 then
  30.   begin
  31.   writeln('ERROR: division by zero or negalive value');
  32.   end
  33.   else
  34.   begin
  35.   b := -(ln(x) / ln(10)) * exp(x);
  36.   writeln('Result is b = ', b);
  37.   end;
  38.   if a > b then
  39.   begin
  40.   if sqr(a) + sqr(b) = 0 then
  41.   writeln('ERROR: division by zero')
  42.   else
  43.   begin
  44.     y := (4 * a + 3 * b) / (sqr(a) + sqr(b));
  45.     writeln('Result is y = ', y);
  46.   end;
  47. end
  48. else
  49. begin
  50.     y := abs(a - b);
  51.   writeln('Result is y = ', y);
  52. end;
  53. End.
Success #stdin #stdout 0s 5292KB
comments (?)
stdin
copy 
1
stdout
copy 
Please enter value of X
Result is a =  1.6741257793419280E+002
Result is b =  7.9708690755567857E-001
Result is y =  2.3977843777240236E-002
https://ideone.com/xIwkfH
1
language:
Pascal (fpc 3.0.4)
created:
11 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!