Презентация на тему «Условный оператор»

Условный оператор

Проводится соревнование по поеданию пирожков

За 10 минут Вася съел a пирожков, а Коля b пирожков. На командном первенстве они составили одну команду. За сколько минут эта команда съест с пирожков?

Начало

Ввод а,в,с

vv:=a/10

vk:=b/10

v:=vv+vk

t:=c/v

Вывод t

Конец

program edoki; var a,b,c,t,vv,vk,v:real; begin write(’Сколько пирожков съел Вася? ’); readln(a); write(’Сколько пирожков съел Коля? ’); readln(b); write(’Сколько пирожков должна съесть команда? ’); readln(с); vv:=a/10; {скорость Васи} vk:=b/10; {скорость Коли} v:=vv+vk; {общая скорость} t:=c/v; writeln(’Команда справится за ’,t:3:1,’ минут’); readln; end.

Однако часто встречаются нелинейные программы, в которых порядок

действия отличается от порядка расположения команд. Ветвление – участок программы, позволяющий выбрать для исполнения, в зависимости от истинности условия, одну из двух групп команд.

Программы, в которых каждое следующее действие выполняется после предыдущего, называются линейными.

Так выглядит ветвление на схеме

а так – на Паскале

По-английски: if – если then – то (тогда) else - иначе

Существует две формы условного оператора: полная и краткая

Полная форма условного оператора в общем виде: If условие then оператор1 else оператор2;

Краткая форма условного оператора в общем виде: If условие then оператор1;

Решить квадратное уравнение вида ax2+bx+c=0

Program zadacha; var a,b,c,d,x,x1,x2:real; begin writeln('введите коэффициенты а,b,с'); readln(a,b,c); d:=sqr(b)-4*a*c; if d>0 then begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln('x1=',x1,' x2=',x2) end else if d=0 then begin x:=-b/(2*a); writeln('x=',x) end else writeln('уравнение не имеет корней'); readln; end.

program water; var t:real; begin write(’Введите температуру воды у

пляжа ’); readln(t); if (t>=19) and (t<=26) then writeln(’Можно купаться’) else writeln(’Купаться нельзя’); readln; end.

Пример задачи с составным условием: Ввести температуру морской воды и определить, можно ли купаться. Благоприятная для купания температура – от 19 до 26 градусов.

Дано: a, b, c – стороны треугольника

Определить существование треугольника по данным сторонам. Определить какое из трех, введенных пользователем, чисел максимальное и вывести его на экран. Написать программу, вычисляющую значение функций: у = x – 2, если x > 0, y = 0, если x = 0, y = |x|, если x < 0.

Оператор цикла с параметром

При решении многих задач вычислительный процесс имеет циклический

характер.

Это означает, что часть операторов многократно выполняется при различных значениях переменных. Применение циклов в программе позволяет эффективно использовать компьютер, приводит к уменьшению длины программы и сокращение времени на ее составление и отладку.

В языке Паскаль имеется три вида операторов цикла:

Оператор цикла с параметром; Оператор цикла с предусловием; Оператор цикла с постусловием.

Операторы для записи циклов являются составными, так как в их состав входят другие операторы.

Для всех операторов цикла характерна следующая особенность:

Повторяющиеся вычисления записываются всего лишь один раз. Вход в цикл возможен только через его начало. Переменные оператора цикла должны быть определены до входа в циклическую часть. Необходимо предусмотреть выход из цикла: или по естественному его окончанию, или по оператору перехода.

Если этого не предусмотреть, то циклические вычисления будут

повторяться бесконечно. В этом случае говорят, что произошло «зацикливание» выполнения программы.

Оператор цикла имеет вид: FOR I:=m1 TO m2 DO Begin Операторы

циклической части программы; End;

m1<m2

Оператор цикла с параметром используется в тех случаях, когда заранее известно, сколько раз должна повториться циклическая часть программы.

FOR - для TO - до DO - выполнить

I – параметр цикла, m1,m2 – начальное и конечное значения параметра цикла

Возможен следующий вид: FOR I:=m1 DOWNTO m2 DO Begin Операторы

циклической части программы; End; m1 > m2 DOWNTO – уменьшая до

Задача: Вычислить S=1+2+3+ … +n

Program zadacha; var n,s,i:integer; begin write(‘введите число n=’); readln(n); s:=0; for i:=1 to n do s:=s+i; writeln(‘сумма=’,s); readln; end.

Задача

Вычислить n! = 1*2*3* … *n

Домашнее задание

Знать формат записи. Уметь объяснять работу операторов. Каковы будут значения переменных и сколько раз исполнится цикл: for x:=1 to 15 do if x mod 2=1 then s:=s+1;