Найти сумму цифр двузначного числа Дано: chislo Найти: cifra Связь: cifra= (chislo div 10) +(chislo mod 10) - презентация

1 Найти сумму цифр двузначного числа Дано: chislo Найти: cifra Связь: cifra= (chislo div 10) +(chislo mod 10)

2 Cifra:= chislo div 10 Cifra:= cifra+chislo mod 10 chislo cifra начало конец

3 Var chislo, cifra: byte; Begin Write(Введите число =); ReadLn(chislo); cifra:= chislo div 10; cifra:= cifra+chislo mod 10; writeLn(Сумма цифр числа -, cifra); end.

4 Составить свою визитную карточку. ******************************* * Иванов Сергей * * Пролетарская 74 кв. 55 * * Телефон * *******************************

5 Алгоритмы с ветвящейся структурой Разветвляющиеся алгоритмы 26 ноября 2013 г.

6 Даны два числа; выбрать большее из них Дано: a, b. Найти с Связь с=

7 начало Ввод a, b a>b c:=ac:=b Вывод с конец да нет

8 Условием, по которому разветвляется алгоритм, является отношение неравенства a>b. Такое отношение называется логическим условием. Если оно справедливо, то результатом будет логическая величина «истина», выполнение алгоритма пойдет по ветке «да»; в противном случае логическое выражение примет значение «ложь», выполнение алгоритма пойдет по ветке «нет»

9 начало Ввод a, b a>b c:=ac:=b Вывод с конец да нет Program srav; Var a,b,c: integer; begin write(a=); Readln(a); write(b=); Readln(b); If a>b then c:=a else c:=b; Writeln (Наибольшее,c); end. шагоперацияabc проверка условия 1ввод a, b58 2a>b58 ЛОЖЬ 3c:=b588 4вывод с588

10 шагоперацияabc проверка условия 1ввод a, b шагоперацияabc проверка условия 1ввод a, b23 2a>b23ложь 3c:=b233 4вывод с233

11 шагоперацияabc проверка условия 1ввод a, b шагоперацияabc проверка условия 1ввод a, b74 2a>b74истина 3c:=a747 4вывод с747

12 шагоперацияabc проверка условия 1ввод a, b шагоперацияabc проверка условия 1ввод a, b55 2a>b55ложь 3c:=b555 4вывод с555

13 начало Ввод a, b b>c c:=b Вывод с конец да нет c:=a Не полное ветвление Program srav; Var a,b,c: integer; begin write(a=); Readln(a); write(b=); Readln(b); c:= a; If b>c then c:=b; Writeln (Наибольшее,c); end.

14 Оператор ветвления в Паскале If then else если то иначе

15 начало Ввод a, b a>b c:=ac:=b Вывод с конец да нет Program srav; Var a,b,c: integer; begin write(a=); Readln(a); write(b=); Readln(b); If a>b then c:=a else c:=b; Writeln (Наибольшее,c); end.

16 начало Ввод a, b b>c c:=b Вывод с конец да нет c:=a Не полное ветвление Program srav; Var a,b,c: integer; begin write(a=); Readln(a); write(b=); Readln(b); c:= a; If b>c then c:=b; Writeln (Наибольшее,c); end.

17 Операции отношения < меньше > больше = больше или равно = равно не равно

18 Установить истинность выражение 5>4 4=

19 ЛОГИЧЕСКИЕ УСЛОВИЯ

20 Логическое И And (и) – логическая операция, которая принимает значение истины (выполняется условие), если входящие выражения выполняются Пример: 0x=0) и (x =0) and (x

21 Логическое И Or (или) – логическая операция, которая принимает значение истины (выполняется условие), если хотя бы одно входящие выражения выполняется Пример: x (-, -5] (4, ] Это означает (x 4) на Паскале (x 4)

22 Отрицание Not – унарная операция, которая меняет значение истинности. Пример: X – положительное. X – неположительное – X>0x 0)

23 Запишите логические выражения X – положительное X [1,3] x (-, -5] (4, ] X – четное число X – нечетное число X – делиться на 5

24 Вычислить Дано: x Найти y Связь

25 Вычислить Если x

26 начало Ввод x x

27 Домашнее задание Найти наименьшее из двух чисел Найти наибольшее из трех чисел 1 1 x y

28 Графика

29 Pascal USES Graph; VAR GrDr, GrMd : integer; BEGIN GrDr := detect; InitGraph( GrDr, GrMd, c:\bp\bgi ); { теперь можно вызывать графические процедуры } CloseGraph; END.

30 Система координат

31 Line (X1, Y1, X2, Y2), где переменные X1, Y1, X2, Y2 типа Integer - рисуется линия от точки (X1, Y1) до точки (X2, Y2). LineTo (X, Y), где переменные X, Y типа Integer - рисуется линия из точки, где находится в данный момент курсор в точку (X, Y). LineRel (dX,dY), где переменные dX, dY типа Integer - рисуется линия из точки, где находится в данный момент курсор (X, Y) в точку (X+dX,Y+dY).

32 Вычислить