Discussion @ 1030. Titanic @ Timus Online Judge

Fokysnik What is test #3? I always get WA#3... [7] // Problem 1030. Titanic 5 Aug 2006 20:55

IgorTuphanov 1030 --- WA #1 [1] // Problem 1030. Titanic 4 Jan 2006 13:25

Anatoliy 'Tolyan_NO' Tolstobroff please sombody write me read data(on Pascal). // Problem 1030. Titanic 23 Sep 2005 02:34

Samsonov Alex stuPId [2] // Problem 1030. Titanic 13 Jul 2005 16:49

Sid Help, i need sombody's help [3] // Problem 1030. Titanic 23 Mar 2005 23:14

Sandro Something interesting [4] // Problem 1030. Titanic 30 Jul 2004 00:07

Kopeliovitch Sergey (1) 2 Jury [2] // Problem 1030. Titanic 25 Jul 2004 14:26

Maigo Akisame I doubt the sample is wrong [2] // Problem 1030. Titanic 3 Jun 2004 04:50

Vlad Veselov What means Northern/Southern longitude??? [3] // Problem 1030. Titanic 9 Sep 2003 22:22

XiaoTian I got "Crash (ACCESS_VIOLATION)". What does it mean? [10] // Problem 1030. Titanic 18 Jan 2003 19:42

{No.1030 Titanic.}
Const
     pi=3.1415926535897932384626433832795;
Var
     Char1,NS1,EW1,NS2,EW2:Char;
     A1,B1,C1,D1,E1,F1,A2,B2,C2,D2,E2,F2:Integer;
     SqrD,Alpha,L,X1,Y1,Z1,X2,Y2,Z2:Real;
Function ReadNum:Integer;
Var
     Str1:String;
     Code,Num:Integer;
     Char1:Char;
Begin
     Str1:='##';
     Read(Str1[1]); Read(Str1[2]);
     Read(Char1);
     If Char1 In ['0'..'9'] Then
          Str1:=Str1+Char1;
     Val(Str1,Num,Code);
     ReadNum:=Num;
End;
Procedure Cal(Theta1,Theta2:Real;NS,EW:Char;Var X,Y,Z:Real);
Begin
     If NS='N' Then
          Z:=Sin(Theta1)
     Else Z:=-Sin(Theta1);
     X:=Cos(Theta2)*Cos(Theta1);
     If EW='E' Then
          Y:=Sin(Theta2)*Cos(Theta1)
     Else Y:=-Sin(Theta2)*Cos(Theta1);
End;
Begin
     ReadLn;
     ReadLn;
     ReadLn;

     A1:=ReadNum;
     B1:=ReadNum;
     C1:=ReadNum;
     Read(Char1);
     Read(NS1);
     ReadLn;

     Read(Char1); Read(Char1); Read(Char1); Read(Char1);
     D1:=ReadNum;
     E1:=ReadNum;
     F1:=ReadNum;
     Read(Char1);
     Read(EW1);
     ReadLn;

     ReadLn;

     A2:=ReadNum;
     B2:=ReadNum;
     C2:=ReadNum;
     Read(Char1);
     Read(NS2);
     ReadLn;

     Read(Char1); Read(Char1); Read(Char1); Read(Char1);
     D2:=ReadNum;
     E2:=ReadNum;
     F2:=ReadNum;
     Read(Char1);
     Read(EW2);
     ReadLn;
     ReadLn;

     Cal((((C1/60)+B1)/60+A1)/180*pi,(((F1/60)
+E1)/60+D1)/180*pi,NS1,EW1,X1,Y1,Z1);
     Cal((((C2/60)+B2)/60+A2)/180*pi,(((F2/60)
+E2)/60+D2)/180*pi,NS2,EW2,X2,Y2,Z2);

     If (Abs(X1+X2)<1E-7) And (Abs(Y1+Y2)<1E-7) And (Abs(Z1+Z2)<1E-7)
Then
          Alpha:=pi
     Else Begin
          SqrD:=Sqr(X1-X2)+Sqr(Y1-Y2)+Sqr(Z1-Z2);
          Alpha:=Arctan(Sqrt(SqrD)/2/Sqrt(1-SqrD/4))*2;
     End;
     L:=Alpha*6875/2;
     WriteLn('The distance to the iceberg: ',L:0:2,' miles.');
     If 100-L>1E-7 Then
          WriteLn('DANGER!');
End.

Илья Гофман (Ilya Gofman) Re: I got "Crash (ACCESS_VIOLATION)". What does it mean? [4] // Problem 1030. Titanic 18 Jan 2003 19:46

This possibly mean that you try to access the element of the array
with the number that doesn't exist or something like that.
Good Luck!!!

XiaoTian I correct it, but now WA. Why? [3] // Problem 1030. Titanic 19 Jan 2003 09:08

{No.1030 Titanic.}
{$N+}
Const
     pi=3.1415926535897932384626433832795;
Var
     Char1,NS1,EW1,NS2,EW2:Char;
     A1,B1,C1,D1,E1,F1,A2,B2,C2,D2,E2,F2:Integer;
     SqrD,Alpha,L,X1,Y1,Z1,X2,Y2,Z2:Double;
