| Yazar |
|
extreme
Kahramanmaras
admin
Kayıt: 24.10.2006 |
|
Uzun çalışmalar sonucu OBEB bulma programını çalıştırabildim ama o quizden önce bize mod(*,*) fonksyonu öğretilmedi. ben V.Basic karışımı yapmaya çalıştım mod u hesaplamak için. Ve yanlış yaptım. Bugün doğru cevabı arayan arkadaşlar vardı. onlar için...
real a,b,x1,x2,kalan
10 write(*,*) "2 sayı giriniz"
read(*,*) a,b
x1 = max(x1,x2)
x2 = max(x1,x2)
do
kalan = mod(x1,x2)
if (kalan == 0) exit
x1 = x2
x2 = kalan
cycle
end do
write(*,*) "Obeb=",x2
goto 10
end
The Man Who Loved Algorithm&Ubuntu.
www.burakamasyali.com
|
|
|
| Yazar |
|
burakkanmaz
Gaziantep
Kayıt: 02.10.2006 |
|
bu hatayı verdi bu kodların. çok ayrıntılı bakmadım ama kodların 20-45, 9-4, 552-72 sayılarının obeblerini doğru buluyor mu ?
|
|
|
| Yazar |
|
blackzero
Kayıt: 27.11.2006 |
|
a ve b yi girmissin x'lerle islem yapmissin.
|
|
|
| Yazar |
|
burakkanmaz
Gaziantep
Kayıt: 02.10.2006 |
|
blackzero yazdi | | | a ve b yi girmissin x'lerle islem yapmissin. |
a ve b yi x1 x2 yapınca 20-45 obebini 45 buluo (522-72 de de 522 buluo) :) çok uraştım demişsin extreme ama bence daha uğraşman lazım 
|
|
|
| Yazar |
|
fonemi
Kayıt: 09.01.2007 |
|
IMPLICIT NONE
INTEGER i, j, k, kucuksayi, a, b, c
WRITE(*,*) "OBEB'i alinacak 2 sayiyi giriniz :"
READ(*,*) i, j
IF(i<j) THEN
kucuksayi = i
ELSE
kucuksayi = j
END IF
DO a = 1, kucuksayi
b = (i/a)*a
c = (j/a)*a
IF((b==i).AND.(c==j)) THEN
k = a
END IF
END DO
WRITE(*,*) "OBEB = ", k
END
Cevap böyle sanırım arkadaşlar ... En azından bize öğretilen kadarıyla. Sınavdan sonra evde derleyip çalıştırdım programı, bir sorun yok gibi. Olayın kilit noktası değişkenlerin tipinin INTEGER olması ve küsratlı sayıların aşağı ya da yukarı yuvarlanması. Bundan yola çıkarak a sayısıyla çarpıp böldüğümüzde tam bölünüp bölünmediğini ölçmüş oluyoruz.
|
|
|
| Yazar |
|
extreme
Kahramanmaras
admin
Kayıt: 24.10.2006 |
|
Benim bilgisayarda çalışmıştı baya bi seçeneğide denedim. bunları aklımdan yazdım hata yapmış olabilirim..
BUrak en kısa zamanda sana göndereceğim çalışanını.
The Man Who Loved Algorithm&Ubuntu.
www.burakamasyali.com
|
|
|
| Yazar |
|
extreme
Kahramanmaras
admin
Kayıt: 24.10.2006 |
|
real a,b,x1,x2,kalan
10 write(*,*) "1. sayıyı giriniz"
read(*,*) a
write(*,*) "2. sayıyı giriniz"
read(*,*) b
x1 = max(a,b)
x2 = min(a,b)
do
kalan = mod(x1,x2)
if (kalan == 0) exit
x1 = x2
x2 = kalan
cycle
end do
write(*,*) "Obeb=",x2
goto 10
end
The Man Who Loved Algorithm&Ubuntu.
www.burakamasyali.com
|
|
|
| Yazar |
|
burakkanmaz
Gaziantep
Kayıt: 02.10.2006 |
|
extreme yazdi | | real a,b,x1,x2,kalan
10 write(*,*) "1. sayıyı giriniz"
read(*,*) a
write(*,*) "2. sayıyı giriniz"
read(*,*) b
x1 = max(a,b)
x2 = min(a,b)
do
kalan = mod(x1,x2)
if (kalan == 0) exit
x1 = x2
x2 = kalan
cycle
end do
write(*,*) "Obeb=",x2
goto 10
end
|
süper şimdi çalıştı.
|
|
|
|
|
-
 Del.icio.us
-
 Digg
-
 Facebook
-
 Furl
-
 Google
-
 Blink
-
 Simpy
-
 Spurl
-
 Y! MyWeb
|
|
| | | | |
