Beata
Ostrowska
Controller, Grupa
Azoty
Wojciech
Obłąk
Programista, Asseco
Poland
#losowanie i zaokrąglenie
v4 <- rnorm(300,mean=100,sd=10)
v <- round(v4,0)
#deklaracja wektorów
y <- numeric(0) #wektor parzystych
z <- numeric(0) #wektor nieparzystych
#pętla odpowiednio uzupełniająca wektory elementami wektora v
for (i in 1:length(v)) {
if(v[i]%%2==0) {
y <- c(y,v[i])
} else {
z <- c(z,v[i])
}
i=i+1
}
#komunikat
cat("wylosowane liczby parzyste to: ",y)
cat("wylosowane liczby nieparzyste to: ",z)
Beata
Ostrowska
Controller, Grupa
Azoty
Acg N. .
> y <- 1
> while( y < 10 ) {
+ print(y)
+ y <- y+2
+ }
[1] 1
[1] 3
[1] 5
[1] 7
[1] 9
Beata
Ostrowska
Controller, Grupa
Azoty
Acg N. .
Wojciech O.:
v4 <- rnorm(300,mean=100,sd=10)
v <- round(v4,0)
y <- numeric(0) #wektor parzystych
z <- numeric(0) #wektor nieparzystych
#pętla odpowiednio uzupełniająca wektory elementami wektora v
for (i in v) {
if( i %% 2 == 0) {
y <- c(y, i)
} else {
z <- c(z, i)
}
}
Acg N. .
Beata O.:> y<-v%%2}
Chodzi o coś takiego., w dobrym kierunku zmierzam?
while(y<v){print(y)
los <- rnorm(300,mean=100,sd=10)
zaokr_los <- round(los ,0)
parz <- numeric(0)
nieparz <- numeric(0)
i <- 1
while(i <= length(zaokr_los)) {
liczba <- zaokr_los[i]
if(liczba %% 2 == 0) {
parz <- c(parz, liczba)
} else {
nieparz <- c(nieparz, liczba)
}
i <- i+1
}
Następna dyskusja:
пропозиції роботи
