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


Программы с условием В альтернативе (алгоритм с условием, ветвление) проверяется условие и в зависимости от результатов проверки выполняется то или иное действие. if условие then оператор1 else оператор2; if условие then оператор1; Полная форма оператора условия Краткая форма оператора условия условие нет Да (условие выполняется) Оператор 1 Оператор 2 Блок-схема с условием Любая встретившаяся часть ELSE соответствует ближайшей к ней «сверху» части THEN условного оператора. Перед ELSE не ставится точка с запятой, так как это один оператор. Если за словами ELSE и THEN необходимо выполнить группу операторов, то тогда используются операторные скобки begin … end, а такая структура называется вложенной: begin If условие then begin оператор1; оператор2; … оператор nend else beginоператор1;оператор2;…оператор nend;End; Составьте программу для вычисления Y по заданному X. Program z1;Var x, y: real;BeginReadln(x);If x<=10 then y:=210 else y:=x*x*x;Writeln(‘при х= ’, х, ‘y= ’, y);End. Y= Логические выражения в алгоритмах и программахЧасто при решении задач переменные связаны отношениями: =, ≠, ≤, ≥. Если условие выполняется, то говорят, что соответствующее выражение истинно (логическая единица), если не выполняется – выражение ложно (логический ноль). Речь идет о логическом выражении. Для построения сложных условий в Паскале имеются логические операции and (и), or (или), not (не).Построим таблицы истинности для этих операций. Пример. Пусть требуется определить принадлежит ли точка х отрезку [a,b]. Это условие в математике записывается в виде двойного неравенства a≤x≤b. В Паскале двойное неравенство записывается с помощью логических операций: (x>=a) and (x<=b). Если точка не принадлежит отрезку, то запись будет следующий вид иметь: not((x>=a) and (x<=b)) или (xb).Примечание. Отношения, между которыми стоит логическая операция, заключаются в скобки. Составьте программу вычислений значений функции: Program z2;Var x, y: real;BeginReadln(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. САМОСТОЯТЕЛЬНО СОСТАВЬТЕ БЛОК-СХЕМУ Составить программу, определяющую, принадлежит ли точка с координатами (x, y) пересечению кругов: (x-1)2+y2=4, (x+1)2+y2=4. Program z3;Var x, y: real;BeginReadln(x,y);If (sqr(x-1)+sqr(y)<=4) and (sqr(x+1)+sqr(y)<=4) then write (‘принадлежит’) else write (‘не принадлежит’);End. САМОСТОЯТЕЛЬНО СОСТАВЬТЕ БЛОК-СХЕМУ Задания для самостоятельного выполнения (30 минут) Определить можно или нельзя построить треугольник по введенным длинам сторон a, b, c. Определить является ли четырехзначное число «счастливым».Определить является ли введенное двухзначное число четным.ОПИСАТЬ ПЕРЕМЕННЫЕСОСТАВИТЬ БЛОК-СХЕМУ АЛГОРИТМА