Повторение изученного материала. 1.Структура программы Program Uses Label Const Type Var Procedure (Function) Begin Раздел операторов End. Раздел описаний. - презентация

1 Повторение изученного материала

2 1. Структура программы Program Uses Label Const Type Var Procedure (Function) Begin Раздел операторов End. Раздел описаний Раздел операторов

3 Выражение Операции 1. Арифметические операции 2. Операции отношения 3. Логические операции 4. Строковые операции

4 Выражение 1. x+10/(x*y+2) 2. (x+10)/xy+2 3. x+10/x*y+2 4. (x+10)/(x*y+2) 5. (x+10)/(xy+2)

5 Порядок выполнения операций Not *, /, div, mod,and +,-, or, xor Операции отношения z := (5*a*c+3*(c-d))/a*(b-c)/ b; x:=(a*a+5*c*c-d*(a+b))/((c+d)*(d-2*a));

6 Алгоритм великий восточный ученый Мухаммед Аль Хорезми

7 Свойства алгоритма Понятность ТочностьДискретность Массовость Эффектив- ность Результатив- ность

8 Неразлучное трио ЛинейныйIntegerIf Пред- условие Пост- условие Then ЦиклическийByte Word Разветвля- ющийся Else Параметр Линейный Циклический Разветвля- ющийся Integer Word Byte If Then Пост- условие Else Параметр Пред- условие

9 Линейный Разветвляющийся Циклический

10 Пример программы Program primer; Uses crt; Var n:integer; Begin ClrScr; writeln(введите n); readln(n); x:=2n+1; writln(x=, x); Readln; End. Program primer; Uses crt; Var n:integer; Begin ClrScr; writeln(введите n); readln(n); x:=2n+1; writln(x=, x); Readln; End. Var n,x:integer; x:=2*n+1; Writeln(x=,x);

11 program qq; var a, b: integer; x, y: real; begin a := 5; 10 := x; y := 7,8; b := 2.5; x := 2*(a + y); a := b + x; end. program qq; var a, b: integer; x, y: real; begin a := 5; 10 := x; y := 7,8; b := 2.5; x := 2*(a + y); a := b + x; end. Какие операторы неправильные? имя переменной должно быть слева от знака := целая и дробная часть отделяются точкой нельзя записывать вещественное значение в целую переменную

12 Ручная прокрутка программы program qq; var a, b: integer; begin a := 5; b := a + 2; a := (a + 2)*(b – 3); b := a div 5; a := a mod b; a := a + 1; b := (a + 14) mod 7; end. program qq; var a, b: integer; begin a := 5; b := a + 2; a := (a + 2)*(b – 3); b := a div 5; a := a mod b; a := a + 1; b := (a + 14) mod 7; end. ab ??

13 IF THEN ELSE

14 а:=53; в:=14; If а в then х:=а+в else х:=2*а-4*в;

15 а:=5; в:=4; с:=3; If а < в then х:=а+в else Begin а:=в+с; х:=а-3*в; End;

16 а:=9; в:=8; с:=2; If (а>в) and (в>с) then х:=2*а+в+с else х:=а-в+с;

17 Что неправильно? if a > b then begin a := b; else b := a; if a > b then begin a := b; else b := a; if a > b then begin a := b; end; else b := a; if a > b then begin a := b; end; else b := a; if a > b then a := b; else b := a; end; if a > b then a := b; else b := a; end; a := b end a := b

18 Оператор выбора Case case K of A1: ; A2: ; AN: ; else end;

19 Составить программу, которая по введенном номеру месяца выводит на экран название времени года

20 Блок - схема начало конец оператор выбора ни один вариант не подошел да нет M = 6,7,8 M =9,10,11 Такого месяца нет да нет M = 1,2,12 M = 3,4,5 ввод M Зима Весна Лето Осень

21 «Том вышел на улицу с ведром известки и длинной кистью. Он окинул взглядом забор, и радость в одно мгновение улетела у него из души, и там воцарилась тоска... Со вздохом обмакнул он кисть в известку, провел ею по крайней доске, потом проделал то же самое снова и остановился: как ничтожна белая полоска по сравнению с огромным пространством некрашеного забора!..» Марк Твен

22 Блок - схема начало конец красить i := 1 до 50 блок "цикл" тело цикла

23 Циклические операторы Turbo Pascal. Цикл с параметром. Цикл с предусловием Цикл постусловием Цикл с параметром

24 for := to do begin {тело цикла} end; for := to do begin {тело цикла} end; Увеличение переменной на 1: for := downto do begin {тело цикла} end; for := downto do begin {тело цикла} end; Уменьшение переменной на 1:

25 Цикл с параметром Особенности: переменная цикла может быть только целой ( integer ) шаг изменения переменной цикла всегда равен 1 ( to ) или -1 ( downto ) если в теле цикла только один оператор, слова begin и end можно не писать: если конечное значение меньше начального, цикл ( to ) не выполняется ни разу (проверка условия в начале цикла, цикл с предусловием) for i:=1 to 8 do writeln('Привет'); for i:=1 to 8 do writeln('Привет');

26 Сколько раз выполняется цикл? a := 1; for i:=1 to 3 do a := a+1; a := 1; for i:=1 to 3 do a := a+1; a = 4a = 4 a = 4a = 4 a := 1; for i:=3 to 1 do a := a+1; a := 1; for i:=3 to 1 do a := a+1; a = 1a = 1 a = 1a = 1 a := 1; for i:=1 downto 3 do a := a+1; a := 1; for i:=1 downto 3 do a := a+1; a = 1a = 1 a = 1a = 1 a := 1; for i:=3 downto 1 do a := a+1; a := 1; for i:=3 downto 1 do a := a+1; a = 4a = 4 a = 4a = 4

27 Задача. Вывести на экран квадраты и кубы целых чисел от 1 до 8 (от a до b). Особенность: одинаковые действия выполняются 8 раз.

28 Алгоритм (с блоком "цикл") начало i, i2, i3 конец i2 := i * i; i3 := i2 * i; i := 1,8 блок "цикл" тело цикла

29 Программа program qq; var i, i2, i3: integer; begin for i:=1 to 8 do begin i2 := i*i; i3 := i2*i; writeln(i:4, i2:4, i3:4); end; end. переменная цикла начальное значение конечное значение

30 Домашнее задание 1. Оператор выбора Case. 2. Понятие цикла. Виды циклов. 3. Цикл с параметром. Решить задачу: даны натуральные числа x и y. Вычислить произведение x*y, используя только операцию сложения.