Zadání:
Sestavte program, který vypočte z hodnot 
x,z hodnoty 
y1 - y7 podle vzorců:
 
Ř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,z:real;
begin
   write('Zadejte hodnotu x: ');
   readln(x);
   write('Zadejte hodnotu z: ');
   readln(z);
   y:=(3+sqr(z))/(2+sqr(sqr(x)))-z;
   writeln('y1=',y:0:3);
   y:=abs(x-z)/(x-3);
   writeln('y2=',y:0:3);
   y:=(2*x+5)/3-13*z+5*(x+sqr(z));
   writeln('y3=',y:0:3);
   y:=abs(2*x*z-3)/(sqr(x)-z)+3*x*z;
   writeln('y4=',y:0:3);
   y:=abs(x-z)/(abs(x)-3);
   writeln('y5=',y:0:3);
   y:=(0.2*x+z)/(2*sqr(x)-abs(2*x-5*z));
   writeln('y6=',y:0:3);
   y:=sqrt(sqr(x)+sqr(z))-1/(x*z)*(sqrt(sqr(x)+sqr(z))-(x+z)/2);
   writeln('y7=',y:0:3);
   readln;
end.
program ke stažení
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.
Druhé mocniny lze napsat také jako x*x, ovšem varianta sqr(x) je rychlejší.
V zápisu reálných čísel se místo desetinné čárky používá desetinná čárka.
Pro učitele:
Hodnoty 
x,z, pro které lze vypočítat všech šest hodnot y jsou např. {2,2},{1,2},{5,5}.
Důležité upozornit studenty, že nelze vynechat znaménko pro násobení, které se v matematických vzorcích vynechává.
V sedmém vzorci se jeho část opakuje (odmocnina), lze ji vypočítat předem a ve výsledním vzorci použít pouze výsledek, např.:
y:=sqrt(sqr(x)+sqr(z));
y:=y-1/(x*z)*(y-(x+z)/2);
nebo
a:=sqrt(sqr(x)+sqr(z));
y:=a-1/(x*z)*(a-(x+z)/2);
(je třeba proměnnou 
a nadefinovat).