Найти область определения функции

@cause_I_TNT · Регистрация: 02.04.2013

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

Найти область определения функции. С помощью операторов цикла протабулировать заданную функцию. Результаты представить в виде таблицы с комментариями.

там будет вся числовая ось ,х не будет равно -1, и 1..
даже если взять любой промежуток,пусть от -10 до 10..как это записать?

@Cyborg Drone · 02.04.2013, 02:56

cause_I_TNT, очень просто. Конечно же, часть числовой оси. Ну как-то так:

- задаём интервал табуляции, допустим, от -5 до 5.
- задаём шаг табуляции, допустим, 0,1.
- определяем, сколько будет строк в таблице: получается 101.
- начинаем писать программу.
- объявляем три переменных (этого достаточно): счётчик строк (i: integer; ), шаг, аргумент (s, x: real; ).
- далее в цикле, допустим, for i := -50 to 50 , или while, или repeat - until (да без разницы, for просто удобнее)
- вычисляем аргумент x := s * i;
- условным оператором определяем область определения функции, заодно печатаем таблицу, например, так:

Pascal

write('x = ', x);
if ((x = -1.0) or (x = 1.0))
  then writeln(' Функция не определена.')
  else writeln(' y = ', (x / (1.0 - x * x)));

- всё, конец цикла, да, собственно, и программы тоже.

Успехов.

@cause_I_TNT · 02.04.2013, 15:20 **[ТС]**

Pascal

program test;
uses crt;
Var x,y:real;
begin
x:=-5;
while  x<=5 do
begin
x:=x+0.5;
write('x = ', x);
if ((x = -1.0) or (x = 1.0))
  then writeln(' функция неопределена')
  else writeln(' y = ', (x / (1.0 - x * x)));
 
end;
end.

Pascal

program test;
uses crt;
Var x,y:real;
i:integer;
begin
for i:=-5  to 5 do
begin
x:=i+0.5;
write('x = ', x);
if ((x = -1.0) or (x = 1.0))
  then writeln(' Ôóíêöèÿ íå îïðåäåëåíà.')
  else writeln(' y = ', (x / (1.0 - x * x)));
 
end;
end.

так правильно будет?
и как через repeat until?

@Cyborg Drone · 02.04.2013, 18:03

Всё верно... Но есть неточности...

Pascal

1	Var x,y:real;

переменная y нигде не используется, убрать

Pascal

1
2
3

for i:=-5  to 5 do
begin
x:=i+0.5;

казус: x тогда будет -4.5, -3.5, -2.5 ... 4.5, 5.5
вряд ли Вы этого желали, i лучше расширить и х находить умножением (или, может быть, делением) например,

Pascal

1
2
3

for i:=-10  to 10 do
begin
x := i * 0.5;

ну или

Pascal

1	x := i / 2.0;

теперь x будет -5.0, -4.5, -4.0, ... 4.5, 5.0

Pascal

1
2

end;
end.

тут обычно делают ожидание реакции пользователя перед закрытием программы. Надо между end-ами вставить readln; или readkey;

Через repeat until также всё, цикл только немного по-другому будет. Тогда переменная i не нужна (кстати, и во while тоже i не нужна). Вот так получается:

Pascal

program test;
uses crt;
Var x: real;
begin
writeln('Функция  y = x / (1 - x^2'));
x := -5.0;
repeat
write('x = ', x);
if ((x = -1.0) or (x = 1.0))
  then writeln(' Функция не определена.')
  else writeln(' y = ', (x / (1.0 - x * x)));
x := x + 0.5;
until x > 5.0;
readln;
end.

Ха! Так даже лаконичнее.

Можно ещё написать вместо

Pascal

1	if ((x = -1.0) or (x = 1.0))

вот так:

Pascal

1	if abs(x) = 1.0

Всего доброго.

Добавлено через 17 минут
Проверил, всё работает. Можно ещё применить форматированный вывод данных, тогда понагляднее будет:

Pascal

write('x = ', x:4:1);
if ((x = -1.0) or (x = 1.0))
  then writeln(' Функция не определена.')
  else writeln(' y = ', (x / (1.0 - x * x)):10:7);

@cause_I_TNT 0 / 0 / 0 Регистрация: 02.04.2013 Сообщений: 15
		1
	Найти область определения функции 02.04.2013, 01:59. Показов 1753. Ответов 3 Метки нет (Все метки) Найти область определения функции. С помощью операторов цикла протабулировать заданную функцию. Результаты представить в виде таблицы с комментариями. там будет вся числовая ось ,х не будет равно -1, и 1.. даже если взять любой промежуток,пусть от -10 до 10..как это записать? Изображения 0