Самостоятельная работа по теме: «Модуль CRT»

Условия в Turbo Pascal. Виды условий.

Алгоритмы решения большинства задач не являются последовательными. Действия, которые необходимо выполнить, могут зависеть от определенного условия, например исходных данных, или результатов, полученных во время выполнения программы. Например, если нам необходимо переменной max присвоить значение большей из переменных х1 или х2, мы должны определить сначала какое число больше а уже после этого заносить его значение в переменную max.

В языке Pascal условие – это выражение логического типа (Boolean), которое может принимать одно из двух значений: истина или ложь.

В Pascal имеется шесть операторов, позволяющих сравнивать между собой значения числовых переменных, а также значения переменной и константу (число).

Использование операторов сравнения позволяет записывать простые условия. Например, х1>x2 или х1=х2, или х1<>х2 и т.п.

Из простых условий, которые являются выражениями логического типа, можно строить сложные условия с применением к ним, как к операндам, логических операторов:

Not – отрицание;

And – логическое «и»;

Or – логическое «или».

При записи сложных условий важно учитывать то, что логические операторы имеют более высокий приоритет, чем операторы сравнения, поэтому простые условия следует брать в скобки.

Например, нам необходимо из трех чисел выбрать большее, можно составить такое условие: (x>y) and (x>z), или условие попадания точки в интервал: будет выглядеть так:

(х<= -3) or (x>=7). Возможно составление и более сложных условий: (a=5) or ((a>10) and (a<1)).

Итак, следовательно, условия могут быть либо простыми, либо составными, полученными из простых с помощью логических связок.

Условный оператор.

В Turbo Pascal включены два условных оператора – if и case (хотя исторически так сложилось что последний называется оператором выбора), каждый из которых может быть записан в двух формах: полной и неполной.

Синтаксис инструкции IF:

If условие

Then

Begin

{инструкции выполняемые, если условие истинно};

End

Else

Begin

{инструкции выполняемые, если условие ложно};

end;

Инструкция if выполняется следующим образом:

1. вычисляется значение условия (выражение логического типа).

2. Если значение выражения условия равно true, то выполняются инструкции, следующие за словом then. Если значение выражения условия равно false, то выполняются инструкции, следующие за словом else.

Примечания:

1. Перед ключевым словом else символ «;» никогда не ставится.

2. Если при выполнении (невыполнении) условия надо выполнить только одну инструкцию, то слова begin и end после then (else) могут быть опущены.

Пример: необходимо вывести на экран значение большего из двух введенных с клавиатуры чисел. Пусть первое число х, а второе число у, тогда фрагмент программы будет выглядеть так:

if x>y then writeln (‘большее из данных двух чисел ’, x)

else writeln (‘большее из данных двух чисел ’,y);

Если какое-либо действие нужно выполнить только при выполнении условия, инструкция if может быть записана так:

If условие

Then

Begin

{инструкции выполняемые, если условие истинно};

end;

Пример: вычислить значение функции y=1/x. Фрагмент программы будет выглядеть так:

If x<>0 then y:=1/x;

Иногда возникает необходимость использования вложенных условных операторов.

Пример: С клавиатуры задаются три числа, необходимо вывести на экран значение большего из этих чисел. Фрагмент такой программы будет выглядеть так:

if x>y

then begin

if x>z then writeln (‘большее из данных чисел ’, x)

else writeln (‘большее из данных чисел ’,z);

end

else writeln (‘большее из данных чисел ’, y);

Либо можно построить несколько по другому, например так:

if (x>y) and (x>z)

then begin writeln (‘большее из данных чисел ’, x)

else

if y>z then writeln (‘большее из данных чисел ’, y)

else writeln (‘большее из данных чисел ’,z);

Задание: Написать полностью программы для разобранных выше примеров.

Задачи:

1. Рассчитать значение y при заданном значении x:

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

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

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

в) оканчивается ли оно чётной цифрой. Составное условие не использовать.

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

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

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

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

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

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

5. Дано трёхзначное число. Определить, равен ли квадрат этого числа сумме кубов его цифр.

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

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

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

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

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

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

7. Дано трёхзначное число.

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

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

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

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

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

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

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

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

10. Дано натуральное число.

а) Верно ли, что оно заканчивается нечетной цифрой?

б) Верно ли, что оно заканчивается четной цифрой?

11. Дано вещественное число x. Вычислить y (x), если

12. Определить, является ли число A делителем числа B, или наоборот. Ответом должны служить сообщения: " да, одно из чисел является делителем другого " или " нет, ни одно из чисел не является делителем другого ".

13. Год является високосным, если его номер кратен 4, однако из кратных 100 високосными являются лишь кратные 400 (например, 1700, 1800 и 1900 – не високосные года, 2000 – високосный). Дано натуральное число N. Определить, является ли високосным год с таким номером.

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

а) входит ли в него цифра 4; б) входит ли в него цифра B.

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

а) входят ли в него цифры 4 или 7; б) входят ли в него цифры 3, 6 или 9.

16. Дано натуральное число n (n £ 9999).Выяснить, различны ли все четыре цифры этого числа (если оно записано четырьмя цифрами). Например, в числе 3678 все цифры различны, в числе 0023 – нет.

17. Определить, является ли заданное шестизначное число счастливым. (Счастливым называют такое шестизначное число, у которого сумма его первых трех цифр равна сумме его последних трех цифр).

18. Составить программу, которая уменьшает первое веденное число в два раза, если оно больше второго введенного числа по абсолютной величине.

19. Даны два числа. Если квадратный корень из второго числа меньше первого числа, то увеличить второе число в пять раз.

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

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

22. Даны три вещественных числа. Вывести на экран:

а) те из них, которые принадлежат интервалу (1,6 – 3,8);

б) те из них, которые принадлежат интервалу (0,7 – 5,1).

23. Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти.

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

25. Составить программу для вычисления значения функции z(a):

26. Дано вещественное число x. Вычислить f (x), если:

27. Даны вещественные числа a, b, c (a ≠ 0).Выяснить, имеет ли уравнение ax ²+ bx + c =0 вещественные корни. Если такие корни имеются, то найти их. В противном случае ответом должно служить сообщение, что вещественных корней нет.

28. Вывести на экран номер четверти координатной плоскости, которой принадлежит точка с координатами (x, y), при условии, что x ≠ 0 и y ≠ 0.

29. Для натурального числа k напечатать фразу “мы нашли k грибов в лесу“, согласовав окончание слова “гриб” с числом k.