Function ReadNum:Integer;
Var
     Str1:String;
     Code,Num:Integer;
     Char1:Char;
Begin
     Str1:='';
     Read(Char1); Str1:=Str1+Char1;
     Read(Char1);
     If Char1 In ['0'..'9'] Then
     Begin
          Str1:=Str1+Char1;
          Read(Char1);
          If Char1 In ['0'..'9'] Then
               Str1:=Str1+Char1;
     End;
     Val(Str1,Num,Code);
     ReadNum:=Num;
End;
Procedure Cal(Theta1,Theta2:Double;NS,EW:Char;Var X,Y,Z:Double);
Begin
     If NS='N' Then
          Z:=Sin(Theta1)
     Else Z:=-Sin(Theta1);
     X:=Cos(Theta2)*Cos(Theta1);
     If EW='E' Then
          Y:=Sin(Theta2)*Cos(Theta1)
     Else Y:=-Sin(Theta2)*Cos(Theta1);
End;
Begin
     ReadLn;
     ReadLn;
     ReadLn;

     A1:=ReadNum;
     B1:=ReadNum;
     C1:=ReadNum;
     Read(Char1);
     Read(NS1);
     ReadLn;

     Read(Char1); Read(Char1); Read(Char1); Read(Char1);
     D1:=ReadNum;
     E1:=ReadNum;
     F1:=ReadNum;
     Read(Char1);
     Read(EW1);
     ReadLn;

     ReadLn;

     A2:=ReadNum;
     B2:=ReadNum;
     C2:=ReadNum;
     Read(Char1);
     Read(NS2);
     ReadLn;

     Read(Char1); Read(Char1); Read(Char1); Read(Char1);
     D2:=ReadNum;
     E2:=ReadNum;
     F2:=ReadNum;
     Read(Char1);
     Read(EW2);
     ReadLn;
     ReadLn;

     Cal((((C1/60)+B1)/60+A1)/180*pi,(((F1/60)
+E1)/60+D1)/180*pi,NS1,EW1,X1,Y1,Z1);
     Cal((((C2/60)+B2)/60+A2)/180*pi,(((F2/60)
+E2)/60+D2)/180*pi,NS2,EW2,X2,Y2,Z2);

     If (Abs(X1+X2)<1E-10) And (Abs(Y1+Y2)<1E-10) And (Abs(Z1+Z2)<1E-
10) Then
          Alpha:=pi
     Else Begin
          SqrD:=Sqr(X1-X2)+Sqr(Y1-Y2)+Sqr(Z1-Z2);
          Alpha:=Arctan(Sqrt(SqrD)/2/Sqrt(1-SqrD/4))*2;
     End;
     L:=Alpha*6875/2;
     WriteLn('The distance to the iceberg: ',L:0:2,' miles.');
     If 100-L>0 Then
          WriteLn('DANGER!');
End.

Dmitry 'Diman_YES' Kovalioff You see, in your program such case is possible: when you write distance 100.00, but write DANGER! Round error (-) [2] // Problem 1030. Titanic 19 Jan 2003 12:01

XiaoTian Error corrected, but I still got WA. [1] // Problem 1030. Titanic 19 Jan 2003 14:31

{No.1030 Titanic.}
{$N+}
Const
     pi=3.1415926535897932384626433832795;
Var
     Char1,NS1,EW1,NS2,EW2:Char;
     A1,B1,C1,D1,E1,F1,A2,B2,C2,D2,E2,F2:Integer;
     SqrD,Alpha,L,X1,Y1,Z1,X2,Y2,Z2:Double;
Function ReadNum:Integer;
Var
     Str1:String;
     Code,Num:Integer;
     Char1:Char;
Begin
     Str1:='';
     Read(Char1); Str1:=Str1+Char1;
     Read(Char1);
     If Char1 In ['0'..'9'] Then
     Begin
          Str1:=Str1+Char1;
          Read(Char1);
          If Char1 In ['0'..'9'] Then
               Str1:=Str1+Char1;
     End;
     Val(Str1,Num,Code);
     ReadNum:=Num;
End;
Procedure Cal(Theta1,Theta2:Double;NS,EW:Char;Var X,Y,Z:Double);
Begin
     If NS='N' Then
          Z:=Sin(Theta1)
     Else Z:=-Sin(Theta1);
     X:=Cos(Theta2)*Cos(Theta1);
     If EW='E' Then
          Y:=Sin(Theta2)*Cos(Theta1)
     Else Y:=-Sin(Theta2)*Cos(Theta1);
