tekrar merhaba, ben amacımı söyliyeyim siz ona göre yardım edin :)fortran da öyle bir program yazmak istiyorum ki:-program önce laptopun alındığı ülkeyi veya ülkenin para birimini, sonra laptopun tutarını sorsun. -akabinde girilen verilere göre ülkenin parasını tl ye çevirsin.-en sonda da belirlediğ
tekrar merhaba,
ben amacımı söyliyeyim siz ona göre yardım edin :)
fortran da öyle bir program yazmak istiyorum ki:
-program önce laptopun alındığı ülkeyi veya ülkenin para birimini, sonra laptopun tutarını sorsun.
-akabinde girilen verilere göre ülkenin parasını tl ye çevirsin.
-en sonda da belirlediğimiz aralıklara göre laptopun pahalı ya da ucuz olduğunu söylesin.
---tüm bunlar için yazdığım programın kodu:---
program hmwrk2
character (len=11)::dollar, yen, tl, sterlin, england, usa, germany, turkey, japan, unit, euro
real::p, t
print*, "please enter the name of country or Money Unit in which laptop is sold"
read*, unit
if (unit==dollar .or. unit==usa) then
print*, "please enter the price of the laptop computer"
read*, price
t = p * 1.46
else if (unit==euro .or. unit==germany) then
print*, "please enter the price of the laptop computer"
read*, p
t = p * 1.48
else if (unit==yen .or. unit==japan) then
print*, "please enter the price of the laptop computer"
read*, p
t = price * 0.02
else
end if
if (t<1750) then
print*,"laptop computer is",t,"TL","and it is very cheap!"
else if (t<2000 .and. t>1750) then
print*, "laptop computer is",t,"TL","and it is cheap!"
else if (t<2200 .and. t>2000) then
print*,"laptop computer is",t,"TL","and it is expensive!"
else if then
print*,"laptop computer is",t,"TL","and it is very expensive!"
else
end if
end program hmwrk2
şimdiden teşekkürler.
0
programın derleme aşamasında mı hata verdi? yoksa derlendi ama düzgün çalışmadı mı? sorunun ne olduğunu yazmalısın.
bir de; if ifadelerinde en sonda else kısmında bir şey yazmıyorsun o yüzden o bölgeyi kaldır.
0
program çalıştı, bana "unit" değerini sordu girdiğimde de şu hatayı verdi:
i42.tinypic.com
0
usa,dollar,euro,germany,yen ve japan 'ı değişken olarak tanımlamışsın ama bunlar sadece karakter. if ifadesinin içinde " işareti arasına alınmalı "usa" gibi. programın başındaki tanımlamalarını da silersen sorun ortadan kalkacaktır.
0
çok teşekkürler. bir de p yerine price girmişim. düzeltince sorunsuz çalıştı.
0