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

и в зависимости от результатов проверки выполняется то или

иное действие.

Блок-схема с условием

«сверху» части THEN условного оператора. Перед ELSE не ставится

точка с запятой, так как это один оператор. Если за словами ELSE и THEN необходимо выполнить группу операторов, то тогда используются операторные скобки begin … end, а такая структура называется вложенной:

begin
If условие then begin
оператор1;
оператор2;
…
оператор n
end
else begin
оператор1;
оператор2;
…
оператор n
end;
End;

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=

задач переменные связаны отношениями: =, ≠, ≤, ≥. Если

условие выполняется, то говорят, что соответствующее выражение истинно (логическая единица), если не выполняется – выражение ложно (логический ноль). Речь идет о логическом выражении. Для построения сложных условий в Паскале имеются логические операции and (и), or (или), not (не).
Построим таблицы истинности для этих операций.

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

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.

САМОСТОЯТЕЛЬНО СОСТАВЬТЕ БЛОК-СХЕМУ

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

САМОСТОЯТЕЛЬНО СОСТАВЬТЕ БЛОК-СХЕМУ