Výpočet a tlač hodnôt funkcie do tabuľky

{ 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;
 
        x := x + krok;
     until (x > 5);
 
     WriteLn('------------------');
     ReadLn;
end.