`Code.1`
import java.util.Scanner;
public class Main{
public static void main(String[] args) {
Scanner scanner = new Scanner(System.in);
int h, p, s;
int giay = scanner.nextInt();
h = (giay/3600);
p = ((giay - (h*3600))/60);
s = giay - (h*3600 + p*60 );
System.out.println(giay + " giây = " + h + " giờ " + p + " phút"+ s + " giây" ) ;
}
}
`Code.2`
uses
CRT, Graph, SysUtils, DOS, Math;
type
TOrientation = (oPortrait, oLandscape);
TPoint = record
x, y : integer;
end;
TAngle = record
a : float;
r : integer;
end;
var
o : TOrientation;
c : TPoint;
a : TAngle;
function color(r, g, b : byte) : integer;
var
cs : android_graphics_Color;
c : integer;
begin
c := cs.rgb(r, g, b);
color := c;
end;
function point(c : TPoint; a : TAngle) : TPoint;
var
r : TPoint;
begin
r.x := round(c.x + a.r * sin(degToRad(a.a)));
r.y := round(c.y + a.r * cos(degToRad(a.a)));
point := r;
end;
function hand(c : TPoint; a : TAngle) : TPoint;
var
p : TPoint;
begin
a.a := -a.a - 180;
p := point(c, a);
hand := p;
end;
procedure drawText;
var
t : string = 'la gi vay moi nguoi';
h, n, s, z, w : Word;
j, m, d, e : string;
yr, mo, dy, wd : Word;
begin
setTextStyle(defaultFont, horizDir, 3);
setTextJustify(leftText, topText);
setColor(15);
w := textWidth(t) div 2;
if o = oPortrait then
outTextXY(c.x - w, c.y - a.r - 50, t)
else
outTextXY(c.x - a.r - w * 2 - 50, c.y, t);
getTime(h, n, s, z);
j := intToStr(h);
if length(j) = 1 then j := '0' + j;
m := intToStr(n);
if length(m) = 1 then m := '0' + m;
d := intToStr(s);
if length(d) = 1 then d := '0' + d;
e := intToStr(z);
if length(e) = 1 then e := '0' + e;
t := j + ':' + m + ':' + d + '.' + e;
w := textWidth(t) div 2;
if o = oPortrait then
outTextXY(c.x - w, c.y + a.r + 80, t)
else
outTextXY(c.x + a.r + 50, c.y, t);
getDate(yr, mo, dy, wd);
end;
procedure handHour(h, n : integer);
var
p : TPoint;
r : TAngle;
begin
if h > 11 then h := h - 12;
r := a;
r.a := (h + n / 60) * 30;
r.r := r.r div 2 - 12;
p := hand(c, r);
// hand
setColor(lightBlue);
setLineStyle(solidLn, 0, 24);
setFillStyle(solidFill, lightBlue);
line(c.x, c.y, p.x, p.y);
// rounded tip
setLineStyle(solidLn, 0, 1);
//pieSlice(p.x,p.y,0,360,11);
end;
procedure handMinute(n, s : integer);
var
p : TPoint;
r : TAngle;
begin
r := a;
r.a := (n + (s / 60)) * 6;
r.r := r.r - 50;
p := hand(c, r);
// hand
setColor(lightGreen);
setLineStyle(solidLn, 0, 12);
setFillStyle(solidFill, lightGreen);
line(c.x, c.y, p.x, p.y);
setLineStyle(solidLn, 0, 1);
end;
procedure handSecond(s, z : integer);
var
p : TPoint;
r : TAngle;
begin
r := a;
r.a := (s + (z / 100)) * 6;
setColor(red);
setFillStyle(solidFill, red);
r.r := a.r - 20;
p := hand(c, r);
setLin
