vize,final,not

1 view
Skip to first unread message

ayku...@hotmail.com

unread,
Mar 27, 2009, 2:55:31 PM3/27/09
to Bilgisayar_Programlama_Kou2o
program ykthzl

integer::vize,final
real::ort
character::A,B,C,D,E
20 print*,"vize ve final notunuzu giriniz"
read*,vize,final
ort=vize*4/10+final*6/10
print*,ort
if (ort<50) then
print*,"E"
endif
if (49<ort.AND.ort<61)then
print*,"D"
endif
if (60<ort.AND.ort<80)then
print*,"C"
endif
if (79<ort.AND.ort<90) then
print*,"B"
endif
if (89<ort.AND.ort<101)then
print*,"A"
endif

goto 20


end program


Sevgilerimle..

abdullah erdi önüt

unread,
May 4, 2009, 9:04:37 AM5/4/09
to Bilgisayar_Programlama_Kou2o
guzelmıs....
Reply all
Reply to author
Forward
0 new messages