Programm zu E funktionen ableiten

[Sir Rufo]

Und hier mal schnell hingetippelt ohne Eingabe-Möglichkeit

Delphi-Quellcode:

program dp_180149;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

type
  TParameter = record
    a, b, c : Integer;
  end;

function Ableitung( AParameter : TParameter ) : TParameter;
begin
  Result.a := AParameter.a * AParameter.b;
  Result.b := AParameter.b;
  Result.c := AParameter.c;
end;

procedure OutputFunction( const AInfo : string; AParameter : TParameter );
begin
  Writeln( AInfo, ': ', Format( '%d * e^( %d * x + %d )', [AParameter.a, AParameter.b, AParameter.c] ) );
end;

procedure Calculate;
var
  LParameter : TParameter;
begin
  LParameter.a := 1;
  LParameter.b := 2;
  LParameter.c := 0;

  OutputFunction( 'Start: ', LParameter );
  LParameter := Ableitung( LParameter );
  OutputFunction( '1. Ableitung: ', LParameter );
  LParameter := Ableitung( LParameter );
  OutputFunction( '2. Ableitung: ', LParameter );
  LParameter := Ableitung( LParameter );
  OutputFunction( '3. Ableitung: ', LParameter );
end;

begin
  try
    Calculate;
  except
    on E : Exception do
      Writeln( E.ClassName, ': ', E.Message );
  end;

  ReadLn;

end.

ergibt als Ausgabe

Code:

Start: : 1 * e^( 2 * x + 0 )
1. Ableitung: : 2 * e^( 2 * x + 0 )
2. Ableitung: : 4 * e^( 2 * x + 0 )
3. Ableitung: : 8 * e^( 2 * x + 0 )