Вывод значения функции на интервале [a; b] с шагом h (программа не работает)

@Zeleqs · Регистрация: 16.10.2011

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

Здравствуйте. Есть задача: Разработать программу вывода значения функции на интервале [a;b] с шагом h. Все три переменные вводятся с клавиатуры.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?Y=\begin{cases}0.56 \ln\left(ax \right) & \text{ , } ax \gt 0 \\\frac{\left(1+2ax \right)}{b} & \text{ , } ax = 0 \\7ax & \text{ , } ax \lt 0\end{cases}\\a=x^2-6x-1\\b=\sqrt[3]{\left|x-2 \right|}$

Вот моя программа. Где я ошибся?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var a,x,y,b,c,h,d: real;  
begin  
writeln ('Введите интервал a,b и шаг h'); 
readln (a,b,d); 
h:=a; 
while h>=b do 
begin
x:=h;
c:=(x*x-6*x-1)*x;
if c>0 then y:=0.56*ln(c);
if c=0 then y:=(1+2*c)/(exp(ln(abs(x-2))*3));
if c<0 then y:=7*c;
h:=h+d;
writeln ('Ответ=',y:0:3); 
end;  
readln
end.

@Puporev · 27.10.2011, 12:07

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var a,x,y,b,c,h: real;
begin
repeat
writeln ('Введите интервал a,b и шаг h, a<b h<b-a');
readln (a,b,h);
until(b>a)and(h<b-a);
x:=a;
while x<=b+h/2 do
 begin
  c:=(x*x-6*x-1)*x;
  if c>0 then y:=0.56*ln(c)
  else if c=0 then y:=(1+2*c)/(exp(ln(abs(x-2))*3))
  else y:=7*c;
  writeln ('x=',x:4:1,'  c=',c:8:3,'  y=',y:8:3);
  x:=x+h;
end;
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .