Помогите с задачкой....

26.11.2008, 15:35. **Показов** 784. **Ответов** 3

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

Помогите решить....

Ввести x и вычислить:

у= (система) :

2|x+1| ,если х < -1
0 ,если x = -1
lg|x+1| ,если x > -1

Буду премного благодарен!!!!

@lexus_ilia · 27.11.2008, 06:53

у тебя ошибка в условии, скорее всего не

lg|x+1| ,если x > -1

А всё таки ln|x+1|. Лови:

Код

Program xa;
var
 x,y:real;
begin
 Writeln('BBedute x');
 Write('x= ');
 readln(x);
 if x<-1 then
  y:=2*abs(x+1)
 else
  if x=-1 then
   y:=0
  else
   y:=ln(abs(x+1));
 Writeln('y= ' ,y:6:3);
 readln;
end.

@Puporev · 27.11.2008, 07:32

у тебя ошибка в условии, скорее всего не
Цитата:lg|x+1| ,если x > -1

А всё таки ln|x+1|. Лови:

А может и не ошибка.
Тогда вместо y:=ln(abs(x+1));
нужно y:=ln(abs(x+1))/ln(10);

27.11.2008, 11:02

Спасиб))Всё было проще чем ожидалось ))

Sarraf
		1
	Помогите с задачкой.... 26.11.2008, 15:35. Показов 784. Ответов 3 Метки нет (Все метки) Помогите решить.... Ввести x и вычислить: у= (система) : 2\|x+1\| ,если х < -1 0 ,если x = -1 lg\|x+1\| ,если x > -1 Буду премного благодарен!!!!

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	27.11.2008, 06:53	2
	у тебя ошибка в условии, скорее всего не lg\|x+1\| ,если x > -1 А всё таки ln\|x+1\|. Лови: Код Program xa; var x,y:real; begin Writeln('BBedute x'); Write('x= '); readln(x); if x<-1 then y:=2*abs(x+1) else if x=-1 then y:=0 else y:=ln(abs(x+1)); Writeln('y= ' ,y:6:3); readln; end. 1

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.11.2008, 07:32	3
	у тебя ошибка в условии, скорее всего не Цитата:lg\|x+1\| ,если x > -1 А всё таки ln\|x+1\|. Лови: А может и не ошибка. Тогда вместо y:=ln(abs(x+1)); нужно y:=ln(abs(x+1))/ln(10); 0

Sarraf
	27.11.2008, 11:02	4
	Спасиб))Всё было проще чем ожидалось ))

Опции темы