End;
Begin
     ReadLn;
     ReadLn;
     ReadLn;

     A1:=ReadNum;
     B1:=ReadNum;
     C1:=ReadNum;
     Read(Char1);
     Read(NS1);
     ReadLn;

     Read(Char1); Read(Char1); Read(Char1); Read(Char1);
     D1:=ReadNum;
     E1:=ReadNum;
     F1:=ReadNum;
     Read(Char1);
     Read(EW1);
     ReadLn;

     ReadLn;

     A2:=ReadNum;
     B2:=ReadNum;
     C2:=ReadNum;
     Read(Char1);
     Read(NS2);
     ReadLn;

     Read(Char1); Read(Char1); Read(Char1); Read(Char1);
     D2:=ReadNum;
     E2:=ReadNum;
     F2:=ReadNum;
     Read(Char1);
     Read(EW2);
     ReadLn;
     ReadLn;

     Cal((((C1/60)+B1)/60+A1)/180*pi,(((F1/60)
+E1)/60+D1)/180*pi,NS1,EW1,X1,Y1,Z1);
     Cal((((C2/60)+B2)/60+A2)/180*pi,(((F2/60)
+E2)/60+D2)/180*pi,NS2,EW2,X2,Y2,Z2);

     If (Abs(X1+X2)<1E-10) And (Abs(Y1+Y2)<1E-10) And (Abs(Z1+Z2)<1E-
10) Then
          Alpha:=pi
     Else Begin
          SqrD:=Sqr(X1-X2)+Sqr(Y1-Y2)+Sqr(Z1-Z2);
          Alpha:=Arctan(Sqrt(SqrD)/2/Sqrt(1-SqrD/4))*2;
     End;
     L:=Alpha*6875/2;
     Write('The distance to the iceberg: ');
     Write(L:0:2);
     WriteLn(' miles.');
     If Round(L*100)<10000 Then
          WriteLn('DANGER!');
End.

Dmitry 'Diman_YES' Kovalioff Maybe such case is possible: many messages in one test (-) // Problem 1030. Titanic 19 Jan 2003 21:24

Lin All the tests are here.I got them from Zhu Zheyuan. [4] // Problem 1030. Titanic 21 Jan 2003 10:51

Message #488.
Received at 18:15:23.
Current ship's coordinates are
45^00'00" SL
and 45^00'00" WL.
An iceberg was noticed at
45^00'00" NL
and 45^00'00" WL.
===
Message #488.
Received at 18:15:23.
Current ship's coordinates are
41^46'00" NL
and 50^14'00" WL.
An iceberg was noticed at
41^14'11" NL
and 51^09'00" WL.
===
Message #488.
Received at 18:15:23.
Current ship's coordinates are
45^00'00" SL
and 45^00'00" WL.
An iceberg was noticed at
45^00'00" NL
and 135^00'00" EL.
===
Message #488.
Received at 18:15:23.
Current ship's coordinates are
90^00'00" NL
and 50^14'00" WL.
An iceberg was noticed at
90^00'00" SL
and 151^09'00" WL.
===
Message #488.
Received at 18:15:23.
Current ship's coordinates are
0^00'00" NL
and 50^00'00" WL.
An iceberg was noticed at
0^00'00" SL
and 130^00'00" EL.
===
Message #488.
Received at 18:15:23.
Current ship's coordinates are
40^00'00" NL
and 1^00'00" WL.
An iceberg was noticed at
40^00'00" NL
and 1^00'00" EL.
===
Message #488.
Received at 18:15:23.
Current ship's coordinates are
40^09'18" NL
and 1^00'01" WL.
An iceberg was noticed at
40^50'11" NL
and 1^00'00" EL.
===
Message #488.
Received at 18:15:23.
Current ship's coordinates are
40^09'19" NL
and 1^00'01" WL.
An iceberg was noticed at
40^50'12" NL
and 1^00'00" EL.
===

XiaoTian Is my answer right? [3] // Problem 1030. Titanic 22 Jan 2003 14:22

The distance to the iceberg: 5399.61 miles.
The distance to the iceberg: 52.04 miles.
DANGER!
The distance to the iceberg: 7199.48 miles.
The distance to the iceberg: 10799.22 miles.
The distance to the iceberg: 4799.66 miles.
The distance to the iceberg: 91.92 miles.
DANGER!
The distance to the iceberg: 100.00 miles.
The distance to the iceberg: 99.99 miles.
DANGER!

Sergei Pupyrev (USU) Re: Is my answer right? // Problem 1030. Titanic 10 Feb 2003 19:58

> The distance to the iceberg: 5399.61 miles.
> The distance to the iceberg: 52.04 miles.
> DANGER!
> The distance to the iceberg: 7199.48 miles.
> The distance to the iceberg: 10799.22 miles.
> The distance to the iceberg: 4799.66 miles.
> The distance to the iceberg: 91.92 miles.
> DANGER!
> The distance to the iceberg: 100.00 miles.
> The distance to the iceberg: 99.99 miles.
> DANGER!
>

Sergei Pupyrev (USU) Sorry [1] // Problem 1030. Titanic 10 Feb 2003 19:59

> The distance to the iceberg: 5399.61 miles.
> The distance to the iceberg: 52.04 miles.
> DANGER!
> The distance to the iceberg: 7199.48 miles.
> The distance to the iceberg: 10799.22 miles.
> The distance to the iceberg: 4799.66 miles.
> The distance to the iceberg: 91.92 miles.
> DANGER!
> The distance to the iceberg: 100.00 miles.
> The distance to the iceberg: 99.99 miles.
> DANGER!
>
Look carefully at test :
Message #488.
Received at 18:15:23.
Current ship's coordinates are
45^00'00" SL
and 45^00'00" WL.
An iceberg was noticed at
45^00'00" NL
and 135^00'00" EL.
===
My answer is 10799.22

alp Re: Sorry // Problem 1030. Titanic 21 Sep 2013 23:55

