Вычислить значение выражения - Pascal ABC

  1. Поморите пожалуйста решить задачки в Pascal... Фото заданий ниже) Спасибо.


textual

Код:

uses crt;
const A=-0.75;
      B=51;
var y,x:real;
begin
writeln('Введите X:');
read(x);
y:=1+abs(x-b)+sqr(x-a)/2;
writeln('Y = ',y);
end.


Похожие ответы
  1. Вычислить сумму ряда

  1. Помогите пожалуйста решить задачу: дано целое число. Вывести на экран значение наименьшей его цифры.

  1. Ввести трехзначное число .Вычислить корень квадратный второй цифры

  1. Заданы три квадратных уравнения: ax2 +bx+c=0, dx2 +fx+r=0, px2 +qx+k=0. Найти минимальное значение среди корней этих уравнений.

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

  1. Помогите решить, пожалуйста Вычислить y=tg(x+2)+ctg^2x(ctg(x+1)-tgx), при х=30 градусов, оформив в виде функций вычисление тангенса и котангенса.

  1. Нужно написать программу, в которой пользователь вводит альфа(alpha), а программа бы считывала z1=cos в квадрате от разности ((3/8)*pi-(alpha/4))-cos в квадрате от суммы ((11/8)*pi+(alpha/4)) z2=(корень из 2-х/2)*sin от дроби (alpha/2)

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

  1. Ввести a>=1. Найти значение какого из выражений больше: 1/а чи sin(а). Проверьте пожалуйста.