program a1; var c: integer; begin c = 100; writeln (c) end. ; : - презентация

1

2 program a1; var c: integer; begin c = 100; writeln (c) end. ; :

3 program a2; var a: integer; b: real; begin a: = 100; b:= 20.5; writeln (a,b); end.

4 program a3; var c integer; begin c = 100; writeln (c); end. :

5 If a=b then a:=a+b else a:=a-b; ;

6 If a=b then a:=a+b else a:=a-b;

7 begin a: integer; program a1; var b: integer; b:= 21; writeln (b); b:=b/3; writeln (b); end.

8 program a1; var b: integer; begin b:= 21; writeln (b); b:=b/3; writeln (b); end.

9 a :=3; b := 4; if a>b then x := a * b else x := a ; 3

10 a :=4; b := 5; c := 3; if a>b then x := a + b else begin a := b + c; x := a – 3*b end; -7

11 a :=9; b := 8; c := 2; if (a>b) and (b>c) then x := 2 * a + b + c else x := a – b + c; 28

12 FOR k := 1 TO 4 do Write(k);

13 y := 0; FOR x := 1 TO 3 do y := y + 1; Writeln (y); 3

14 y := 0; FOR x := 1 TO 3 do begin y := y + 1; Writeln (y); end; 1 2 3

15 a :=4; b := 5; for i:=1 to 10 do if i mod 2=0 then writeln (i); Writeln (a);

16

17 НОД(12,16)=2 *2=

18 1.Разложить число на простые множители. Алгоритм нахождения НОД: 2.Найти общие множители. 3.Найти их произведение.

19

20 Вычитайте из большего числа меньшее, пока числа не сравняются, заменяя большее число разностью НОД(48,18)=6

21 Условие ДаНет Тело цикла Блок-схема цикла «Пока»

22 Общая схема записи цикла с предусловием while do begin end;

23 А=В ? Да В:=В-А Ввод А, В Вывод НОД Нет A>B ? Нет А:=А-В

24

25 1.Если заранее определено число повторений тела цикла, то используем цикл с параметром FOR. 2. Если заранее не определено число повторений, то используем цикл WHILE. Критерий выбора цикла:

26 1)Дед Мороз готовит для новогодней елки одинаковые подарки. Во все подарки он разложил 123 апельсина и 82 яблока. Сколько ребят получат подарки? Сколько апельсинов и сколько яблок было в каждом подарке? 2)Для поездки за город работникам фирмы было выделено несколько автобусов с одинаковым числом мест в каждом. В лес поехали 424 человека, а на озеро 477. Все мета в автобусе были заняты и ни одного человека не осталось без места. Сколько автобусов было выделено и сколько пассажиров было в каждом автобусе?

27