Организация циклов. Команды QBasic

Слайд 2

№1. Найти сумму и произведение первых 6 последовательных натуральных чисел. CLS

№1. Найти сумму и произведение первых 6 последовательных натуральных чисел.

CLS
S=0
P=1
FOR x

= 1 TO 6
s = s + x
p = p * x
NEXT x
PRINT “s=”s
PRINT “p=”p
END
Слайд 3

№2. Найти сумму первых k последовательных нечетных чисел. Тест: Ввод: k=7;

№2. Найти сумму первых k последовательных нечетных чисел.

Тест:
Ввод: k=7;
Вывод: S=16;
CLS
S=0
INPUT

“k=“ k
FOR x = 1 TO k STEP 2
s = s + x
NEXT x
PRINT “s=”s
END

x = 1 ( 2 ) k

s := s + x

Вывод s

s := 0

начало

конец

Ввод k

Слайд 4

№3. Найти произведение последовательных натуральных чисел от n до m (n>m).

№3. Найти произведение последовательных натуральных чисел от n до m (n>m).


Тест:
Ввод: n=5; m=3;
Вывод: p=60
CLS
p=1
INPUT “n(n>m)=”; n
INPUT “m=”; m
FOR x = n TO m STEP -1
p = p * x
NEXT x
PRINT “p=”p
END

x = n ( -1 ) m

p := p * x

Ввод n,m

Вывод p

p := 1

начало

конец

Слайд 5

№4. Найти сумму последовательных натуральных чисел от 9 до 6. Тест:

№4. Найти сумму последовательных натуральных чисел от 9 до 6.

Тест:
Вывод: s=30
CLS
s=0
FOR x = 9 TO 6
STEP -1
s = s + x
NEXT x
PRINT “s=”s
END

x = 9 ( -1 ) 6

s := s + x

Вывод s

s := 0

начало

конец

Слайд 6

№5. Найти сумму и произведение первых a последовательных натуральных чисел. Тест:

№5. Найти сумму и произведение первых a последовательных натуральных чисел.

Тест:
Ввод: a=4
Вывод: s=10; р=24;
CLS
S=0
Р=1
INPUT “a=”; a
FOR x = 1 TO a
s = s + x
р = р * x
NEXT x
PRINT “s=”s
PRINT “p=”p
END

x = 1( 1 ) a

s := s + x

Вывод s,p

p :=1

начало

конец

s := 0

p := p * x

Ввод a