Exponenciální funkce – Pascal – Fórum – Programujte.com

Dobrý den,

dostal sem ve škole úkol na expo. fce a nevím si s tím vůbec rady... Našel by se někdo kdo by poradil? (pomocí pascalu)

Napiš funkci pro výpočet hodnoty exponencionální funkce y=e^x +2. Použijte ji v programu, který opakovaně pro hodnotu x zadanou z klávesnice vypíše na obrazovku vedle sebe hodnoty x a y. Výpočet skončí zadáním hodnoty x= -100

#1 Zdenco
Třeba takto:

var x,y: Real;

function Expon(x: Real): Real;
begin
  Result := exp(x)+2;
end;

begin
  WriteLn(' --------- Exponencialni funkce --------');
  WriteLn(' Zadavej x, pro x=-100 se program ukonci');
  WriteLn;
  x := 0;
  while x<>-100 do
  begin
    Write(' Zadej x: ');
    ReadLn(x);
    y := Expon(x);
    WriteLn(' x=',Format('%0.12g',[x]),', y=',Format('%0.12g',[y]));
    WriteLn;
  end;
end.

#2 Honzc
Aaaa moc díky, takhle mě to vůbec nenapadlo:))