Localize file www.TrSek.com/zadania/otoc.pas{ OTOC.PAS Copyright (c) TrSek alias Zdeno Sekerak }
{ Otoci cislo naopak }
{ Vstup : 5 cisel x-tej zlozky funkcie }
{ Vystup: 5 cisel funkcie y=e^(x+1) }
{ }
{ Datum:10.04.2000 http://www.trsek.com }
program Otoc_cislo;
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;