Создание программ разветвляющейся структуры. Условный оператор Условный оператор реализует алгоритмическую конструкцию "развилка" (ветвление) и изменяет. - презентация

1 Создание программ разветвляющейся структуры

2 Условный оператор Условный оператор реализует алгоритмическую конструкцию "развилка" (ветвление) и изменяет порядок выполнения операторов в зависимости от истинности или ложности некоторого условия

3 Существует два варианта оператора Полная форма: if then else ; и краткая форма: if then ; В этих операторах: - некоторое логическое выражение, истинность которого проверяется; - оператор, который выполняется, если логическое выражение истинно. - оператор, который выполняется, если логическое выражение ложно.

4 Пример использования составного оператора в условном операторе Write('Введите контрольное число'); Readln(x); if x>=0 then begin write('Контрольное число положительно'); z:=z+1; d:=d-1; x:=x+10; end else begin write('Контрольное число отрицательно'); z:=z-1; d:=d+1; x:=x-10; end;

5 Write('Введите контрольное число'); Readln(x); if x>=0 then begin write('Контрольное число положительно'); z:=z+1; d:=d-1; x:=x+10; end else begin write('Контрольное число отрицательно'); z:=z-1; d:=d+1; x:=x-10; end;

6 Write('Введите контрольное число'); Readln(x); if x>=0 then begin write('Контрольное число положительно'); z:=z+1; d:=d-1; x:=x+10; end else begin write('Контрольное число отрицательно'); z:=z-1; d:=d+1; x:=x-10; end;

7 Программа для решения квадратного уравнения Program kvur; Var a,b,c: real; {коэффициенты квадратного уравнения} x1,x2: real; {корни квадратного уравнения} D: real; {дискриминант квадратного уравнения} Begin Writeln('Решение квадратного уравнения.'); {Ввод данных} Write('Введите коэффициент a: '); Readln(a); Write('Введите коэффициент b: '); Readln(b); Write('Введите коэффициент c: '); Readln(c); {Определение дискриминанта} D:=b*b-4*a*c; {Определение корней и вывод информации} if D>0 then begin x1:=(-b+sqrt(D))/(2*a); x2:=(-b-sqrt(D))/(2*a); Writeln('Первый корень уравнения: ',x1); Writeln('Второй корень уравнения: ',x2); end; if D=0 then begin x1:=-b/(2*a); Writeln('Уравнение имеет один корень: ',x1); end; if D