Zadání:
Sestavte program, který vypočte z hodnoty x hodnotu y podle vzorce:

Řešení:
Pomocí standardních funkcí programovacího jazyku vypočítat z hodnoty x hodnotu y.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var x,y:real;

begin

   write('Zadejte hodnotu x: ');
   readln(x);

   if x<>2 then
   begin
      y:=abs(2*x+3)/(x-2);
      writeln('y=',y:0:3);
   end
   else writeln('Nelze vypocitat');

   readln;

end.

Pro studenty:
Při převodu do programovacího jazyku je třeba dát si pozor ve zlomcích na správné použití závorek.
Hodnotu y vzorce v zadání nelze vypočítat pro x=2 (nastane dělení nulou).

Pro učitele:
Nejprve použít vzorec bez absolutní hodnoty, vysvětlit použití závorek ve zlomcích, poté použít absolutní hodnotu.