Урок  Циклические алгоритмы с предусловием.

 

ЗАДАЧА 1.

 

Составить  программу  вычисляющие сумму чисел:

S =  2 + 4 + 6 + 8 + … + 20

 

ПРОГРАММА    на   БЕЙСИКЕ      

            

PRINT  “Сумма чисел

 

INPUT  “Ввести число “, n

 

S = 0

 

FOR  i = 2   TO n   STEP 2

 

      S = S + i

 

      PRINT    i, s

 

NEXT  i

 

PRINT    “Сумма = “, S

 

 

      В некоторых случаях нельзя заранее предугадать, сколько раз будет необходимо выполнять действия. Например, Тетушка, послав белить забор Тома, сказала "будешь красить забор, пока ...."  

    

        В таких случаях удобнее использовать не конкретный параметр, а некоторое заранее заданное условие:

 

ЗАДАЧА 2.

 

Решим предыдущую задачу, используя

цикл с предусловием

ПРОГРАММА    на   БЕЙСИКЕ

 

 

PRINT  “Сумма чисел

S = 0

i = 2

 

WHILE   i <=20

 

     S = S + i

     i = i + 2

     PRINT    i, S

 

WEND

 

 

PRINT    “Сумма = “, S

 

ЗАДАЧА 3.

 

       Составить  блок-схему  и  программу  вычисляющие сумму чисел  S =  1 + 7 + 13 + 19  …  до тех пор пока сумма не превышает 1000.

ПРОГРАММА    на   БЕЙСИКЕ

 

PRINT  “Сумма чисел

S = 0

i = 1

 

WHILE   s <= 1000

     

      S = S + i

      i = i + 6

     PRINT    i, s

 

WEND

 

PRINT  “Сумма = “, S

 

 

 

ЗАДАЧА 4.

 

       Изменить программу  предыдущей задачи так, чтобы она считала количество слагаемых.

 

ПРОГРАММА    на   БЕЙСИКЕ

 

PRINT  “Сумма чисел

S = 0

i = 1

k = 0

WHILE   s <= 1000

     

      S = S + i

      i = i + 6

      k = k + 1

      PRINT    i, s

WEND

PRINT  “Количество слагаемых = “, k

 

 

 

Домашнее задание - составить программы для следующих задач:

   Задача 1. Составить  блок-схему  и  программу  определяющие количество членов арифметической прогрессии  S =  5 + 9 + 13 + 17 + … = 324