Задача 1.
Вычислить значение функции заданной следующим образом:

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

Составляем программу:
Program funkciy;
Var x, y: integer;
Begin
Writeln (‘введите значение х’);
Readln(х);
If x>0 then y:=x
else y:=x*x;
writeln(‘значение функции ’, y);
readln;
end.
Заполняем таблицу
Х 0 4 -5 167 -221 0,2 -0,1
У
Почему мы не можем вычислить два последних значения функции. Исправьте программу, для того, чтобы это можно было сделать.
Задача 2.
Составить программу определяющую является ли заданное число четным или нечетным.
Цель решения этой задачи: отработка навыков составления блок-схем, написания программ, знакомство с функцией вычисления остатка от деления (a mod b). Сложность этой задачи в том, что результатом является не вычислительный результат, а сообщение “четное” или “нечетное”.
Составляем блок-схему:

Составляем программу:
Program chislo;
Var a: integer;
Begin
Writeln (‘введите число а’);
Readln(а);
If а mod 2 = 0 then Writeln (‘число четное’)
Else Writeln (‘число нечетное);
readln;
end.
Проведите вычислительный эксперимент, вы сами задаете числа, результат записываете в тетрадь.