blob: 7fb3b419a4ecba6beaf9fde07ecf72f97be0816e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
(*
Challenge 120
TASK #2 - Clock Angle
Submitted by: Mohammad S Anwar
You are given time $T in the format hh:mm.
Write a script to find the smaller angle formed by the hands of an analog
clock at a given time.
HINT: A analog clock is divided up into 12 sectors. One sector represents 30
degree (360/12 = 30).
Example
Input: $T = '03:10'
Output: 35 degree
The distance between the 2 and the 3 on the clock is 30 degree.
For the 10 minutes i.e. 1/6 of an hour that have passed.
The hour hand has also moved 1/6 of the distance between the 3 and the 4,
which adds 5 degree (1/6 of 30).
The total measure of the angle is 35 degree.
Input: $T = '04:00'
Output: 120 degree
*)
program ch2(input, output);
uses sysutils, strutils;
function parseTime(hhmm: String): Integer;
var
p, hh, mm: Integer;
begin
p := PosEx(':', hhmm);
hh := StrToInt(LeftStr(hhmm, p-1));
mm := StrToInt(MidStr(hhmm, p+1, length(hhmm)));
parseTime := hh*100+mm;
end;
function clockAngle(hhmm: Integer): Integer;
var
hh, mm, hh_angle, mm_angle, angle: Integer;
begin
hh := hhmm div 100;
mm := hhmm mod 100;
mm_angle := mm*360 div 60;
hh_angle := (hh mod 12)*360 div 12 + mm_angle div 12;
angle := abs(hh_angle - mm_angle);
if angle > 180 then angle := 360 - angle;
clockAngle := angle;
end;
var
angle: Integer;
begin
angle := clockAngle(parseTime(paramStr(1)));
WriteLn(angle);
end.
|
