fork download
copy 
  1. program LAB3A;
  2. uses Math;  { Додаємо модуль Math для функцій }
  3. const
  4.   K = 0.018;
  5.   L = 1;
  6. var
  7.   y, x, a, b: real;
  8.   inputStr: string;
  9.   code: integer;
  10. begin
  11.   writeln('Please enter a positive value for x:');
  12.   readln(inputStr);
  13.  
  14.   { Перетворюємо введений рядок у число, щоб уникнути помилки введення }
  15.   val(inputStr, x, code);
  16.   if code <> 0 then
  17.   begin
  18.     writeln('Error: Invalid input. Please enter a number.');
  19.     halt;
  20.   end;
  21.  
  22.   { Перевіряємо, чи x > 0, щоб уникнути помилки в log10(x) }
  23.   if x <= 0 then
  24.   begin
  25.     writeln('Error: x must be greater than 0.');
  26.     halt;
  27.   end;
  28.  
  29.   { Обчислення a }
  30.   a := (4 - Sqr(K)) / (Sqrt(0.01) + Sqrt(10)) * Tan(x);
  31.   writeln('Result is a = ', a:0:4);
  32.  
  33.   { Обчислення b }
  34.   b := Sin(L + Power(Log10(x), 3));
  35.   writeln('Result is b = ', b:0:4);
  36.  
  37.   { Обчислення y }
  38.   if Exp(2 * Ln(a)) + Exp(2 * Ln(b)) > 2 then
  39.     y := Sqrt(Abs(a + b))
  40.   else
  41.     y := a + b;
  42.  
  43.   writeln('Result is y = ', y:0:4);
  44. end.
  45.  
Success #stdin #stdout 0s 5288KB
comments (?)
stdin
copy 
2,007
stdout
copy 
Please enter a positive value for x:
Error: Invalid input. Please enter a number.
https://ideone.com/sXB03Q
language:
Pascal (fpc 3.0.4)
created:
2 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!