| Yazar |
|
hagaren
istanbul
Kayıt: 09.10.2006 |
|
60 puanlık olan sınav sorusu.3 kurstan istediğiniz birisini seçip,kayıt yaptıranın ad,soyad ve telefon no sunu dosyaya kaydeden kod.(select case ile)
implicit none
integer telno,secim
character*20 ad,soyad
character*1 cevap
write(*,*)"hangi kursa kayit yapmak istersiniz?"
write(*,*)"1.ingilizce"
write(*,*)"2.fransizca"
write(*,*)"3.ispanyolca"
read(*,*)secim
select case(secim)
1 format(a10,a10,i10)
case(1)
do
open(5,file="ingilizce.txt",form="formatted")
write(*,*)"ad soyad ve telno gir"
read(*,*)ad,soyad,telno
write(5,1)ad,soyad,telno
write(*,*)"baska kayit eklemek istermisiniz?-e/h"
read(*,*)cevap
if (cevap=="h".or.cevap=="H") exit
end do
close (5)
case(2)
do
open(6,file="fransizca.txt",form="formatted")
write(*,*)"ad soyad ve telno gir"
read(*,*)ad,soyad,telno
write(6,1)ad,soyad,telno
write(*,*)"baska kayit eklemek istermisiniz?-e/h"
read(*,*)cevap
if (cevap=="h".or.cevap=="H") exit
end do
close (6)
case(3)
do
open(7,file="ispanyolca.txt",form="formatted")
write(*,*)"ad soyad ve telno gir"
read(*,*)ad,soyad,telno
write(7,1)ad,soyad,telno
write(*,*)"baska kayit eklemek istermisiniz?-e/h"
read(*,*)cevap
if (cevap=="h".or.cevap=="H") exit
end do
close (7)
case default
end select
end
www.erenbasar.com
|
|
|
| Yazar |
|
hagaren
istanbul
Kayıt: 09.10.2006 |
|
40 puanlık soru.x-(2*x-1)/3*x**2+(4*x**3-3)/5*x**2-(6*x**5-5)/7*x**2+..... şeklindeki bir serinin, dışardan N üst sınırı ve X değeri girilmesi ile toplamının bulunması.
implicit none
integer k,i
real N,x,toplam
k=-1
write(*,*)"ust degeri giriniz"
read(*,*)N
write(*,*)"x degerini giriniz"
read(*,*)x
toplam=x
do i=2,N,2
toplam=toplam+k*(i*(x**(i-1))-(i-1))/((i+1)*x**2)
k=-k
end do
write(*,*)"toplam=",toplam
end
www.erenbasar.com
|
|
|
| Yazar |
|
seasun87
Kayıt: 16.02.2007 |
|
Çok teşekkürler kodlar için...
"Bir bilet istiyorum..Sadece gidis olsun..Cocuklugun safligina.."
|
|
|
| Yazar |
|
nohead
Tristram
Kayıt: 26.08.2006 |
|
ramcho yazdi | | | ... bmg final soruları... |
Buradan:
http://www.bilgisayarim.8m.com/BMG2Final.jpg
hagaren yazdi | | | 60 puanlık olan sınav sorusu.3 kurstan istediğiniz birisini seçip,kayıt yaptıranın ad,soyad ve telefon no sunu dosyaya kaydeden kod.(select case ile): ... |
Olm o kodlarda bi hata var, bugün farkettim:) menüden tekrar kaydetmeye çalışırsan önceki kayıtlar siliniyor .. Ben de uzun uzun düşündüm vee şu kodu yazdım
program derskayit
integer secim
character*10 ad,soyad,ogno
character*1 cvp
do
20 write(*,*)
write(*,*)"O-------------------------------------------O"
write(*,*)"I Katilimci Kayit Programi v1.0.1 I"
write(*,*)"I ------------------------------- I"
write(*,*)"I I"
write(*,*)"I Seminerler: I"
write(*,*)"I 1.Artificial Intelligence I"
write(*,*)"I 2.PHP I"
write(*,*)"I 3.Network Security I"
write(*,*)"I I"
write(*,*)"O-------------------------------------------O"
write(*,*)
write(*,*)"Kayit yapilacak seminerin numarasini giriniz:"
11 read(*,*)secim
1 format(3a10)
select case(secim)
case(1)
open(6,file="yapay.txt",form="formatted",action="readwrite")
open(62,status="scratch",form="formatted",action="readwrite")
do
read(6,1,end=161)ad,soyad,ogno
write(62,1)ad,soyad,ogno
end do
161 rewind(6)
write(*,*)"lutfen ad soyad ve ogr. numarasini girin:"
read(*,*)ad,soyad,ogno
write(62,1)ad,soyad,ogno
rewind(62)
do
read(62,1,end=162)ad,soyad,ogno
write(6,1)ad,soyad,ogno
end do
162 rewind(62)
close(62)
close(6)
case(2)
open(7,file="php.txt",form="formatted",action="readwrite")
open(72,status="scratch",form="formatted",action="readwrite")
do
read(7,1,end=171)ad,soyad,ogno
write(72,1)ad,soyad,ogno
end do
171 rewind(7)
write(*,*)"lutfen ad soyad ve ogr. numarasini girin:"
read(*,*)ad,soyad,ogno
write(72,1)ad,soyad,ogno
rewind(72)
do
read(72,1,end=172)ad,soyad,ogno
write(7,1)ad,soyad,ogno
end do
172 rewind(72)
close(72)
close(7)
case(3)
open(8,file="netsec.txt",form="formatted",action="readwrite")
open(82,status="scratch",form="formatted",action="readwrite")
do
read(8,1,end=181)ad,soyad,ogno
write(82,1)ad,soyad,ogno
end do
181 rewind(8)
write(*,*)"lutfen ad soyad ve ogr. numarasini girin:"
read(*,*)ad,soyad,ogno
write(82,1)ad,soyad,ogno
rewind(82)
do
read(82,1,end=182)ad,soyad,ogno
write(8,1)ad,soyad,ogno
end do
182 rewind(82)
close(82)
close(8)
case(4)
goto 20
case default
write(*,*) "Yanlis secim. Lutfen tekrar girin: 1-2-3, menu icin 4"
goto 11
end select
write(*,*)"yeni kayit? e/h"
read(*,*)cvp
if(cvp=="h".or.cvp=="H")exit
end do
end program
"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 |
|
hagaren
istanbul
Kayıt: 09.10.2006 |
|
| | hagaren yazdi | | | 60 puanlık olan sınav sorusu.3 kurstan istediğiniz birisini seçip,kayıt yaptıranın ad,soyad ve telefon no sunu dosyaya kaydeden kod.(select case ile): ... |
Olm o kodlarda bi hata var, bugün farkettim:) menüden tekrar kaydetmeye çalışırsan önceki kayıtlar siliniyor.. Ben de uzun uzun düşündüm vee şu kodu yazdım |
Dediğin doğru ama sınavda hoca zaten ona bakmadı.Sadece dosyanın içine birden fazla kayıt yapılıp yapılamadığına baktı, yani varolan bir dosyaya yeni kayıtlar eklenip eklenemediğini incelemedi.Ama tabi ki senin yaptığın daha kapsamlı ve daha güzel olmuş, teşekkürler dostum
www.erenbasar.com
|
|
|
| Yazar |
|
burakkanmaz
Gaziantep
Kayıt: 02.10.2006 |
|
hagaren yazdi | | | yani varolan bir dosyaya yeni kayıtlar eklenip eklenemediğini incelemedi. |
bazı hocalar buna da dikkat ediyordu. bunu şu kodla yapabilirsiniz, burdaki kalın puntolu kod, önceki kayıtları silmeden en alttan eklemeye devam etmeye yarar (cümle biraz karışık oldu )
nohead yazdi | | | Olm o kodlarda bi hata var, bugün farkettim:) menüden tekrar kaydetmeye çalışırsan önceki kayıtlar siliniyor.. Ben de uzun uzun düşündüm |
valla helal olsun nohead çok süper düşünmüşsün kayıtı sona eklemeyi. ama access=append le daha kısa olduğu için bunu kullanmak daha iyi olabilir
open(8,file="netsec.txt",form="formatted",action="readwrite",access="append")
|
|
|
| Yazar |
|
nohead
Tristram
Kayıt: 26.08.2006 |
|
 "append" i nasıl kullanırım bilmiyordum=) access="append" ile çok daha kısalır o kod:D Teşekkürler..
"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 |
|
hagaren
istanbul
Kayıt: 09.10.2006 |
|
Cidden, append in ne olduğunu ben de bilmiyordum, çok makbule geçti.Teşekkürler Burak
www.erenbasar.com
|
|
|
|
|
-
 Del.icio.us
-
 Digg
-
 Facebook
-
 Furl
-
 Google
-
 Blink
-
 Simpy
-
 Spurl
-
 Y! MyWeb
|
|
| | | | |
