Презентация Ветвление в алгоритмах и на языке Паскаль 10 класс

Ветвление в алгоритмах Пример 1 Пример 2 Ветвление Подойти к прилавку.Если мороженое есть , то купить его.Отойти от прилавка. Посмотреть на термометр.Если t<-15О, то одеть шубу, иначе одеть куртку.Выйти из дома. Ветвление - это такая форма организации действий, при которой если выполняется некоторое условие, то производится одна последовательность действий, а если не выполняется другая. условие да нет Блок ветвления + - - + 1 Мороженноеесть? 3 1 3 t<-15 IF ELSE THEN + - Ветвление в Pascal IFеслиTHEN тогдаELSEиначе - + Q T P Q P + - IF Q THEN P IF Q THEN P ELSE T - + Q T 1 Т 3 P 2 P 3 P 1 Т 2 IF Q THEN BEGIN P1; Р2; Р3; END;ELSE BEGINT1; Т2; Т3; END; Составьте программу решения квадратного уравнения вида ax2+bx+c=0. program rekvur; var a,b,c,d,x1,x2: real; beginwrite (‘a,b,c’);readln (a,b,c); d:=b*b-4*a*c;if d>=0 then begin x1:=(-b + sqrt(d))/2/a; x2:=(-b - sqrt(d))/2/a; write (‘x1=’,x1, ‘ x2=’,x2); end;else write (‘net korney’);end. Q1 P1 Q2 P2 Q n Pn+1 Pn Выбор CASE Q OF 1: P1; 2: P2; … n: Pn ELSE Pn+1 END; По оценке, выраженной цифрой, дать ее словесное значение. program ocenka; var OC: integer; begin write (`oценка`); readln (ОС);case OC of2: write (`неудовлетв`);3: write (`удовлетв`);4: write (`хорошо`);5: write (`отлично`)end; end. Лабораторная работа «Артиллерийская задача» Н Вывод «попал» a:=a/180*3.14 l:=s*sin(a)/cos(a)-9.8*s*s/2/v/v/cos(a)/cos(a) l>h l>0 Ввод a,v,s,h Вывод «перелет» Вывод «недолет» + + - - К program pushka; var a,v,s,h: real; beginwrite (‘a,v,s,h’);readln (a,v,s,h); a:=a/180*3.14;l:=s*sin(a)/cos(a)-9.8*s*s/2/v/v/cos(a)/cos(a); if l>h then write (‘perelet’) else if l<0 then write (‘nedolet’) else write (‘popal’);end.