-1
У меня есть цикл for с операторами if. По какой-то причине код не оценивает, когда i = .01, по-видимому, по-прежнему оценивает предыдущий оператор if. Код производит это:индекс идет не так, как в цикле for и если в R
boom for change 0.01 needs 0 quarters, 0 dimes, 0 nickels and 1 pennies
boom for change 0.02 needs 0 quarters, 0 dimes, 0 nickels and 2 pennies
boom for change 0.03 needs 0 quarters, 0 dimes, 0 nickels and 3 pennies
boom for change 0.04 needs 0 quarters, 0 dimes, 0 nickels and 4 pennies
zoom for change 0.05 needs 0 quarters, 0 dimes, 1 nickels and 0 pennies
zoom for change 0.06 needs 0 quarters, 0 dimes, 1 nickels and 1 pennies
zoom for change 0.07 needs 0 quarters, 0 dimes, 1 nickels and 2 pennies
zoom for change 0.08 needs 0 quarters, 0 dimes, 1 nickels and 3 pennies
zoom for change 0.09 needs 0 quarters, 0 dimes, 1 nickels and 4 pennies
zoom for change 0.1 needs 0 quarters, 0 dimes, 1 nickels and 5 pennies
Однако я хочу, чтобы последняя строка читать
haha for change 0.1 needs 0 quarters, 1 dimes, 0 nickels and 0 pennies
Вот мой код, вы можете запустить его и получить все те же результаты, у меня есть.
testchange <- seq(.01,.1, by =.01)
q <- .25
d <- .1
n <- .05
p <- .01
qNumber <- 0
dNumber <- 0
nNumber <- 0
pNumber <- 0
for(i in testchange)
{
if(i < .05)
{pNumber <- (i*100)
testy <- "boom"}
else if(i >= .05 & i < .1)
{
testy <- "zoom"
if(i%%n == 0)
{nNumber <- (i/n)
newNum3 <- 0}
else if(i%%n != 0)
{newNum3 <- (100*(i%%n))}
if(newNum3 < 5)
{
pNumber <- newNum3
}
}
if(i >= .1 & i < .25)
{
testy <- "haha"
if(i%%d == 0)
{dNumber <- (i/d)
newNum2 <- 0
newNum3 <- 0}
else if(i%%d != 0)
{newNum2 <- (100*(i%%d))}
if(newNum2 >=5)
{
if(newNum2%%n == 0)
{nNumber <- (i/n)
newNum3 <- 0}
else if(newNum2%%n != 0)
{ newNum3 <- (100*(i%%n))}
}
if(newNum2 < 5)
{
pNumber <- newNum2
}
if(newNum3 < 5)
{
pNumber <- newNum3
}
}
cat(testy, "for change " , i , " needs " , qNumber
, " quarters, " , dNumber , " dimes, " , nNumber
, " nickels and " , pNumber , " pennies","\n")
}
Произведите http://stackoverflow.com/help/mcve и сделайте что-нибудь с отступом, чтобы сделать ваш код более удобочитаемым. – user31264
просто запустите его и автоинденент в своем редакторе ..... –
Я не собираюсь это делать. Вы хотите, чтобы мы тратили свое время и помогали вам бесплатно, поэтому вы должны приложить все усилия, чтобы сделать это легко. – user31264