Вычислить значения функций.

@assus69 · Регистрация: 08.01.2018

Author24 — интернет-сервис помощи студентам

Вычислить значение функций

Кликните здесь для просмотра всего текста

@Puporev · 09.01.2018, 14:17

Что нужно вычислить в задании 3? Задание не полное.

@assus69 · 09.01.2018, 14:20 **[ТС]**

Вычислить значение функции.

@Puporev · 09.01.2018, 14:28

Ты хоть понимаешь что там написано? Для чего шаг da?

@assus69 · 09.01.2018, 14:31 **[ТС]**

Прошу прощения, не туда посмотрел.

Кликните здесь для просмотра всего текста

@Puporev · 09.01.2018, 14:59

1.

Pascal

const a=0.83;
      x=1.2;
var t,y:real;
begin
t:=2*sqr(sin(x));
t:=ln(t)/ln(10);
t:=exp(ln(t)/3);
y:=sqrt(a*x*x+t)-arctan((a-x)/4.5);
write('x=',x:0:3);
readln;
end.

Добавлено через 4 минуты
2.

Pascal

const a=2.55;
      b=1.56;
      x=0.93;
var w,y:real;
begin
w:=ln(abs((2*x*x+3*x+4)/(16*x-a)));
writeln('w=',w:0:3);
if w>2 then y:=arctan(2*w+exp(w-a))
else y:=cos(abs(w-sqr(a+b)));
write('y=',y:0:3);
readln;
end.

Добавлено через 9 минут
В 3 если a=0.14x, то а²<x² и логарифм не определен.

@assus69 · 09.01.2018, 15:28 **[ТС]**

Огромное спасибо за помощь.А, можете ещё написать 3 задание?

@Puporev · 09.01.2018, 15:48

А я уже написал

Сообщение от Puporev

В 3 если a=0.14x, то а2<x2 и логарифм не определен.

@assus69 · 09.01.2018, 16:03 **[ТС]**

Подскажите где ошибка? (Ошибка 207).
Текст

Кликните здесь для просмотра всего текста

Pascal

uses crt;
var x,a,y:real;
           i:byte;
begin
clrscr;
writeln('x=');
readln(x);
for i:=1 to 7 do
begin
if i=1 then a:=0.14*x
else a:=a+0.22;
y:=0.15*x-a/ln(sqr(a)-sqr(x));
writeln('значение',i,'a=',a:6:3,'y=',y:6:3);
end;
readln;
end.

Картинка

Кликните здесь для просмотра всего текста

Задание

Кликните здесь для просмотра всего текста

@Puporev · 09.01.2018, 16:20

Вам сколько еще долдонить что в условии ошибка a^2<x^2, а логарифм из отрицательного числа не определен.

@assus69 0 / 0 / 0 Регистрация: 08.01.2018 Сообщений: 13
		1
	Вычислить значения функций. 09.01.2018, 13:49. Показов 1092. Ответов 9 Метки нет (Все метки) Вычислить значение функций Кликните здесь для просмотра всего текста 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.01.2018, 14:17	2
	Что нужно вычислить в задании 3? Задание не полное. 0

@assus69 0 / 0 / 0 Регистрация: 08.01.2018 Сообщений: 13
	09.01.2018, 14:20 [ТС]	3
	Вычислить значение функции. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.01.2018, 14:28	4
	Ты хоть понимаешь что там написано? Для чего шаг da? 0

@assus69 0 / 0 / 0 Регистрация: 08.01.2018 Сообщений: 13
	09.01.2018, 14:31 [ТС]	5
	Прошу прощения, не туда посмотрел. Кликните здесь для просмотра всего текста 0

@assus69 0 / 0 / 0 Регистрация: 08.01.2018 Сообщений: 13
	09.01.2018, 15:28 [ТС]	7
	Огромное спасибо за помощь.А, можете ещё написать 3 задание? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.01.2018, 15:48	8
	А я уже написал Сообщение от Puporev В 3 если a=0.14x, то а2<x2 и логарифм не определен. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.01.2018, 16:20	10
	Вам сколько еще долдонить что в условии ошибка a^2<x^2, а логарифм из отрицательного числа не определен. 0

Вычислить значения функций.

Решение