AC program gives answers
The distance to the iceberg: 5399.61 miles.
The distance to the iceberg: 52.04 miles.
DANGER!
The distance to the iceberg: 10799.22 miles.
The distance to the iceberg: 10799.22 miles.
The distance to the iceberg: 10799.22 miles.
The distance to the iceberg: 91.92 miles.
DANGER!
The distance to the iceberg: 100.00 miles.
The distance to the iceberg: 99.99 miles.
DANGER!

Kolio Why do I awlays get WA? Can somebody help? // Problem 1030. Titanic 5 Jan 2003 15:43

This is my source code:

#include <stdio.h>
#include <math.h>
#include <string.h>

double w1,l1;
double w2,l2;

double x1,x2,x3;
double Y1,Y2,Y3;

const double r = 3437.5;
const double pi = 3.14159265358979323846;

int scan(void)
{
    int num, hh, mm, ss;
    double x1,x2,x3;
    char str[5];

    if(scanf("Message #%d.\n", &num) <= 0)
        return 0;
    scanf("Received at %d:%d:%d.\n", &hh, &mm, &ss);
    scanf("Current ship’s coordinates are\n");

    scanf("%lf^%lf'%lf\" %s\n", &x1, &x2, &x3, str);
    if( str[0] == 'S' )
    {
        x1=-x1;
        x2=-x2;
        x3=-x3;
    }

    w1 = (x1+x2/60+x3/3600)/180*pi;

    scanf("and %lf^%lf'%lf\" %s\n", &x1, &x2, &x3, str);
    if( str[0] == 'E' )
    {
        x1=-x1;
        x2=-x2;
        x3=-x3;
    }

    l1 = (x1+x2/60+x3/3600)/180*pi;

    scanf("An iceberg was noticed at\n");

    scanf("%lf^%lf'%lf\" %s\n", &x1, &x2, &x3, str);
    if( str[0] == 'S')
    {
        x1=-x1;
        x2=-x2;
        x3=-x3;
    }

    w2 = (x1+x2/60+x3/3600)/180*pi;

    scanf("and %lf^%lf'%lf\" %s\n", &x1, &x2, &x3, str);
    if( str[0] == 'E')
    {
        x1=-x1;
        x2=-x2;
        x3=-x3;
    }

    l2 = (x1+x2/60+x3/3600)/180*pi;

    scanf("===\n");
    return 1;
}

void coord(double w, double l, double& a1, double& a2, double& a3)
{
    a1 = cos(w)*cos(l);
    a2 = cos(w)*sin(l);
    a3 = sin(w);
}

double dist2(double a1, double a2, double a3, double b1, double b2,
double b3)
{
    return (a1-b1)*(a1-b1)+(a2-b2)*(a2-b2)+(a3-b3)*(a3-b3);
}

double doit(void)
{
    coord(w1,l1, x1, x2, x3);
    coord(w2,l2, Y1, Y2, Y3);

    double res = r * acos (x1*Y1 + x2*Y2 + x3*Y3);
    return res;
/*
      double x = dist2(x1,x2,x3,Y1,Y2,Y3);
    double cosfi = 1-x/2;
    double fi = acos(cosfi);

     return fi*r;
*/

}

