Задачи.

25. Дано натуральное число x. Если оно нечётное, то удвоить его, в противном случае – уменьшить в два раза.

26. Даны целые числа m и n. Если число m делится нацело на число n, то вывести на экран частное от деления. В противном случае вывести два числа: целую часть частного и остаток от деления.

27. Даны вещественные числа a, b, c. Удвоить эти числа, если abc, и заменить их абсолютными значениями, если это не так.

28. Дано вещественное число x. Вычислить значение функции

29. Дано вещественное число x. Вычислить значение функции

30. Дано вещественное число x. Вычислить значение функции

31. Дано вещественное число x. Вычислить значение функции

32. Дано вещественное число x. Вычислить значение функции

33. Даны вещественные числа x, y. Переменной k присвоить номер четверти плоскости, в которой находится точка с координатами (x, y) (x0, y0).

34. Даны вещественные числа x, y (xy). Меньшее из них заменить их полусуммой, а большее – их удвоенным произведением.

35. Даны вещественные положительные числа a, b, c, d. Напечатать сообщение, можно ли прямоугольник со сторонами a, b уместить внутри прямоугольника со сторонами c, d так, чтобы каждая сторона одного прямоугольника была параллельна или перпендикулярна каждой стороне второго прямоугольника.

36. Даны вещественные положительные числа a, b, c. Если существует треугольник со сторонами a, b, c, то определить, является ли он прямоугольным.

37. Даны вещественные ненулевые числа x, y. Если они имеют разные знаки, то отрицательное заменить его абсолютным значением. В противном случае оба числа заменить на число 100.

38. Даны вещественные числа a, b, c (a0). Найти действительные корни уравнения ax² + bx + c = 0. Если действительных корней нет, то вывести об этом сообщение.

39. Если сумма трёх различных действительных чисел x, y, z меньше единицы, то наименьшее из них заменить полусуммой двух других. В противном случае заменить меньшее из x и y полусуммой двух оставшихся значений.

40*. Написать программу, которая после ввода текущей даты (день, месяц, год – через пробел) и даты рождения данного человека (день, месяц, год – через пробел), определяет, исполнилось ли человеку полных 16 лет.

41*. Дано целое число k (1 k 180) . В последовательности цифр

101112131415…979899 ,

в которой выписаны подряд все двузначные числа, определить k-ю цифру.

Оператор выбора case

В отличие от оператора if, оператор case позволяет выбрать один оператор не из двух, а из нескольких операторов. В общем виде оператор case может быть записан следующим образом:

case <выражение> of

<список меток 1> : <оператор1>;

<список меток 2> : <оператор2>;

…………………………………..

<список меток N> : <операторN>

else

<оператор>

end;

Здесь <выражение> – это выражение порядкового типа. Вначале вычисляется значение этого выражения. Затем полученное значение последовательно сравнивается с константами из списков меток. Если значение выражения совпадает с какой-нибудь константой, то выполняется соответствующий оператор. Если значение выражения не совпадает ни с одной константой, то выполняется оператор, стоящий за словом else. Если слово else отсутствует, то выполняется оператор, стоящий за словом end.

Пример 11. По номеру дня недели определить название дня недели.

type week=1..7;

var day : week;

begin

readln(day);

case day of

1 : writeln(Понедельник);

2 : writeln(Вторник);

3 : writeln(Среда);

4 : writeln(Четверг);

5 : writeln(Пятница);

6 : writeln(Суббота);

7 : writeln(Воскресенье)

else writeln(Ошибка ввода)

end; readln

end.