Not Hesaplama
0 views
Skip to first unread message
enest...@gmail.com
Mar 27, 2009, 8:08:42 AM3/27/09
to Bilgisayar_Programlama_Kou2o
program hesaplama
integer::vize,final,butunleme
real::yilsonu
print*,"Not Hesaplama Programi"
10 print*,"Vize Ve Final Sinav Notunuzu Girin"
read*,vize,final
yilsonu=vize*40.0/100+final*60.0/100
if ((vize>100).or.(final>100)) then
print*,"YANLIS DEGER TEKRAR DENEYIN",vize,final
goto 5
else if ((final>49).and.(yilsonu>49)) then
print*,"Basarili",yilsonu,final
goto 5
end if
if (final<50) then
print*,"Butunlemeye Kaldin"
print*,"Butunleme Notunu Gir"
read*,butunleme
yilsonu=vize*40.0/100+butunleme*60.0/100
end if
if ((butunleme>49).and.(yilsonu>49)) then
print*,"Gectin",yilsonu
else
print*,"Kaldin"
goto 5
end if
5 goto 10
end program
integer::vize,final,butunleme
real::yilsonu
print*,"Not Hesaplama Programi"
10 print*,"Vize Ve Final Sinav Notunuzu Girin"
read*,vize,final
yilsonu=vize*40.0/100+final*60.0/100
if ((vize>100).or.(final>100)) then
print*,"YANLIS DEGER TEKRAR DENEYIN",vize,final
goto 5
else if ((final>49).and.(yilsonu>49)) then
print*,"Basarili",yilsonu,final
goto 5
end if
if (final<50) then
print*,"Butunlemeye Kaldin"
print*,"Butunleme Notunu Gir"
read*,butunleme
yilsonu=vize*40.0/100+butunleme*60.0/100
end if
if ((butunleme>49).and.(yilsonu>49)) then
print*,"Gectin",yilsonu
else
print*,"Kaldin"
goto 5
end if
5 goto 10
end program
abdullah erdi önüt
Mar 27, 2009, 10:08:41 AM3/27/09
to Bilgisayar_Programlama_Kou2o
guzel cok guzel bır calısma basarılar yalnız bıraz fazla uzatmıssın
beah kocum
bana ole geldı en azından haberın olsun...
beah kocum
bana ole geldı en azından haberın olsun...
soner akbaş
Mar 27, 2009, 10:44:15 AM3/27/09
to bilgisayar_pro...@googlegroups.com
ya ben bunun harflisini yapmıstım.ama silmisim ya.tekrar yapıp göndercem
> Date: Fri, 27 Mar 2009 07:08:41 -0700
> Subject: Re: Not Hesaplama
> From: apo...@gmail.com
> To: bilgisayar_pro...@googlegroups.com
> Date: Fri, 27 Mar 2009 07:08:41 -0700
> Subject: Re: Not Hesaplama
> From: apo...@gmail.com
> To: bilgisayar_pro...@googlegroups.com
> Windows Live™ ile e-posta kutunuzdaki işlevlerin çok ötesine geçin.
Diğer Windows Live™ özelliklerine göz atın.
Message has been deleted
enest...@gmail.com
Mar 30, 2009, 7:46:58 AM3/30/09
to Bilgisayar_Programlama_Kou2o
program hesaplama
character::cevap
integer::vize,final,butunleme
real::yilsonu
print*,"Yilsonu Ortalama Programi"
10 print*,"Vize Ve Final Sinav Notunuzu Girin"
read*,vize,final
yilsonu=vize*40.0/100+final*60.0/100
if ((vize>100).or.(final>100)) then
print*,"YANLIS DEGER TEKRAR DENEYIN",vize,final
goto 5
else if ((final>49).and.(yilsonu>49)) then
print*,"Basarili",yilsonu,final
goto 3
end if
if (final<50) then
print*,"Butunlemeye Kaldin"
print*,"Butunleme Notunu Gir"
read*,butunleme
yilsonu=vize*40.0/100+butunleme*60.0/100
end if
if ((butunleme>49).and.(yilsonu>49)) then
print*,"Gectin",yilsonu
else
print*,"Kaldin"
goto 3
end if
3 print*,"Programdan cikmak istermisiniz?(e/h)?"
read*,cevap
if ((cevap=="h").or.(cevap=="H")) then
goto 5
else
goto 20
end if
5 goto 10
Çıkma Komutunu da ekledim...
character::cevap
integer::vize,final,butunleme
real::yilsonu
print*,"Yilsonu Ortalama Programi"
10 print*,"Vize Ve Final Sinav Notunuzu Girin"
read*,vize,final
yilsonu=vize*40.0/100+final*60.0/100
if ((vize>100).or.(final>100)) then
print*,"YANLIS DEGER TEKRAR DENEYIN",vize,final
goto 5
else if ((final>49).and.(yilsonu>49)) then
print*,"Basarili",yilsonu,final
end if
if (final<50) then
print*,"Butunlemeye Kaldin"
print*,"Butunleme Notunu Gir"
read*,butunleme
yilsonu=vize*40.0/100+butunleme*60.0/100
end if
if ((butunleme>49).and.(yilsonu>49)) then
print*,"Gectin",yilsonu
else
print*,"Kaldin"
end if
3 print*,"Programdan cikmak istermisiniz?(e/h)?"
read*,cevap
if ((cevap=="h").or.(cevap=="H")) then
goto 5
else
goto 20
end if
5 goto 10
Reply all
Reply to author
Forward
0 new messages