MOJAB 24

برنامه و الگوریتم محاسبه عبارت حسابی n=ex+tgx+1(lgy+cosxy+3x) را در زبان پاسکال تهیه کنید. داده های ورودی با درخواست برنامه از کیبورد وارد می شوند و شرط x>0, y>0 را بررسی می کنند. مقادیر داده های ورودی و نتیجه محاسبات به همراه نام متغیرها در دیسپلی و فایل متنی چاپ می شوند.

program Calculator;

var
  x, y, n, ex, tgx, lgy, cosxy: real;

begin
  // Input
  writeln('Enter the value of x:');
  readln(x);
  writeln('Enter the value of y:');
  readln(y);
  
  // Check conditions
  if (x > 0) and (y > 0) then
  begin
    // Calculate expressions
    ex := exp(x);
    tgx := tan(x);
    lgy := ln(y);
    cosxy := cos(x*y);
    
    // Calculate final expression
    n := ex + tgx + 1 + (lgy + cosxy + 3*x);
    
    // Output
    writeln('Value of ex: ', ex);
    writeln('Value of tgx: ', tgx);
    writeln('Value of lgy: ', lgy);
    writeln('Value of cosxy: ', cosxy);
    writeln('Result of the expression n: ', n);
    
    // Write results to a text file
    assign(output, 'results.txt');
    rewrite(output);
    writeln(output, 'Value of ex: ', ex);
    writeln(output, 'Value of tgx: ', tgx);
    writeln(output, 'Value of lgy: ', lgy);
    writeln(output, 'Value of cosxy: ', cosxy);
    writeln(output, 'Result of the expression n: ', n);
    close(output);
  end
  else
  begin
    writeln('Invalid input! x and y must be greater than 0.');
  end;
  
end.

این برنامه ابتدا مقادیر x و y را از کاربر دریافت می کند و سپس شرط x>0 و y>0 را بررسی می کند. در صورت صحیح بودن شرط، مقادیر عبارات ex، tgx، lgy و cosxy محاسبه شده و سپس عبارت n محاسبه و نتیجه به همراه مقادیر محاسبات چاپ می شود. همچنین نتایج در یک فایل متنی به نام results.txt ذخیره می شوند. در صورت نادرست بودن شرط، پیام مناسب چاپ می شود.