Условный оператор. Проводится соревнование по поеданию пирожков. За 10 минут Вася съел a пирожков, а Коля b пирожков. На командном первенстве они составили. - презентация

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

2 Проводится соревнование по поеданию пирожков. За 10 минут Вася съел a пирожков, а Коля b пирожков. На командном первенстве они составили одну команду. За сколько минут эта команда съест с пирожков? 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. начало Ввод а,в,с vv:=a/10 vk:=b/10 v:=vv+vk Вывод t конец t:=c/v

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

4 Так выглядит ветвление на схеме а так – на Паскале if x > y then begin z:=x-y; writeln(x =,x); end else begin z:=y-x; writeln(y =,y); end; По-английски: if – если then – то (тогда) else - иначе

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

6 Решить квадратное уравнение вида ax 2 +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.

7 Пример задачи с составным условием: Ввести температуру морской воды и определить, можно ли купаться. Благоприятная для купания температура – от 19 до 26 градусов. program water; var t:real; begin write(Введите температуру воды у пляжа ); readln(t); if (t>=19) and (t

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

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

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

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

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

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

14 Оператор цикла с параметром используется в тех случаях, когда заранее известно, сколько раз должна повториться циклическая часть программы. Оператор цикла имеет вид: FOR I:=m1 TO m2 DO Begin Операторы циклической части программы; End; m1

15 Возможен следующий вид: FOR I:=m1 DOWNTO m2 DO Begin Операторы циклической части программы; End; m1 > m2 DOWNTO – уменьшая до

16 Задача: Вычислить S= … +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.

17 Задача 1.Вычислить n! = 1*2*3* … *n

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