Тема урока: Деловая игра С А В Д Цикл с параметром Цикл с параметром – это циклическая структура, когда тело цикла выполняется, если значение параметра. - презентация

1

2 Тема урока:

3 Деловая игра С А В Д

4 Цикл с параметром Цикл с параметром – это циклическая структура, когда тело цикла выполняется, если значение параметра лежит в указанном интервале.

5 Оператор цикла Оператор цикла служит для организации выполнения циклических процессов (таких, когда одни и те же действия многократно повторяются). Обобщенный оператор цикла имеет следующий синтаксис: :: = ::=

6 Обобщенный оператор цикла имеет следующий синтаксис: :: =

7 Оператор For Синтаксис: ::= Fоr := to dо | Fоr := downto dо

8 Program Sum; Var n: integer; x,s: real; Begin Write (n); readln (n); S:=0 For x:=1 to n Do S:=S+(1/2*x); Writeln (S=,S); Readln; End.

9 1. Дано натуральное число N. Вычислить произведение первых N сомножителей. Р=

10 2. Каждая бактерия в банке делится на две через каждые 3 минуты. В начальный момент имеется 1 бактерия. Сколько бактерий станет в банке через час.

11 3. Даны натуральное число n и действительное число х. вычислить sin x+ sin x2 + sin x3 +…+sin xn

12 4. Вычислить y=sin1+sin1.1+sin 1.2+….+sin 2

13 5. Составить программу вычисления значения функции на отрезке [а,b] с шагом h. Y=2 cosx

14 Информационный диктант 1.Оператор ввода 2.Оператор вывода 3.Оператор перехода 4.Оператор условного перехода 5.Какие логические операции используются в операторе условного перехода? 6.Оператор выбора 7.Составить программу выбора наименьшего из двух чисел, используя оператор Case

15 Какое значение будет принимать переменная S, после выполнения программы: Program Sum; Var n,S: integer; begin n:=7; S:=0; For n:=1 to n Do S:=S+n; Writeln (S=,S); Readln; End.

16 Какое значение будет принимать переменная Х, после выполнения фрагмента программы: a:=7; b:=14; if a>b then x:=a*b else x:=a-b

17 Какое значение будет принимать переменная Х, после выполнения фрагмента программы: a:=2; b:=3; c:=4 if a>b then x:=a+b else begin a:=b+c; x:=a-3*c; end;

18 Ответы 1.Readln (Read) 2.Writeln (Write) 3.Goto 4.If … Then 5.And, or, not, xor 6.Case

19 7 Program min; Var a,b, min: real; begin Write(a,b); Readln (a,b); Case a>b of True: min:=b; False: min:=a; End; Writeln(min=,min :8: 2); End.

20

21 Домашнее задание Одноклеточная амеба каждые три часа делится на две клетки. Определить, сколько амеб будет через 3, 6, 9, 12, …, 24 часа. Составить программу, которая печатает таблицу умножения натуральных чисел в десятичной системе счисления.