int main(void)
{
#ifndef ONLINE_JUDGE
    freopen("1030.in", "r", stdin);
#endif

    while(scan())
    {
        double res = doit();

        if ((unsigned)printf("The distance to the iceberg: %
0.2lf miles.\n",res) <
            strlen("The distance to the iceberg: 100.00
miles.\n") )
            printf("DANGER!\n");
/*
        printf("The distance to the iceberg: %.2lf miles.\n",
res);
        if(res<99.995)
            printf("DANGER!\n");
*/
    }

#ifndef ONLINE_JUDGE
    fclose(stdin);
#endif
    return 0;
}

Aleksei Zobnin Why do I get WA? Help me, please! // Problem 1030. Titanic 28 Sep 2002 16:06

Victor Costan Multiple messages / data test or Wrong data set ? // Problem 1030. Titanic 14 Aug 2002 18:30

raxtinhac why does it crash ( flt_invalid_operation)? Have a look, please! [1] // Problem 1030. Titanic 30 Jun 2002 16:47

var     st,st1,st2,st3,st4      :string;
        x,y,z,v,k               :array[1..2] of extended;
        r,kc                    :extended;

procedure doc(var st :string; var t :extended);
begin
t := 0;
while ( st[1] >= '0') and ( st[1] <= '9' ) do
begin t := t * 10 + ord( st[1] ) - 48;
         delete(st,1,1);
end;
delete(st,1,1);
end;

procedure doc1(var st :string; var t :extended);
var    x,y,z       :extended;
begin
while ( st[1] < '0' ) or ( st[1] > '9' ) do delete(st,1,1);
doc(st, x); doc(st,y); doc(st, z);

t := x + y/60 + z/3600;
t := t * pi / 180;
if ( pos('SL',st) > 0 ) or ( pos('WL',st) > 0 )
      then t := -t;
end;

procedure input;
begin
readln( st);
readln( st);
readln( st);
readln( st1);
readln( st2);
readln( st);
readln( st3);
readln( st4);

doc1(st1, v[1]); doc1(st2, k[1]);
doc1(st3, v[2]); doc1(st4, k[2]);
end;

procedure tinh_toa_do;
begin
r := 6875/2;
x[1] := r * sin( v[1] );
y[1] := r * cos( v[1] ) * sin( k[1] );
z[1] := r * cos( v[1] ) * cos( k[1] );

x[2] := r * sin( v[2] );
y[2] := r * cos( v[2] ) * sin( k[2] );
z[2] := r * cos( v[2] ) * cos( k[2] );
end;

procedure tinh_khoang_cach;
var    canh,co,goc         :extended;
begin
canh := sqrt( sqr( x[1] - x[2] ) + sqr( y[1] - y[2] ) +
                sqr( z[1] - z[2] ) );
co := ( 2*sqr(r) - sqr(canh) ) / ( 2 * sqr(r) );

if co = 0 then goc := pi/2
            else goc := arctan( sqrt( 1/sqr(co) - 1 ) );

kc := r * goc;
end;

procedure solve;
begin
tinh_toa_do;
tinh_khoang_cach;
end;

procedure out;
begin
writeln('The distance to the iceberg: ',kc:0:2,' miles.');
if kc < 99.95 then writeln('DANGER!');
end;

begin
input;
solve;
out;
end.

Terrific Re: why does it crash ( flt_invalid_operation)? Have a look, please! // Problem 1030. Titanic 30 Jun 2002 19:32

maybe : you div zero , or sqrt(negative number)

Welcome to visit :
http://www.ioiforum.org/en/
Here to register:
http://www.ioiforum.org/userreg.asp

crazy Help. My program always got Wrong Answer! [3] // Problem 1030. Titanic 23 Apr 2002 05:47

Maybe the input is wrong but i don't know how to do this
help
thanks !

#include<iostream.h>
#include<math.h>
#include<stdio.h>
const double pi=3.1415926;
const double R=3437.5;

double x_ship,y_ship,z_ship;
double x_ice,y_ice,z_ice;
double dist(double x1,double y1,double z1,double x2,double y2,double
z2)
{
double ans;
ans=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)+(z1-z2)*(z1-z2));
return ans;
}

void main()
{
double X1,X2,X3,Y1,Y2,Y3;
double A1,A2,A3,B1,B2,B3;
double ans,sita,d,r1,r2;
int location_ship1,location_ship2,location_ice1,location_ice2;
char ch[200];
char c;

//north=1;south=-1;east=1;west=-1;

//input
gets(ch);
gets(ch);
gets(ch);
cin>>X1>>c>>X2>>c>>X3>>c>>ch;
if(ch[0]=='N') location_ship1=1; else location_ship1=-1;
cin>>ch>>Y1>>c>>Y2>>c>>Y3>>c>>ch;
if(ch[0]=='E') location_ship2=1; else location_ship2=-1;
gets(ch);
cin>>A1>>c>>A2>>c>>A3>>c>>ch;
if(ch[0]=='N') location_ice1=1; else location_ice1=-1;
cin>>ch>>B1>>c>>B2>>c>>B3>>c>>ch;
if(ch[0]=='E') location_ice2=1; else location_ice2=-1;
gets(ch);

z_ship=R*sin((X1+(X2+X3/60)/60)*pi/180);
z_ship*=location_ship1;
r1=R*cos((X1+(X2+X3/60)/60)*pi/180);
z_ice=R*sin((A1+(A2+A3/60)/60)*pi/180);
z_ice*=location_ice1;
r2=R*cos((A1+(A2+A3/60)/60)*pi/180);

y_ship=r1*cos((Y1+(Y2+Y3/60)/60)*pi/180);
y_ice=r2*cos((B1+(B2+B3/60)/60)*pi/180);

x_ship=r1*sin((Y1+(Y2+Y3/60)/60)*pi/180);
x_ship*=location_ship2;
x_ice=r2*sin((B1+(B2+B3/60)/60)*pi/180);
x_ice*=location_ice2;

d=dist(x_ship,y_ship,z_ship,x_ice,y_ice,z_ice);
sita=acos((R*R*2-d*d)/(2*R*R));
ans=R*sita;
printf("The distance to the iceberg: %.2lf miles. \n",ans);
if(ans<100) printf("DANGER!\n");
}

Ivan Georgiev Re: Help. My program always got Wrong Answer! [2] // Problem 1030. Titanic 24 Apr 2002 21:45

Your program prints DANGER if the answer is
99.999999;
you should print DANGER only if the number you have printed is
99.99 or less

Good luck.

crazy Re: Help. My program always got Wrong Answer! [1] // Problem 1030. Titanic 27 Apr 2002 19:21

thank you
but i could not correct my program
and i still got the wrong answer
whether you can tell me more

also i doubt whether my input code is ok?
i am so lazy and i do in this way

Ivan Georgiev Re: Help. My program always got Wrong Answer! // Problem 1030. Titanic 28 Apr 2002 00:50

Well, you could see how many symbols you have printed (i think printf
returns this), so if this number is ... (one more than usually), you
print 'DANGER!'

Good luck.

Han Wentao Why does my program get WA? I can't find where error is. [2] // Problem 1030. Titanic 10 Feb 2002 18:14

#include <math.h>
#include <stdio.h>
#include <string.h>
#define DIAMETER 6875.0
#define CIRCLE_PI 3.1415926536
typedef
struct
{
    int sign;
    int deg;
    int min;
    int sec;
}
degree;
typedef
struct
{
    degree latitude;
    degree longitude;
}
coordinate;
typedef
struct
{
    double x;
    double y;
    double z;
}
vector;
coordinate ship;
coordinate iceberg;
double dist;
void str_to_coord(degree *ptr,char *p,char positive)
{
while(*p<'0'||*p>'9')
    p++;
ptr->deg=0;
while(*p>='0'&&*p<='9')
    ptr->deg=ptr->deg*10+(*(p++)-'0');
while(*p<'0'||*p>'9')
    p++;
ptr->min=0;
while(*p>='0'&&*p<='9')
    ptr->min=ptr->min*10+(*(p++)-'0');
while(*p<'0'||*p>'9')
    p++;
ptr->sec=0;
while(*p>='0'&&*p<='9')
    ptr->sec=ptr->sec*10+(*(p++)-'0');
while(*p<'A'||*p>'Z')
    p++;
ptr->sign=(*p==positive?1:-1);
}
void init()
{
char buf[80];
gets(buf);
gets(buf);
gets(buf);
gets(buf);
str_to_coord(&(ship.latitude),buf,'N');
gets(buf);
str_to_coord(&(ship.longitude),buf,'E');
gets(buf);
gets(buf);
str_to_coord(&(iceberg.latitude),buf,'N');
gets(buf);
str_to_coord(&(iceberg.longitude),buf,'E');
}
double deg_to_rad(degree angle)
{
double res;
res=(double)angle.deg+(double)angle.min/60.0+(double)
angle.sec/3600.0;
res=res/180.0*CIRCLE_PI;
if(angle.sign==-1)
    res=-res;
return res;
}
void coord_to_vec(vector *vec,coordinate coord)
{
double phi,theta;
phi=deg_to_rad(coord.latitude);
theta=deg_to_rad(coord.longitude);
vec->x=cos(phi)*cos(theta)*DIAMETER/2.0;
vec->y=cos(phi)*sin(theta)*DIAMETER/2.0;
vec->z=sin(phi)*DIAMETER/2.0;
}
double distance(vector a,vector b)
{
double t1=a.x-b.x;
double t2=a.y-b.y;
double t3=a.z-b.z;
t1=t1*t1;
t2=t2*t2;
t3=t3*t3;
return sqrt(t1+t2+t3);
}
void solve()
{
vector a,b;
double t;
coord_to_vec(&a,ship);
coord_to_vec(&b,iceberg);
t=distance(a,b);
dist=acos(1.0-(t*t)/(2.0*(DIAMETER/2.0)*(DIAMETER/2.0)))*
(DIAMETER/2.0);
}
void done()
{
printf("The distance to the iceberg: %0.2lf miles.\n",dist);
if(floor(dist*100.0+0.5)<10000.0)
    printf("DANGER!\n");
}
main()
{
init();
solve();
done();
return 0;
}

Ivan Georgiev Re: [1] // Problem 1030. Titanic 11 Feb 2002 02:17

I think the problem is with this;

if(floor(dist*100.0+0.5)<10000.0)
    printf("DANGER!\n");

i can make a test in which the answer is much nearer to 100 than you
expect; one way to correct this:

#include <string.h>

...

void done()
{
if (
   printf("The distance to the iceberg: %0.2lf miles.\n",dist) ==
   strlen("The distance to the iceberg: 100.00 miles.\n") )
   printf("DANGER!\n");
}

Good luck.

Ivan Georgiev Re: // Problem 1030. Titanic 11 Feb 2002 02:19

sorry, a mistake -- not == but <

shitty.Mishka Could anybody help me with my code? // Problem 1030. Titanic 28 Nov 2001 01:18

What's wrong here? All the formulas are abviously correct,
but wwhy do I get WA?
By the way, in some discussions on this problem the author
(s) Li,Yi had the same problem, and somebody said "try :'if
way < 99.95 then ...", but this doesn't work with my
program as well.

Program Titanic;
Const di=6875; r=di/2;
Var u1,u2,u3,v1,v2,v3:Longint;
     a,b:Extended;
     x1,y1,z1,x2,y2,z2:Extended;
     c:Char;
     s:String;
     d1,d2,d3:Extended;
     cs,sn,al:Extended;
Function StrToInt(s:String):Longint;
Var Cod:Integer;
      v:Longint;
Begin
Val(s,v,Cod);
StrToInt:=v;
End;
Function RR(st:Char):String;
Var s:String;
      c:Char;
Begin
s:='';
Repeat
   Read(c);
   If c In ['0'..'9'] Then
    s:=s+c;
Until c=st;
RR:=s;
End;
Function D(x1,y1,z1,x2,y2,z2:Extended):Extended;
Begin
D:=Sqrt(Sqr(x1-x2)+Sqr(y1-y2)+Sqr(z1-z2));
End;
Function SSin(a:Extended):Extended;
Begin
SSin:=sin(a/180*Pi);
End;
Function CCos(a:Extended):Extended;
Begin
CCos:=cos(a/180*Pi);
End;
Begin
While Not Eof Do Begin
Readln;
Readln;
Readln;
u1:=StrToInt(RR('^'));
u2:=StrToInt(RR(''''));
u3:=StrToInt(RR('"'));
Readln(s);
If Pos('N',s)>0 Then Begin
   u1:=-u1;
   u2:=-u2;
   u3:=-u3;
End;
v1:=StrToInt(RR('^'));
v2:=StrToInt(RR(''''));
v3:=StrToInt(RR('"'));
Readln(s);
If Pos('W',s)>0 Then Begin
   v1:=-v1;
   v2:=-v2;
   v3:=-v3;
End;
a:=u1+u2/60+u3/60/60;
{ a:=90-Abs(a);}
b:=v1+v2/60+v3/60/60;
x1:=ccos(a)*ccos(b);
y1:=ccos(a)*ssin(b);
z1:=ssin(a);
Readln;
u1:=StrToInt(RR('^'));
u2:=StrToInt(RR(''''));
u3:=StrToInt(RR('"'));
Readln(s);
If Pos('N',s)>0 Then Begin
   u1:=-u1;
   u2:=-u2;
   u3:=-u3;
End;
v1:=StrToInt(RR('^'));
v2:=StrToInt(RR(''''));
v3:=StrToInt(RR('"'));
Readln(s);
If Pos('W',s)>0 Then Begin
   v1:=-v1;
   v2:=-v2;
   v3:=-v3;
End;
a:=u1+u2/60+u3/60/60;
{ a:=90-Abs(a);}
b:=v1+v2/60+v3/60/60;
x2:=ccos(a)*ccos(b);
y2:=ccos(a)*ssin(b);
z2:=ssin(a);
d1:=D(0,0,0,x1,y1,z1);
d2:=D(0,0,0,x2,y2,z2);
d3:=D(x2,y2,z2,x1,y1,z1);
cs:=(d1*d1+d2*d2-d3*d3)/(2*d1*d2);
sn:=Sqrt(Abs(1-cs*cs));
If cs=0 Then
   al:=Pi/2
Else
   al:=Arctan(sn/cs);
If cs<0 Then
   al:=al+Pi;
Writeln('The distance to the iceberg: ',al*r:0:2,'
miles.');
If al*r<100 Then
   Writeln('DANGER!');
Readln;
End;
End.

Li Yi What's wrong with my code. I always get WA [5] // Problem 1030. Titanic 20 Aug 2001 11:31

#include <fstream.h>
#include <stdio.h>
#include <math.h>
#include <string.h>

const double D = 6875.;
const double R = 3437.5;
const double C_PI = 3.14159265358979323846;

int main ()
{
double phi1, phi2, teta1, teta2;
double degrees, minutes, seconds, sign;
double x1,x2,y1,y2,z1,z2;
char s[300];

cin.getline(s, 299);
cin.getline(s, 299);
cin.getline(s, 299);
// read the ship coordinates
cin.getline(s, 299);

degrees = atof(s);

char *p = strchr(s,'^');
minutes = atof(p + 1);

p = strchr(s, '\'');
seconds = atof(p + 1);

sign = 0.;
if (strstr(s, "SL") != NULL) sign = -1.;
if (strstr(s, "NL") != NULL) sign = 1.;

phi1 = sign * (degrees + minutes / 60. + seconds / 3600.);

cin >> s;
cin.getline(s, 299);

degrees = atof(s);

p = strchr(s, '^');
minutes = atof(p + 1);

p = strchr(s, '\'');
seconds = atof(p + 1);

sign = 0.;
if (strstr(s,"WL") != NULL) sign=-1.;
if (strstr(s,"EL") != NULL) sign=1.;

teta1 = sign * (degrees + minutes / 60. + seconds /
3600.);

// skip one line
cin.getline(s, 299);
// read the iceberg coordinates

cin.getline(s, 299);
p = strchr(s,'^');
degrees = atof(s);
minutes = atof(p+1);

p = strchr(s, '\'');
seconds = atof(p+1);

sign = 0.;
if (strstr(s, "SL") != NULL) sign=-1.;
if (strstr(s, "NL") != NULL) sign=1.;

phi2 = sign * (degrees + minutes / 60. + seconds / 3600.);

cin >> s;
cin.getline(s, 299);
degrees = atof(s);
p = strchr(s,'^');
minutes = atof(p + 1);

p = strchr(s, '\'');

seconds = atof(p + 1);

sign = 0.;
if (strstr(s, "WL") != NULL) sign = -1.;
if (strstr(s, "EL") != NULL) sign = 1.;
teta2 = sign * (degrees + minutes / 60. + seconds /
3600.);

// calculate the euclids coordinate
phi1 = phi1 * C_PI / 180.;
phi2 = phi2 * C_PI / 180.;
teta1 = teta1 * C_PI / 180.;
teta2 = teta2 * C_PI / 180.;

x1 = R * cos(phi1) * cos(teta1);
y1 = R * cos(phi1) * sin(teta1);
z1 = R * sin(phi1);

x2 = R * cos(phi2) * cos(teta2);
y2 = R * cos(phi2) * sin(teta2);
z2 = R * sin(phi2);

double dist = sqrt((x1-x2) * (x1-x2) + (y1-y2) * (y1-y2)
+ (z1-z2) * (z1-z2));
double k = dist / D;
double way = D * asin(k);

printf("The distance to the iceberg: %4.2lf miles.\n",
way);
if ( way < 100.00 ) printf("DANGER\n");

return 0;
}

Li Yi Of source, it must be "DANGER!\n", and it's still WA. // Problem 1030. Titanic 20 Aug 2001 11:43

ValkaVales Re: What's wrong with my code. I always get WA // Problem 1030. Titanic 21 Aug 2001 14:21

Try

if (way < 99.95) ...

tester2 Re: What's wrong with my code. I always get WA // Problem 1030. Titanic 26 Jan 2002 19:50

Maybe you should try specifying your headers.
> #include <fstream.h>
> #include <stdio.h>
> #include <math.h>
> #include <string.h>
>
> const double D = 6875.;
> const double R = 3437.5;
> const double C_PI = 3.14159265358979323846;
>
> int main ()
> {
>   double phi1, phi2, teta1, teta2;
>   double degrees, minutes, seconds, sign;
>   double x1,x2,y1,y2,z1,z2;
>   char s[300];
>
>   cin.getline(s, 299);
>   cin.getline(s, 299);
>   cin.getline(s, 299);
>   // read the ship coordinates
>   cin.getline(s, 299);
>
>   degrees = atof(s);
>
>   char *p = strchr(s,'^');
>   minutes = atof(p + 1);
>
>   p = strchr(s, '\'');
>   seconds = atof(p + 1);
>
>   sign = 0.;
>   if (strstr(s, "SL") != NULL) sign = -1.;
>   if (strstr(s, "NL") != NULL) sign = 1.;
>
>   phi1 = sign * (degrees + minutes / 60. + seconds / 3600.);
>
>   cin >> s;
>   cin.getline(s, 299);
>
>   degrees = atof(s);
>
>   p = strchr(s, '^');
>   minutes = atof(p + 1);
>
>   p = strchr(s, '\'');
>   seconds = atof(p + 1);
>
>   sign = 0.;
>   if (strstr(s,"WL") != NULL) sign=-1.;
>   if (strstr(s,"EL") != NULL) sign=1.;
>
>   teta1 = sign * (degrees + minutes / 60. + seconds /
> 3600.);
>
>   // skip one line
>   cin.getline(s, 299);
>   // read the iceberg coordinates
>
>   cin.getline(s, 299);
>   p = strchr(s,'^');
>   degrees = atof(s);
>   minutes = atof(p+1);
>
>   p = strchr(s, '\'');
>   seconds = atof(p+1);
>
>   sign = 0.;
>   if (strstr(s, "SL") != NULL) sign=-1.;
>   if (strstr(s, "NL") != NULL) sign=1.;
>
>   phi2 = sign * (degrees + minutes / 60. + seconds / 3600.);
>
>   cin >> s;
>   cin.getline(s, 299);
>   degrees = atof(s);
>   p = strchr(s,'^');
>   minutes = atof(p + 1);
>
>   p = strchr(s, '\'');
>
>   seconds = atof(p + 1);
>
>   sign = 0.;
>   if (strstr(s, "WL") != NULL) sign = -1.;
>   if (strstr(s, "EL") != NULL) sign = 1.;
>   teta2 = sign * (degrees + minutes / 60. + seconds /
> 3600.);
>
>   // calculate the euclids coordinate
>   phi1 = phi1 * C_PI / 180.;
>   phi2 = phi2 * C_PI / 180.;
>   teta1 = teta1 * C_PI / 180.;
>   teta2 = teta2 * C_PI / 180.;
>
>   x1 = R * cos(phi1) * cos(teta1);
>   y1 = R * cos(phi1) * sin(teta1);
>   z1 = R * sin(phi1);
>
>   x2 = R * cos(phi2) * cos(teta2);
>   y2 = R * cos(phi2) * sin(teta2);
>   z2 = R * sin(phi2);
>
>   double dist = sqrt((x1-x2) * (x1-x2) + (y1-y2) * (y1-y2)
> + (z1-z2) * (z1-z2));
>   double k = dist / D;
>   double way = D * asin(k);
>
>   printf("The distance to the iceberg: %4.2lf miles.\n",
> way);
>   if ( way < 100.00 ) printf("DANGER\n");
>
>   return 0;
> }
>

Seany Re: What's wrong with my code. I always get WA [1] // Problem 1030. Titanic 7 Aug 2003 14:06

change 'way<100.00' to '100.00-way>0.005'
then you will got accept;
Good luck!

The Punisher Re: What's wrong with my code. I always get WA // Problem 1030. Titanic 25 Jan 2007 01:25

Thanks a lot!
Got AC!

Krzysztof Kapuscik Is this equation correct !? Or I should use other one!? [2] // Problem 1030. Titanic 27 May 2001 05:58

Nick Nickolov Strange input and output. What for? Why not simply read 12 integers? // Problem 1030. Titanic 13 Oct 2000 00:00

Discussion of Problem 1030. Titanic