Localize file www.TrSek.com/zadania/funkcia.pas{ FUNKCIA.PAS Copyright (c) TrSek alias Zdeno Sekerak }
{ Vypocita funkciu y=xe^(x+1) pre 5 zadanych cisel }
{ Vstup : 5 cisel }
{ Vystup: hodnoty funkcie }
{ }
{ Datum:30.09.2001 http://www.trsek.com }
program stvorec;
uses crt;
var pole:array[1..5] of real;
i:integer;
pom:real;
begin
Clrscr;
for i:=1 to 5 do begin
Write('pole[',i,']=');
ReadLn( pole[i] );
end;
WriteLn;
WriteLn('Pre funkciu y=xe^(x+1) su nasledovne hodnoty:');
for i:=1 to 5 do begin
pom := pole[i] * exp( pole[i]+1 );
WriteLn( pom:9:2 );
end;