CHAT.MD

Код: Выделить всё

program alexb;

uses SysUtils;

var Xone, Xtwo, Xdelta : Extended;

procedure GetXoneXtwoXdelta;
begin
  Write('Enter the value of Xone    :   ');
  ReadLn(Xone);
  Write('Enter the value of Xtwo    :   ');
  ReadLn(Xtwo);
  Write('Enter the value of Xdelta  :   ');
  ReadLn(Xdelta);
end;

function YequalFofX(X : Extended) : Extended;
begin
  if X >= 0 then Result := Sin(X)
  else  Result := Cos(X);
end;

procedure MakeIteration;
var X : Extended;
begin
  X = Xone;
  while X <= Xtwo do
  begin
    WriteLn('if X = ', X, ' then Y = ', YequalFofX(X));
    X = X + Xdelta;
  end;
end;

begin
  GetXoneXtwoXdelta;
  MakeIteration;
  ReadLn;
end.