Линейный алгоритм

Алгоритм ветвление Синтаксис конструкции IF:

If условие then begin {серия команд, если условие истино}; end else begin {серия команд, если условие ложно}; end;

Примеры

С клавиатуры вводятся 2 числа. Вывести на экран большее из них. Var a, b: integer; begin writeln('Введите первое число’); readln(a); writeln('Введите второе число’); readln(b); if a< b then WriteLn('наибольшее', b) Else WriteLn('наибольшее', a); READLN; END.

Рассчитать значение y при заданном значении x: Var x: integer; begin writeln('Введите число’); readln(x); if х> 0 then y: =sqrt(x) else y: =x*x; WriteLn('Y= ', y); READLN; END.

Задачи ветвление IF:

1) Водятся два числа определить большее из них.

2) Составить программу для вычисления значения функции y(x):

3) Дано целое число. Определить:

а) является ли оно чётным или нечётным;

б) оканчивается ли оно цифрой 5;

в) оканчивается ли оно цифрой 7;

4) Дано двузначное число. Определить:

а) какая из его цифр больше: первая или вторая;

б) одинаковы ли его цифры?

в) кратна ли трём сумма его цифр;

г) кратна ли сумма его цифр числу A?

5) Дано трёхзначное число. Определить:

а) кратна ли пяти сумма его цифр;

б) кратна ли сумма его цифр числу A;

в) является ли сумма его цифр двузначным числом;

г) является ли произведение его цифр трёхзначным числом;

д) больше ли числа A произведение его цифр;

е) верно ли, что все его цифры одинаковые?

ж) определить, есть ли среди его цифр одинаковые?

6) Дано четырёхзначное число. Определить:

а) равна ли сумма двух первых его цифр сумме двух его последних цифр;

б) кратна ли трём сумма его цифр;

в) кратно ли четырём произведение его цифр;

г) кратно ли произведение его цифр числу A.

7) У дракона каждый год растет по 3 головы, до 100 лет, после 100 по 2 головы в год. Сколько голов и глаз у дракона которому N лет? N вводится с клавиатуры. Если N < =0 ответ 0.

8) Вводятся 3 целых числа. Определить большее из них

9) Вводятся 3 целых числа. Если существует треугольник с такими сторонами то вывести его периметр и площадь, иначе вывести фразу «треугольник не существует».

10) Даны три целых числа. Вывести на экран те из них, которые являются четными.

11) Даны три вещественных числа. Возвести в квадрат те из них, значения которых неотрицательны.

12) Даны три вещественных числа. Вывести на экран: те из них, которые принадлежат интервалу (1, 6 – 3, 8);

13) Даны четыре целых числа. Определить сумму тех из них, которые кратны трем.

Синтаксис коннструкции case:

case выражение of

список констант_1: begin

{последовательность инструкций 1};

end;

список констант_2: begin

{последовательность инструкций 2};

end;

список констант_n: begin

{последовательность инструкций n};

end

else begin

{последовательность инструкций, выполняемая в случае, если выражение не попало ни в один из списков констант};

end;

end;