Konuyu görüntüle
IUCODERS FORUM > Programlama > Diğer (COBOL,asp php js..) > fortran program ar?ivi
Yazar
cengineer


avatar

Kayıt: 27.10.2006
18.04.2007-18:48 #20406
Arkadaşlar hoca bize eşitdeğil operatörünü <> olarak gösterdi ama derlemede bu hatalı görünüyor;
/= şeklindeki kullanımı da internette gördüm bu problemsiz çalışıyor.
Hoca mı yanlış gösterdi ben mi yanlış yazmışım notlarıma bi kontrol ederseniz sevinirimd oh





" Her arayan bulamayabilir ancak bulanlar arayanlardir..! " Imam-i Rabbâni




Yazar
marakana


avatar

Kayıt: 08.03.2007
18.04.2007-19:11 #20409
Hoca derste eşit değil işaretini <> bu şekilde gösterdi; ama kitapta da /= böyle gösteriyor.peace






Yazar
steel


avatar

Kayıt: 13.01.2007
18.04.2007-19:15 #20411
klavyeden girilen tamsayının basamak sayısını hesaplayan program

integer sayi
integer sayac
write(*,*)"bir tamsayi giriniz"
read(*,*)sayi
sayac=0
do
sayac=sayac+1
sayi=sayi/10
if(sayi==0)EXIT
end do
write(*,*)"sayi",sayac," basamakli"
end




Yazar
marakana


avatar

Kayıt: 08.03.2007
18.04.2007-20:31 #20414
reccae yazdi
 
2. program

bu programda karakterdeki sesli sessiz harflerin ve rakamların sayısını buluyo
yazmak uzun ama copy paste yapınbiggrin

INTEGER Sesli=0 , Sessiz=0, Rakam=0
INTEGER Bosluk=0, Diger=0, I
CHARACTER Karakter
CHARACTER (LEN=80) Satir
READ '(A)', Satir
DO I=1,80
Karakter=Satir(I:I)
! yukarida bir karakter secilir
SELECT CASE (Karakter)
CASE ('A','E','I','O','U', &
'a','e','i','o','u')
Sesli=Sesli + 1
CASE ('B','C','D','F','G','H', &
'J','K','L','M','N','P', &
'Q','R','S','T','V','W', &
'X','Y','Z', &
'b','c','d','f','g','h', &
'j','k','l','m','n','p', &
'q','r','s','t','v','w', &
'x','y','z')
Sessiz=Sessiz + 1
CASE ('1','2','3','4','5','6','7','8','9','0')
Rakam=Rakam + 1
CASE (' ')
Bosluk=Bosluk + 1
CASE DEFAULT
Diger=Diger+1
END SELECT
END DO
PRINT *, ' Sesli harfler = ', Sesli
PRINT *, ' Sessiz harfler = ', Sessiz
PRINT *, ' Digits = ', Rakam
PRINT *, ' Blanks = ', Bosluk
PRINT *, ' Diger karakterler = ', Diger
END PROGRAM




karakter sayısı sabit olduğu için boşluk sayısı yüksek çıkabiliyo thinking
ama çalışıyo






ya burda sen bildirim işleminde atama yapmışsın böyle birşey mümkünmü?
program hata veriyo.bilgilendirirsen sevinirimthinkingthinking






Yazar
kartane


avatar
istanbul
Kayıt: 22.02.2007
18.04.2007-20:36 #20415
arkadaslar dersde yaptığımız ytl dolar karsılıgı örnegınde;
WRITE(*,1)ytl,dolar
1 FORMAT(f15.2,'turk lırasının dolar karsılığgı',F9.2'DOLARDIR')yapısını nasıl kullanıldıgını anlayan varsa acıklar mı??confusedconfused




Yazar
besensitive


avatar
iSTANBUL
Kayıt: 26.05.2006
18.04.2007-22:08 #20424
merhaba arkadaşlar,
yarınki bmg sınavı bilgisayar başındamı olacak, yoksa kodlar kağıdamı yazılacak?





Yazar
burakkanmaz


avatar
Gaziantep
Kayıt: 02.10.2006
18.04.2007-22:10 #20425
besensitive yazdi
 
merhaba arkadaşlar,
yarınki bmg sınavı bilgisayar başındamı olacak, yoksa kodlar kağıdamı yazılacak?

ben hiç bilg başında olan vize duymadım. geçen yıl bu dersi alanlarda vizeyi kağıtta olmuşlar. bizde kağıtta oluruz %99.




Yazar
kartane


avatar
istanbul
Kayıt: 22.02.2007
18.04.2007-22:21 #20428
besensitive yazdi
 
merhaba arkadaşlar,
yarınki bmg sınavı bilgisayar başındamı olacak, yoksa kodlar kağıdamı yazılacak?



bilgisayar basında olmayacak hoca dedı klasık yanıgood luckgood luck




Yazar
nohead


avatar
Tristram
Kayıt: 26.08.2006
18.04.2007-23:28 #20436
kartane yazdi
 
arkadaslar dersde yaptığımız ytl dolar karsılıgı örnegınde;
WRITE(*,1)ytl,dolar
1 FORMAT(f15.2,'turk lırasının dolar karsılığgı',F9.2'DOLARDIR')
yapısını nasıl kullanıldıgını anlayan varsa acıklar mı??confusedconfused


write(*,1)--> yani "1" etiketli format satırı.
1 FORMAT(f15.2,'turk lirasinin dolar karsiligi',F9.2,'DOLARDIR')

