vize,final,not
1 view
Skip to first unread message
ayku...@hotmail.com
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..
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
May 4, 2009, 9:04:37 AM5/4/09
to Bilgisayar_Programlama_Kou2o
guzelmıs....
Reply all
Reply to author
Forward
0 new messages