Программирование ветвлений на Паскале полное ветвление если

Программирование ветвлений на Паскале

полное ветвление если <условие> то да <серия Серия команд 1> условие нет Серия команд 2 иначе<серия команд 2> кв Алгоритм ветвления

Составить алгоритм для выбора наибольшего из двух чисел. Решение: Пусть заданы два числа А и В Обозначим наибольшее из них через С Например: Если А=8 и В=4, т. к. А>В, то С=А Если А=3 и В=10, т. к. А<В, то С=В Пример 1

алг наибольшее число вещ А, В, С нач ввод А, В если A>B то C: =A начало A, B да А>B C=A C=B иначе C: =B кв вывод C кон нет вывод C конец

Команда ветвления на Паскале называется условным оператором или оператором условия и имеет следующий формат: 1. Полное ветвление If <условие> Then <серия команд 1> Else <серия команд 2> 2. Не полное ветвление If <условие> Then <серия команд> Ветвление на Паскале

Составить программу по составленному в примере 1 алг наибольшее число вещ А, В, С нач ввод А, В если A>B то C: =A иначе C: =B кв вывод C кон алгоритму program Zadanie 2; Var А, В, С: real; begin read(А, В); if A>B then C: =A else C: =B ; write(‘С=‘); write(С: 2: 2); end. Пример 2

Составить программу для нахождения значения функции Решение: 3 т. е. если х=5, то у=х2 если х=-2, то у=х-1 Пример 3

начало x, y да x>3 y=x 2 нет то y: =x*x y=x-1 вывод y алг задание 3 вещ x, y нач ввод x если x>3 иначе y: =x-1 кв вывод y конец Составим алгоритм решения

алг задание 3 вещ x, y нач ввод x program Zadanie 3; var x, y: real; begin read(x); если x>3 if x>3 то y: =x*x then y: =x*x иначе y: =x-1 else y: =x-1 ; кв вывод y кон end. write(‘y=‘); write(y: 2: 2); Составим программу

Составить программу значения функции. для нахождения Решение: ОДЗ функции х-1≠ 0, т. е. если х-1≠ 0 то вычисляем Ответ: нет решений Ответ: Пример 4

начало x, y да X-1<>0 нет y=1/(х-1) Нет решений у алг задание 4 вещ x, y нач ввод x если x-1<>0 то y: =1/(x-1) вывод y иначе вывод нет решений кв конец Составим алгоритм решения

program Zadanie 4; var x, y: real; begin алг задание 4 вещ x, y нач ввод x если x-1<>0 read(x); if x-1>0 then begin y: =1/(x-1); write(‘y=‘); write(y: 2: 2); end else write(‘нет решений‘); то y: =1/(x-1) вывод y иначе вывод нет решений кв кон end. Составим программу

Составить программу для нахождения значения функции Решение: Пример 5

начало x, y да нет x>3 да y=x 3 y=x+9 х≤ 6 алг задание 4 вещ x, y нач ввод x если x>3 то y: =x 3 иначе если x≤ 6 нет то y: =x+9 иначе y=lnx y: =lnx вывод y конец кв кв кон Составим алгоритм решения

алг задание 4 вещ x, y нач ввод x если x>3 то y: =x 3 иначе если x≤ 6 то y: =x+9 иначе y: =lnx вывод y кв кв кон program Zadanie 5; var x, y: real; begin read(x); if x>3 then y: =x*x*x else if x<=6 then y: =x+9 else y: =ln(x); write(‘y=‘); write(y: 2: 2); end. Составим программу