ДОМАШНЯ РОБОТА № 5

1. Запишіть результат виконання (с=?) програми Ех2, якщо с надати такі значення:

а) 0; б) 10; в) –2; г) –12; д) 12.

2. Уведіть два числа. Виведіть на екран менше число.

3. Уведіть два числа і більше замініть сумою цих чисел.

4. Уведіть ціле число з діапазону 2..5. Виведіть його значення словом.

5. Уведіть число – номер дня тижня. Виведіть слово – назву цього дня.

6. Розгляньте 4-5 номерів поїздів і пункти їх призначення. Уведіть номер поїзда. Виведіть на екран назву кінцевого пункту.

Складіть програми, використовуючи повну команду if.

7. Уведіть значення аргументу і обчисліть значення складеної функції

8. Уведіть ціле число. Виведіть повідомлення: число парне, чи непарне.

var x:integer; {Це один з можливих розв'язків задачі}

begin

readln(x);

if 2*round(x/2)=x then writeln('парне') else writeln('непарне');

end.

Запишіть інший розв'язок, використавши а) операцію mod; б) операцію div.

9.Уведіть число. Виведіть повідомлення чи число кратне 9.

10. Уведіть два числа. Менше замініть сумою цих чисел, більше – їх різницею. Виведіть результати.

11. Уведіть два числа. Чи належить більше число проміжку [10; 20]?

12. Модифікуйте програму обчислення коренів квадратного рівняння, щоб вона виводила повідомлення «Корені додатні», «Корені від'ємні», «Корені мають різні знаки».

13. Уведіть значення аргументу і обчисліть значення складеної функції

Розгляньте один із способів розв'язування з вкладеними командами if:

var x,y: real;

begin

read(x);

if x<0 then y:=x*x else if x>5 then y:=x–5 else y:=0;

write('y=',y); end.

14. Уведіть значення аргументу і обчисліть значення складеної функції

15.Уведіть значення аргументу і обчисліть значення складеної функції