A-karakter
I-tamsayı
x- boşluk
F-reel sayı. noktadan önceki ve sonraki rakamlar basamak sayısını belirtiyor.
good luck




"The will of the nation" is one of those expressions which have been most profusely abused by the wily and the despotic of every age."
Alexis de Tocqueville


¨


Yazar
mrflz


avatar
Luleburgaz
admin
Kayıt: 15.06.2006
19.04.2007-10:43 #20448
concordia yazdi
 
girilen sayıların toplamını ve ortalamasını bulan,sayılar 0'dan küçük olduğunda hata veren,işlem sonlandırıldıktan sonra devam etmek isteyip istemediğimi soran programı yazmaya çalıştım.ama olmadıworried nerde hata yapıyorum yardımcı olurmusunuz?
integer i,n,toplam,sayi
real ort
CHARACTER*1 CEVAP
do
toplam=0
write(*,*)"toplanacak sayi miktarini giriniz"
read(*,*)n
do i=1,n
write(*,*)i,". sayiyi giriniz"
read(*,*)sayi
if (sayi .lt. 0) then
write(*,*)"hatali giris! sayiyi tekrar giriniz:"
read(*,*)sayi
toplam=toplam+sayi
cycle
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 




integer::  toplam=0 , i ,j,sayi
character cevap


do
write(*,*)"Toplanacak dizinin eleman sayisi"
read(*,*) i
toplam = 0

write(*,*)"Elemanlari giriniz"

do j=1,i
read(*,*) sayi

if(sayi .LT. 0) then
write(*,*)"Girdiginiz sayi sifirdan kucuk"
write(*,*)"isleme sokulmayacaktir"

cycle

else

toplam = toplam +sayi

end if

end do


write(*,*)"Toplam:",toplam

write(*,*)"Devam etmek istiyor musunuz(E/H)"
read(*,*) cevap
if((cevap=="H") .OR.(cevap=="h")) then
exit
end if
end do 

end





I see the ghosts of navigators but they are lost







Yazar
mrflz


avatar
Luleburgaz
admin
Kayıt: 15.06.2006
19.04.2007-14:23 #20457
Sınavdaki kuyu sorusu 

real h,v,k,verim



write(*,*)"Kuyunun tuksekligini giriniz"
read(*,*) h
write(*,*)"Kepcenin hacmini giriniz"
read(*,*) v

k = V - ((v*1/25)* h)
verim = (k/v)*100

if(k.LE.0) then


k=0
verim=0

end if

write(*,*)"Cikan kum:",int(k)
write(*,*)"Verimlilik yuzde",int(verim),"dir"

end





I see the ghosts of navigators but they are lost







Yazar
adaniak


avatar

Kayıt: 13.01.2007
19.04.2007-15:39 #20459
alın size çorba tuzu da bendenn

!MATRIX

real a1,a2,a3,a4,a5,a6,a7,a8,a9,det
write(*,*) "The program has written by nightmare_slymn."
write(*,*) "a(11),a(12),a(13),a(21),a(22),a(23),a(31),a(32),a(33) elemanlarini aralarinda bosluk birakarak sirayla giriniz."
read(*,*) a1,a2,a3,a4,a5,a6,a7,a8,a9




det=a2*a7*a6+a1*a5*a9+a3*a4*a8-a3*a8*a6-a2*a3*a4-a5*a7*a3
det1=a1
det2=a5
det3=a9
det12=a1*a5-a2*a4
det13=a1*a9-a3*a7
det23=a5*a9-a6*a8
write(*,*) "Determinant=",det,"dir."
write(*,*) "1. order principal minors del(1)=",det1,"dir."
write(*,*) "1. order principal minors del(2)=",det2,"dir."
write(*,*) "1. order principal minors del(3)=",det3,"dir."
write(*,*) "2. order principal minors del(12)=",det12,"dir."
write(*,*) "2. order principal minors del(13)=",det13,"dir."
write(*,*) "2. order principal minors del(23)=",det23,"dir."
read(*,*) det,det1,det2,det3,det12,det13,det23




end


tongue




Yazar
adaniak


avatar

Kayıt: 13.01.2007
19.04.2007-15:42 #20460
integer i,j,n
character
do

write(*,*) "n SAYISINI GiRiNiZ."
read(*,*) n

do i=1,n
write(*,1) ("x",j=0,n)
1 format(100A1)

end do
write(*,*) "Bi dene daha mı"
read(*,*) cevap
if((cevap=="h").OR.(cevap=="H"))exit
end do
end


beat up





Yazar
adaniak


avatar

Kayıt: 13.01.2007
19.04.2007-15:44 #20461
integer i,j,n
write(*,*) "CARPIM TABLOSU"
write(*,*) "BiR SAYi GiRiNiZ.ORNEGiN 10LARA KADAR OLMASI iCiN 10 GiRiNiZ."
read(*,*) n
do i=1,10
write(*,1) (i*j,j=1,n)
1 format(10I5)

end do

read(*,*) n
end


kiss




Yazar
reccae


avatar
istanbul
banlandı
Kayıt: 15.02.2006
19.04.2007-17:19 #20465
hazır kodu yazmışken özdeğerleri de hesaplatsaydın whistlinglaughing




insa ettigim binanin cimentosu kelâm

1 2 3 4 5
Del.icio.us
Digg
Facebook
Furl
Google
Blink
Simpy
Spurl
Y! MyWeb
iucoders ® 2005-2007
www.iucoders.com
site kuralları