Örnek Program 4

İki sayının ortak katlarının en küçüğünü veren işlevi yazınız.

#include
long okek(long, long);
main()
{
long i, j;
clrscr();
printf("İki tamsayı giriniz :");
scanf("%ld%ld", &i, &j);
printf("sayıların okeki = %ld \n" okek(i, j));

}

long okek(long p, long q)
/* p < q olmali. Degil ise yerlerini değiştir. */
{
long i, k;
if (p>q) {
i=p;
p=q;
q=i;
}

/* p nin öyle bir katını bul ki q sayısına tam bölünsün
2 sayısından itibaren taranmaya başlanabilir fakat
p/q yeterli
*/

i = q / p;
do {
k = p*i;
i = i+1;
} while ( k % q != 0);
return