Решить уравнение - Turbo Pascal

  1. Уравнение 9


textual

Код к задаче: «Решить уравнение - Turbo Pascal»

var x,a,y:real;
begin
write('a='); readln(a);
write('x='); readln(x);
if x<-6 then y:=sqrt(x*x-4)/2 else if x<2 then y:=abs(x) else y:=exp(-x);
write('y=',y:5:2);
readln
end.

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

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



Похожие ответы
  1. интересует лишь то, как будет выглядеть программа на паскале: Составить программу определения величины ∆1 (∆2) на языке программирования высокого уровня Сам с паскалем впервые столкнулся и синтаксиса не знаю, прошу помощи.

  1. здравствуйте, помогите пожалуйста) Найти уравнение скорости движения тела и положение тела как функцию от времени. Входные данные: v(0)=2м/с; s(0)=0м. Определить положение. скорость и ускорение на отрезке времени t=[0;5] с шагом 1 с. Построить графики s(t), v(t), a(t).

  1. Доброго времени суток. Буду очень признательна, если б кто-нибудь помог с задачкой. =( Вычислить предел последовательности an, с точностью до 0.5∙10-6. если значения a0, x вводятся, an считать по правилу: an = 5-sin2(1-a2n-1)/xn; x>1 Заранее спасибо. Не могу понять как правильно записать уравнение.

  1. 2. Решить систему линейных уравнений a1*x+b1*y=c1 a2*x+b2*y=c2

  1. Доброго времени суток! Помогите пожалуйста решить систему с помощью рекурсии. (Паскаль)

  1. Решить Методом Зейделя -5x1+x2+x3=-3 2x1+5x2-x3=6 x1+2x2+4x3=7 (x1=x2=x3=1)

  1. Решить следующее нелинейное уравнение f(x)=cth(x+2)+(x+3)-8=0методом половинного деления на отрезке x є [-1;1]1 c точностью e = 0,00000001 Определите какое количество обращений к вычислению f (x) потребовалось для нахождения кореня уравнения с заданной точностью.

  1. Нужно: "Решить задачу с помощью цикла. При реализации данной задачи используются операторы for."

  1. Прямые общего расположения определены отдельными функциями L1 ( x ) , L2 ( x ) , L3 ( x ) , L4 ( x ) . Определить уравнение прямой , которая отсекает самый большой по площади треугольник относительно координатных осей .

  1. Помогите, пожалуйста, решить уравнение и записать его код в паскале. Очень нужно x^3+cos(8*x)=0 Три точности: E_1=0.00001, E_2=0.0000001, E_3=0.00000001