Предмет: Информатика,
автор: iriska35
Найти среднее арифметическое чисел от 1 до n( n- вводится с клавиатуры)
В Basic - 256....
Составить не менее 2 видов циклов.
Ответы
Автор ответа:
0
cls
rem a
let sum=0
let sred=0
let n=0
let i=1
input "n=";n
for i=1 to n step 1
input b
sum=sum+b
next n
sred=sum/n
print "Sred = ";sred
end
rem a
let sum=0
let sred=0
let n=0
let i=1
input "n=";n
for i=1 to n step 1
input b
sum=sum+b
next n
sred=sum/n
print "Sred = ";sred
end
iriska35:
А если циклом с параметром?
и постусловием?
в данном алгоритме представлен цикл с параметром. Можно заменить цикл на постусловие с помощью опрераторов Do While и Loop:
cls
rem a
let sum=0
let sred=0
let n=0
let i=1
input "n=";n
Do While i <= n
input b
sum=sum+b
Loop
sred=sum/n
print "Sred = ";sred
end
cls
rem a
let sum=0
let sred=0
let n=0
let i=1
input "n=";n
Do While i <= n
input b
sum=sum+b
Loop
sred=sum/n
print "Sred = ";sred
end
Не дописал.
cls
rem a
let sum=0
let sred=0
let n=0
let i=1
input "n=";n
Do While i <= n
input b
sum=sum+b
i = i + 1
Loop
sred=sum/n
print "Sred = ";sred
end
cls
rem a
let sum=0
let sred=0
let n=0
let i=1
input "n=";n
Do While i <= n
input b
sum=sum+b
i = i + 1
Loop
sred=sum/n
print "Sred = ";sred
end
Похожие вопросы
Предмет: Русский язык,
автор: car15
Предмет: Українська мова,
автор: Арсшмомо
Предмет: Українська мова,
автор: віка183
Предмет: Английский язык,
автор: TvoiNasok8
Предмет: Английский язык,
автор: TvoiNasok8