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

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

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

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

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

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

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

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

начало Ввод 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

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

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

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

начало Ввод 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.

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

начало Ввод 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.

начало Ввод 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.

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

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

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

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

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

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

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

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

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

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

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

Графика

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

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

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).

Вычислить