z-easy?

Hi

I'm having trouble with the z-easy problem my code works perfectly when I compile it.

But when i send it i get WRONG RESULT for all of them.

can someone help with this :

Here is my C code:

#include <stdio.h>
long gcd(long a,long b);
int main(void)
{
long a,b,c,d;
scanf("%li/%li",&a,&b);
scanf("%li/%li",&c,&d);

long m=a*d+c*b;
long n=b*d;

long g_c_d=gcd(m,n);
printf("%li/%li\n",m/g_c_d,n/g_c_d);

return 0;
}
long gcd(long a,long b)
{
return (b==0?a:gcd(b,a%b));

}

Thanks a lot

Try to scan in one scanf

scanf("%lld/%lld %lld/%lld",&a,&b,&c,&d)

How could you read input with %li ? :-S

I tried scanning on one scanf but i get WRONG RESULT's for all of them again.

And i used %li to read long ints.

Use long long and %lld for scan. ;)

long = int on 32bit computers

Al3kSaNdaR thanks a lot man it's working.

No problem. ;)

@tgudlek
Yes, yes... I noticed that there is no difference in declaring variables as longs or ints. No matter how, it can store values up to 2^31... So, it's because of CPU architecture?

Yes.

How can I read in pascal the rational numbers ?
How can I read this

scanf("%li/%li",&a,&b); 

?

You must read a string and then parse it.

You can simply read one int, then char, then again int:

long a,b;
char c;
scanf("%ld%c%ld",&a,&c,&b);

This will put char '/' in variable C, but it's not important. You'll have your rational number stored in A and B.

Why I get the Exit code is not zero, for all tests ?

Try not to use CRT

The problem is not in CRT.
I still get Exit code is not zero

You must read input in following order. Read one string from entire line and then "chop" it to pieces. Use

 Pos , Copy , Delete , Val , ...  

functions. This is the only way to do this task in Pascal.

Thanks..I will try :)

No problem, ask if you need help. :)

Why I get wrong result for all of the tests :(

1. Don't use CLRSCR and CRT module!
2. Don't use ReadLn on bottom of your code!
3. You could WriteLn just with WriteLn because LongInt numbers are in 0:0 format.

It doesn't matter.
I try in other way without Crt and that stuff. I get Wrong Result...
This is my code

Var a,b,c,d : LongInt;
    x,y,z		: LongInt;
    m,n			: LongInt;
    i				: LongInt;
    err			: Integer;
    S,H			: String;

Function gcd(q,r : Integer): integer;
Begin
	if (r=0) then gcd:=q else
  gcd:=gcd(r,q mod r);
End;

Procedure kra(p,o : LongInt; var z1,w1 : LongInt);
Var R : Integer;
Begin
	R:=gcd(p,o);
  z1:=p div r;
  w1:=o div r;	
End;

Begin
  ReadLn(S);

  I:=Pos('/',S);
  H:=Copy(S,1,I-1);
  Delete(S,1,Length(H)+1);
  Val(H,A,err);

  I:=Pos(' ',S);
  H:=Copy(S,1,I-1);
  Delete(S,1,Length(H)+1);
  Val(H,B,err);

  I:=Pos('/',S);
  H:=Copy(S,1,I-1);
  Delete(S,1,Length(H)+1);
  Val(H,C,err);

  Val(S,D,err);

  kra(a,b,x,y);
  kra(c,d,m,n);
	kra( ((x*n)+(y*m)),y*n,a,b);

  WriteLn(a,'/',b);
End.

@gigac
Since the input numbers may vary up to 10^9, their multiple can exceed 2^32. Try using int64 instead of longint.

Same...
Really, what's the problem ! :@
Just copy this code, try it and you'll see.
I get a correct answer.. admins please help :S

@gigac
Replace EVERY declared INTEGER by INT64, including the parameter types in your functions and procedures. Remember not to use int64 for the ERROR code in the VAL procedure as it cannot be assigned an int64 value.

Var a,b,c,d : int64;
    x,y,z   : int64;
    m,n     : int64;
    i       : Int64;
    err     : integer;
    S,H     : String;

Function gcd(q,r : Int64): int64;
Begin
  if (r=0) then gcd:=q else
  gcd:=gcd(r,q mod r);
End;

Procedure kra(p,o : Int64; var z1,w1 : Int64);
Var R : Int64;
Begin
  R:=gcd(p,o);
  z1:=p div r;
  w1:=o div r;
End;

Begin
  ReadLn(S);


  I:=Pos('/',S);
  H:=Copy(S,1,I-1);
  Delete(S,1,Length(H)+1);
  Val(H,A,err);


  I:=Pos(' ',S);
  H:=Copy(S,1,I-1);
  Delete(S,1,Length(H)+1);
  Val(H,B,err);

  I:=Pos('/',S);
  H:=Copy(S,1,I-1);
  Delete(S,1,Length(H)+1);
  Val(H,C,err);

  Val(S,D,err);


  kra(a,b,x,y);
  kra(c,d,m,n);
  kra( ((x*n)+(y*m)),y*n,a,b);

  WriteLn(a,'/',b);
  
End.

Yeaaaaaaaaaaaaaaaaa.....
Thanks a lot Nocturne :)