Если прямо пойдешь, то… Ветвления на языке Pascal. - презентация

1 Если прямо пойдешь, то… Ветвления на языке Pascal

2 Условный оператор (полное ветвление) IF THEN IF THEN ELSE ; ELSE ; В качестве условий используются логические выражения, например, такие: (C=D) (a>b) and (a>c) or (a=d) ДАНЕТ Условие действие 1действие 2

3 Условный оператор (неполное ветвление) IF THEN ; ДАНЕТ Условие действие 1

4 Тест Вопрос 3 При каком значении X при исполнении программы будет получен ответ «Да»: Program T_3; Var x: integer; BEGIN Readln(x); If (x mod 2=0) then Writeln(Да) else Writeln(Нет); END. a)3; b)6; c)15; d)4.

5 Вычислить значение y при заданном значении x Program EvalY; Var x, y: real; BEGIN Writeln(Введите x); Readln(x); If (x>0)then y:=sin(2*x)else y:=(1-2*sin(sqr(x))); Writeln( y=,y ); END.

6 Вычислить значение функции

7 Блок-схема, соответствующая этому алгоритму, выглядит так

8 Программа, соответствующая этому алгоритму, выглядит так Program Calculate_A; Var a, x: integer; BEGIN Writeln(Введите x); Readln(x); If (x

9 Можно было бы составить ее и иначе Program Calculate_A1; Var a, x, y: integer; BEGIN Writeln(Введите x); Readln(x); If (x10) then a:=0; Writeln(A = ); END.

10 Program Calculate_A; Var a, x,: integer; BEGIN Writeln(Введите x); Readln(x); If (x

11 Оператор выбора case of : ; else ; end; case i of 1:begin a:=a+1;b:=0;end; 2,3,4:begin a:=0;b:=b+1;end; 5..12:x:=-1; else x:=2; end;

12 Блок-схема конструкции выбора case of : ; else ; end;

13 Program Calc; Var a, b, c: integer; BEGIN Writeln(Введите a); Read(a); Writeln(Введите b); Read(b); Writeln(Введите номер операции c); Read(c); Case c of 1: Writeln(Сумма=, a+b); 2: Writeln(Разность=, a-b); 3: Writeln(Произведение=, a*b); 4: Writeln(Целая часть деления=, a div b); 5: Writeln(Остаток от деления=, a mod b); else Writeln(Введен неизвестный номер операции); End; END.

14 Задание Нарисовать блок-схему решения задачи и составить соответствующую ей программу на языке программирования Turbo Pascal. В некотором учебном заведении действуют следующие правила приема. Абитуриенты сдают три экзамена. Если они набирают не менее 13 баллов, то это дает право поступить на дневное отделение, от 10 до 12 вечернее, от 8 до 9 заочное и ниже 8 баллов отказ в приеме на учебу.