Программирование разветвленных алгоритмов на Паскале Программное управление работой компьютера Домашнее задание: §36, §37, §38

Типы алгоритмов Разветвленный алгоритм - это алгоритм, включающий выбор тех или иных действий в зависимости от какого- либо условия (логического выражения). If then else ; логическое выражение оператор 1 оператор 2 да нет

Формы логических выражений в Паскале Простые, =, <> Пример: A<>(B+1)/2 «Записать условие, которое является истинным, когда…» Каждое из чисел А, В, С кратно трем. Паскаль: (A mod 3=0) and (B mod 3=0) and (C mod 3=0) Хотя бы одно из чисел А и В отрицательно. Паскаль: (A<0) or (B<0) Только одно из чисел X и Y меньше 50. Паскаль: (X =50) or (X>=50) and (Y<50) Сложные And, Or, Not Пример: (A>C) And (B>C)

Разветвленный вычислительный алгоритм Задача 1_1 «Большее из двух» Пусть исходными данными являются переменные A и B. Их значения будут задаваться вводом. Значение большего из них должно быть присвоено переменной C и выведено на экран компьютера. Например, если A=5, B=8, то должно получиться: C=8. Program BID1; var A, B, C:real; begin write('Введите значение А:'); readln(A); write('Введите значение B:'); readln(B); If A>B then C:=A else C:=B; writeln('Большее из двух С=',C:5:2); end.

Разветвленный вычислительный алгоритм Задача 1_2 «Большее из двух» Пусть исходными данными являются переменные A и B. Их значения будут задаваться вводом. Значение большего из них должно быть присвоено переменной C и выведено на экран компьютера. Например, если A=5, B=8, то должно получиться: C=8. Program BID2; var A, B, C:real; begin write('Введите значение А:'); readln(A); write('Введите значение B:'); readln(B); C:=A; If B>A then C:=B; writeln('Большее из двух С=',C:5:2); end.

Разветвленный вычислительный алгоритм Задача 2 _1«Большее из трех» Пусть исходными данными являются переменные A, B и С. Их значения будут задаваться вводом. Значение большего из них должно быть присвоено переменной D и выведено на экран компьютера. Например, если A=5, B=8, C=4, то должно получиться: D=8. Program BIT1; var A, B, C, D:real; begin readln(A, B, C); If A>B then D:=A else D:=B; If C>D then D:=C ; writeln('Большее из трех D=',D:5:2); end.

Разветвленный вычислительный алгоритм Задача 2 _2«Большее из трех» Пусть исходными данными являются переменные A, B и С. Их значения будут задаваться вводом. Значение большего из них должно быть присвоено переменной D и выведено на экран компьютера. Например, если A=5, B=8, C=4, то должно получиться: D=8. Program BIT2; var A, B, C, D:real; begin readln(A, B, C); If A>B then If A>C then D:=A else D:=C else If B>C then D:=B else D:=C writeln('Большее из трех D=',D:5:2); end.