Ошибка при работе программы вещественное деление на 0

@Filipp01-13 · Регистрация: 20.11.2013

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

При работе программы вводятся значения A=1 N=16 эти значения необходимо вводить по условию в первом значение y указывает вещественное деление на 0 в чем проблема в формуле?? Заранее благодарен за помощь.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program p1_6;
var
 i,n:integer;
 a,x,x1,dx,y:real;
begin
 writeln('vvedite n,a');
 readln(n,a);
 x1:=-a;
 dx:=a/4;
 x:=x1;
writeln('                                   ','Tablica znahenii');
writeln('                                   ','n x y');
 For i:=1 to n do
 begin
 if x<0 then
 y:=sqrt(exp(3)*ln(exp(1/3)*ln(sqr(a))-exp(1/3)*ln(sqr(x+a))))
 else
 y:=-sqrt(exp(3)*ln(x)/(2*a-x));
 writeln(i,x:8:2,y:8:2);
 x:=x+dx;
 end;
 readln;
 end.

@Puporev · 14.09.2015, 20:48

Нужно посмотреть условие задачи, формулы.

@Filipp01-13 · 14.09.2015, 21:07 **[ТС]**

Добавлено через 1 минуту
$https://www.cyberforum.ru/cgi-bin/latex.cgi?y=\sqrt{(\sqrt[3]{a^2}-\sqrt[3]{(x+a)^2})^3}<br /> y=-\sqrt{x^3/(2*a-x}$
Это два Y а условие если X<0 выполняется первый y если X>=0 то второй y
Нужно составить программу для вычисления значений N функции Y для X изменяющегося от X1 c шагом dx.
A=1 x1=-a dx=a/4 N=16

@Puporev · 14.09.2015, 21:50

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Program p1_6;
var i,n,a:integer;
    x,dx,y,z:real;
begin
writeln('vvedite n,a');//16, 1
readln(n,a);
dx:=a/4;
x:=-a;
writeln('Tablica znahenii');
writeln(' n     x      y');
For i:=1 to n do
 begin
  if x<0 then
   begin
    if x=-a then z:=exp(ln(a*a)/3)
    else z:=exp(ln(a*a)/3)-exp(ln(sqr(x+a))/3);
    y:=sqrt(z*z*z);
    writeln(i:2,x:8:2,y:8:2);
   end
  else
   begin
    if 2*a-x<=0 then writeln(i,x:8:2,'   y не определено')
    else
     begin
      y:=-sqrt(x*x*x/(2*a-x));
      writeln(i:2,x:8:2,y:8:2);
     end;
   end;
  x:=x+dx;
 end;
end.

@Filipp01-13 · 14.09.2015, 22:08 **[ТС]**

А возможна запись Y в одну строку

@Puporev · 14.09.2015, 22:10

Это как?

@Filipp01-13 · 14.09.2015, 22:17 **[ТС]**

Как я пробовал изначально то есть записать каждый Y в одну строчку

@Puporev · 14.09.2015, 22:18

Не получится, поскольку разные условия определения, просто по формуле не посчитать.

Новые блоги и статьи Все статьи Все блоги /
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	14.09.2015, 20:48
	Нужно посмотреть условие задачи, формулы. 0

@Filipp01-13 0 / 0 / 0 Регистрация: 20.11.2013 Сообщений: 6
	14.09.2015, 21:07 [ТС]
	Добавлено через 1 минуту $https://www.cyberforum.ru/cgi-bin/latex.cgi?y=\sqrt{(\sqrt[3]{a^2}-\sqrt[3]{(x+a)^2})^3}<br /> y=-\sqrt{x^3/(2*a-x}$ Это два Y а условие если X<0 выполняется первый y если X>=0 то второй y Нужно составить программу для вычисления значений N функции Y для X изменяющегося от X1 c шагом dx. A=1 x1=-a dx=a/4 N=16 0

@Filipp01-13 0 / 0 / 0 Регистрация: 20.11.2013 Сообщений: 6
	14.09.2015, 22:08 [ТС]
	А возможна запись Y в одну строку 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	14.09.2015, 22:10
	Это как? 0

@Filipp01-13 0 / 0 / 0 Регистрация: 20.11.2013 Сообщений: 6
	14.09.2015, 22:17 [ТС]
	Как я пробовал изначально то есть записать каждый Y в одну строчку 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	14.09.2015, 22:18
	Не получится, поскольку разные условия определения, просто по формуле не посчитать. 0