Презентация по программированию на Паскале по теме "Альтернатива"

• 1 слайд

  Программы с условием

• 2 слайд

  В альтернативе (алгоритм с условием, ветвление) проверяется условие и в зависимости от результатов проверки выполняется то или иное действие. Блок-схема с условием Краткая форма оператора условияПолная форма оператора условия if условие then оператор1;if условие then оператор1 else оператор2;

• 3 слайд

  Любая встретившаяся часть ELSE соответствует ближайшей к ней «сверху» части THEN условного оператора. Перед ELSE не ставится точка с запятой, так как это один оператор. Если за словами ELSE и THEN необходимо выполнить группу операторов, то тогда используются операторные скобки begin … end, а такая структура называется вложенной: begin If условие then begin оператор1; оператор2; … оператор n end else begin оператор1; оператор2; … оператор n end; End;

• 4 слайд

  Составьте программу для вычисления Y по заданному X. Program z1; Var x, y: real; Begin Readln(x); If x<=10 then y:=210 else y:=x*x*x; Writeln(‘при х= ’, х, ‘y= ’, y); End. Y=

• 5 слайд

  Логические выражения в алгоритмах и программах Часто при решении задач переменные связаны отношениями: =, ≠, ≤, ≥. Если условие выполняется, то говорят, что соответствующее выражение истинно (логическая единица), если не выполняется – выражение ложно (логический ноль). Речь идет о логическом выражении. Для построения сложных условий в Паскале имеются логические операции and (и), or (или), not (не). Построим таблицы истинности для этих операций. Пример. Пусть требуется определить принадлежит ли точка х отрезку [a,b]. Это условие в математике записывается в виде двойного неравенства a≤x≤b. В Паскале двойное неравенство записывается с помощью логических операций: (x>=a) and (x<=b). Если точка не принадлежит отрезку, то запись будет следующий вид иметь: not((x>=a) and (x<=b)) или (x<a) or (x>b). Примечание. Отношения, между которыми стоит логическая операция, заключаются в скобки.

• 6 слайд

  Составьте программу вычислений значений функции: Program z2; Var x, y: real; Begin Readln(x); If x>5 then y:=5*x-7 else begin if (x>=-3) and (x<=5) then y:=sin(x)+cos(x) else y:=exp((-1)*x)+LN(x+11); end; Writeln(‘при х= ’, х, ‘y= ’, y); End. САМОСТОЯТЕЛЬНО СОСТАВЬТЕ БЛОК-СХЕМУ

• 7 слайд

  Составить программу, определяющую, принадлежит ли точка с координатами (x, y) пересечению кругов: (x-1)2+y2=4, (x+1)2+y2=4. Program z3; Var x, y: real; Begin Readln(x,y); If (sqr(x-1)+sqr(y)<=4) and (sqr(x+1)+sqr(y)<=4) then write (‘принадлежит’) else write (‘не принадлежит’); End. САМОСТОЯТЕЛЬНО СОСТАВЬТЕ БЛОК-СХЕМУ

• 8 слайд

  Задания для самостоятельного выполнения (30 минут) Определить можно или нельзя построить треугольник по введенным длинам сторон a, b, c. Определить является ли четырехзначное число «счастливым». Определить является ли введенное двухзначное число четным. ОПИСАТЬ ПЕРЕМЕННЫЕ СОСТАВИТЬ БЛОК-СХЕМУ АЛГОРИТМА