Umiestnenie súboru www.TrSek.com/zadania/func.pas{ FUNC.PAS Copyright (c) TrSek alias Zdeno Sekerak }
{ Zostavte program pre vypocet a tlac hodnot funkcie: }
{ y = (1.5x + 13.5/x)/(2x-1) }
{ ak x je z intervalu <0,5> s krokom K=0,5. }
{ }
{ Datum:04.02.2004 http://www.trsek.com }
program funkcia;
uses crt;
var x:real;
y:real;
krok:real;
begin
ClrScr;
WriteLn('Program vypocita funkciu y = (1.5x + 13.5/x)/(2x-1)');
WriteLn('ak x je z intervalu <0,5> s krokom K=0,5');
WriteLn;
WriteLn('Vysledna tabulka je');
WriteLn;
WriteLn(' X | Y |');
WriteLn('------------------');
{ nacita az pokial nezada y=4 }
x := 0;
krok := 0.5;
repeat
if((x = 0) or (x = 0.5))Then
begin
WriteLn( x:8:3, '| neda sa|' );
end
else
begin
y := (1.5*x + 13.5/x)/(2*x-1);
WriteLn( x:8:3, '|', y:8:3, '|' );
end;