| Konuyu görüntüle |
| Yazar |
|
burakkanmaz
Gaziantep
Kayıt: 02.10.2006 |
|
birde google da aradım biraz fakat fortran la ilgili hiçbir düzgün site (türkçe) bulamadım. bence (en azından üniversite öğrencileri için) böyle bir site yapmak mantıklı olur. Eğer 1-2 arkadaş daha bulursam fortran hakkında hazirkod siteleri tarzında bir site yapmak istiyorum.çok kasacak bizi uğraştıracak birşey yok. sonuçta ortada faydalı bir kaynak olacak. ilgilenen olursa görüşelim.
yoksa bu da mı hayal kalacak
|
|
|
| Yazar |
|
concordia
Kayıt: 14.02.2007 |
|
birkaç döngü hatası var. anlatmak istediğini doğru anladıysam aşağıdaki kod istediğin gibi;
integer i,n,toplam,sayi
real ort
CHARACTER*1 CEVAP
do
toplam=0
write(*,*)"toplanacak sayi miktarini giriniz"
read(*,*)n
do i=1,n
5 write(*,*)i,". sayiyi giriniz"
read(*,*)sayi
if (sayi .lt. 0) then
write(*,*)"hatali giris! sayiyi tekrar giriniz:"
goto 5
end if
toplam=toplam+sayi
end do
ort=toplam/n
write(*,*)"toplam=",toplam
write(*,*)"ortalama=",ort
write(*,*)"devam etmek istiyormusunuz?E/H"
READ(*,*) CEVAP
if ((cevap=="h") .or. (cevap=="H")) EXIT
end do
end
süper burakkanmaz sağol.
|
|
|
| Yazar |
|
concordia
Kayıt: 14.02.2007 |
|
Bir tane de obeb bulma benden.goto'yu kullanmak baya kolaylık sağlıyormuş.bunu öğrendiğim iyi oldu.tekrar teşekkürler burakkanmaz...ben denediğim kadarıyla düzgün çalışıyor...
integer a,b,bolen,bolunen,obeb,kalan
CHARACTER cevap
do
write(*,*)"iki sayi giriniz"
read(*,*)a,b
bolunen=max(a,b)
bolen=min(a,b)
5 if(mod(bolunen,bolen)==0) then
write(*,*)"obeb=",bolen
else
kalan=mod(bolunen,bolen)
bolunen=bolen
bolen=kalan
obeb=mod(bolen,kalan)
goto 5
end if
write(*,*)"devam etmek istiyormusunuz?E/H"
read(*,*)cevap
if(cevap=="h") .or.(cevap=="H")) EXIT
END DO
end
|
|
|
| Yazar |
|
fenerista
Istanbul
Kayıt: 27.11.2006 |
|
obeb!
integer a,b,y,h,s
1 write(*,*) "iki sayi"
read(*,*) a,b
y=min(a,b)
DO s=1,y
if((a/s)*s==a .AND. (b/s)*s==b) then
h=s
end if
end do
write(*,*) h
goto 1
END
designed by fenerista!
a ve s integer olunca a/s yi de integer olarak alıyor
Oktay,
Thk you!
|
|
|
| Yazar |
|
concordia
Kayıt: 14.02.2007 |
|
1-100 aarsındaki asal ve asal olmayan sayıları bulma programını böyle yapınca neden olmuyor?
integer i,j
do
do i=2,100
do j=2,i-1
if(mod(i,j)==0) then
write(*,*)i,"sayisi asal degildir"
else
write(*,*)i,"sayisi asaldir"
end if
end do
end do
end do
end
|
|
|
| Yazar |
|
burakkanmaz
Gaziantep
Kayıt: 02.10.2006 |
|
concordia yazdi | | | 1-100 aarsındaki asal ve asal olmayan sayıları bulma programını böyle yapınca neden olmuyor? |
integer i,j
do i=2,100
do j=2,i-1
if (mod(i,j)==0) then
write(*,*) i," sayisi asal degil"
exit
else
if(j==i-1) then
write(*,*) i," sayisi asal"
exit
end if
end if
end do
end do
write(*,*) "-------------------"
end
|
|
|
| Yazar |
|
reccae
istanbul
banlandı
Kayıt: 15.02.2006 |
|
goto kulanmadanda aynı programı yazabilirsiniz
ayrıca çoğu dilde goto diye birşey yok
kendinizi döngülere alıştırın şimdiden
insa ettigim binanin cimentosu kelâm
|
|
|
| Yazar |
|
angelme
istanbul
Kayıt: 21.10.2006 |
|
YA BEN DE GOTO YU ILK DEFA GORUYORUM KULLANIM SEKLI NASILDIR DERSTE GORMEDIK YANLIS HATIRLAMIYORSAM NERELERDE KULLANMALIYIZ ?
|
|
|
| Yazar |
|
burakkanmaz
Gaziantep
Kayıt: 02.10.2006 |
|
reccae yazdi | | goto kulanmadanda aynı programı yazabilirsiniz
ayrıca çoğu dilde goto diye birşey yok
kendinizi döngülere alıştırın şimdiden |
evet haklısın. exit komutu daha kullanışlı. fakat fortranda çok uğraşmamak için goto 10 20 30 ile istediğimiz yere yolluyoruz işlemi :)
angelme yazdi | | | YA BEN DE GOTO YU ILK DEFA GORUYORUM KULLANIM SEKLI NASILDIR DERSTE GORMEDIK YANLIS HATIRLAMIYORSAM NERELERDE KULLANMALIYIZ ? |
istediğin bi satırın başına bi sayı yaz. örnek;
4 write(*,*) "vs.vs.v.vs."
sonra programının bu satıra gitmesini istediğin yere goto 4 yaz.
bu kadar. başka bi kullanım amacı yok benim bildiğim
bi de goto ile az üst taraflarda bi örnek yazdım. onuda inceleyince daha ii anlarsın.
ama recceaninde dediği gibi döngüden exit komutu ile çıkmaya alışmak lazım. 
|
|
|
| Yazar |
|
reccae
istanbul
banlandı
Kayıt: 15.02.2006 |
|
angelme yazdi | | | YA BEN DE GOTO YU ILK DEFA GORUYORUM KULLANIM SEKLI NASILDIR DERSTE GORMEDIK YANLIS HATIRLAMIYORSAM NERELERDE KULLANMALIYIZ ? |
benim tavsiyem hi,çbiryerde kullanmamanız
adamlar 40 sene önce goto kullanmadan kod yazılabileceğini görmüş. sizde 21. yüzyılda kullanmayın artık 
goto kullanıp yapabileceğiniz herşeyi döngülerle yapabilirsiniz
mesela
5 bla bıla bıla
if( x )
goto 5
yazmak yerine
do
bıla bıla bıla
if( !x ) exit
diyebilirsiniz
insa ettigim binanin cimentosu kelâm
|
|
|
| Yazar |
|
angelme
istanbul
Kayıt: 21.10.2006 |
|
ya format satırına göre gotonun yanına rakam koyuyorz ok anladm sanırım sağolasın
|
|
|
| Yazar |
|
hagaren
istanbul
Kayıt: 09.10.2006 |
|
1 den 100 e kadar olan asal sayıları gösteren başka bir program örneği
implicit none
integer sayi,bolen,sayac
sayac=0
write(*,*)"1-100 arasındaki asal sayılar:"
do sayi=2,100
do bolen=2,sayi-1
if (mod(sayi,bolen)==0) then
sayac=sayac+1
end if
end do
if (sayac==0) then
write(*,*)sayi, " bir asal sayidir."
end if
sayac=0
end do
end program
www.erenbasar.com
|
|
|
| Yazar |
|
burakkanmaz
Gaziantep
Kayıt: 02.10.2006 |
|
fortrandaki düşünce şekli bu kadar mı benzer olur. helal olsun bi ara ganim le de aynı tasarımı yapan (ama birbirlerinden haberi olmayan) bir arkadaş vardı.
hagaren yazdi | | 1 den 100 e kadar olan asal sayıları gösteren başka bir program örneği
implicit none
integer sayi,bolen,sayac
sayac=0
write(*,*)"1-100 arasındaki asal sayılar:"
do sayi=2,100
do bolen=2,sayi-1
if (mod(sayi,bolen)==0) then
sayac=sayac+1
end if
end do
if (sayac==0) then
write(*,*)sayi, " bir asal sayidir."
end if
sayac=0
end do
end program
|
marakana yazdi | | 1'den 100'e kadar olan asal sayıları bulup ekrana yazan F90 programı: daha önce koyulmuş buraya ama bu biraz daha farklı...
program asal_sayilar
implicit none
integer::sayi,bolen,sayac
sayac=0
print*,"buprogram 1 ile 100 arasindaki asal sayilari verir"
do sayi=2,100
do bolen=2,sayi-1
if (mod(sayi,bolen)==0) then
sayac=sayac+1
end if
end do
if (sayac==0) then
print *,sayi, " asal sayidir."
end if
sayac=0
end do
end program
|
|
|
|
| Yazar |
|
leonirossi87
Kayıt: 09.03.2006 |
|
arkadaşlar yarın soru dağılımı nasıl olacak haberi olan va r mı?
|
|
|
| Yazar |
|
seasun87
Kayıt: 16.02.2007 |
|
Hocaya sorduğumda ;"tam karar vermedik ama galiba 3 soru olucak 2si fortranda program yazma-öğrendiğiniz kalıplara uygun- 1 i de dönem başında gösterilen ilk konulardan olucak"demişti.Son kararları nedir bilemicem
"Bir bilet istiyorum..Sadece gidis olsun..Cocuklugun safligina.."
|
|
|
|
|
-
 Del.icio.us
-
 Digg
-
 Facebook
-
 Furl
-
 Google
-
 Blink
-
 Simpy
-
 Spurl
-
 Y! MyWeb
|
|
| | | | | | | | | | | | | | |
