Zadání:
Sestavte program, který ze zadaného úhlu v radiánech vypočte hodnotu úhlu ve stupních, minutách a sekundách.

Řešení:
Řešení má následující kroky:
1. Přepočítat radiány r na stupně r1 (výsledkem je reálné číslo).
2. Jelikož z proměnné r1 je jeho celá část rovna stupňům, uložíme do proměnné s celou část proměnné r1.
3. Minuty vypočteme vynásobením desetinné části proměnné r1 hodnotou 60 (desetinnou část vypočteme jako
rozdíl proměnné r1 a proměnné s.
4. Body 2. a 3. opakujeme pro výpočet minut a sekund.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var r,r1,m1,v:real;
    s,m:integer;

begin

   write('Zadejte uhel v radianech: ');
   readln(r);

   r1:=180*r/pi;
   s:=trunc(r1);
   m1:=(r1-s)*60;
   m:=trunc(m1);
   v:=(m1-m)*60;

   writeln('s=',s,'m=':4,m,'v=':4,v:0:3);

   readln;

end.

Pro učitele:
Počet sekund v proměnné v lze ještě na závěr funkcí round zaokrouhlit na celé číslo příkazem:

   v:=round(v);