18 lines
567 B
ObjectPascal
18 lines
567 B
ObjectPascal
##
|
|
var lat := readlnreal('Enter latitude => ');
|
|
var lng := readlnreal('Enter longitude => ');
|
|
var med := readlnreal('Enter legal meridian => ');
|
|
println;
|
|
|
|
var slat := sin(degToRad(lat));
|
|
writeln(' sine of latitude: ', slat:5:3);
|
|
writeln(' diff longitude: ', lng - med:5:3);
|
|
println;
|
|
println('Hour, sun hour angle, dial hour line angle from 6am to 6pm');
|
|
|
|
for var h := -6 to 6 do
|
|
begin
|
|
var hra := 15 * h - lng + med;
|
|
var hla := radtodeg(arctan(slat * tan(degToRad(hra))));
|
|
writeln('HR=', h:2, '; HRA=', hra:8:3, '; HLA=', hla:8:3);
|
|
end;
|