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

  1. Это условие: Исходные данные: Xнач.=0, Xкон.=4, Шаг=0.25


textual

Код к задаче: «Вычислить значение выражения - Pascal ABC»

program task1;
var
  Xn,Xk,Xd,z,x:real;
begin
Xn:=0;
Xk:=4;
Xd:=0.25;
x:=Xn;
while x<=Xk do
 begin
  if (x>2.5) then  z:=sqr(arctan(x))-ln(x)
  else if (x<=1) then
   begin
    if x=0 then z:=0
    else z:=exp(ln(sqr(sin(x)))/3)+10.2*sqr(x)
   end
  else z:=sqr(ln(x))+x/2;
  writeln(' x=',x:5:2,' z=',z:5:2);
  x:=x+Xd;
 end;
end.

СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.500 из 5



Похожие ответы
  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(а). Проверьте пожалуйста.