Tudnátok segíteni pascal programozásban?

Látom nagyon nehéz neked a feladat.

Elkezdtem: p@stebin.com/DQDkfsNN

@-t cseréld a-ra a linkben. (Így engedi belinkelni.)

Megyek vásárolni majd jelentkezem.

program exponencialis;

var i : integer;

expo : real;

function polinom(const szam, kozelites : integer ) : real;

function faktor(const szam1 : integer) : longint;

var i: integer;

begin

faktor := 1;

for i := 1 to szam1 do faktor := faktor * i;

WriteLn('A faktorialis erteke: ', faktor);

end;

function hatvany(const szam2, meddig : integer) : longint;

var i : integer;

begin

hatvany := 1;

for i:= 1 to meddig do hatvany := hatvany * szam2;

WriteLn('A hatvany erteke: ', hatvany);

end;

begin

polinom := hatvany(szam, kozelites) / faktor(kozelites);

WriteLn('A polinon erteke: ', polinom);

end;

begin

expo := 1;

for i := 1 to 10 do

begin

expo := expo + polinom(1, i);

WriteLn(expo);

end;

ReadLn;

end.

Szépítsd ki a feladat alapján :)

Off: tabaki bácsi : itt van a példa a tegnapira, az élet hozta :)