Протабулировать функцию

@Killzone1 · Регистрация: 28.11.2015

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

Дали задание в Паскале(я в програмировании не очень силен

) протабулировать функцию y=f(x) на интервале [a,b] с кроком h. Найти среди вычисленных значений функции наибольшее и наименьшее, а также указать значения аргументов при которых они достигаются. Функция виглядит так

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> y=\frac{\sqrt{x^2+1}}{x}<br />$

интервал [1,3], крок 0,2

@Puporev · 21.02.2018, 15:23

Посмотрите похожие темы, список которых внизу страницы.

@Killzone1 · 21.02.2018, 21:19 **[ТС]**

у меня получился вот такой код, вроде работает только я не уверен верно ли я всё сделал

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
function F(x:real):real;
begin
F:=sqr(sqrt(x)+1)/x;
end;
var a,b,x,h,y:real;
begin
clrscr;
a:=1;
b:=3;
h:=0.2;
x:=a;
while x<=b do
begin
y:=F(x);
writeln('x=',x:2:0,'y=',y:6:2);
x:=x+h;
end;
readln
end.

особенно я не уверен в этой строчке

Pascal
1
writeln('x=',x:2:0,'y=',y:6:2);

@Cyborg Drone · 22.02.2018, 00:02

Есть мелкие ошибки. Перепутали sqr и sqrt, выбрали неверный формат вывода. И, самое главное: десятичное число 0.2 не может быть переведено точно в компьютерную форму представления чисел с плавающей точкой, поэтому, из-за накопленной ошибки, последняя строка (для x = 3) выведена не будет. Для того, чтобы этого избежать, в условие выхода из цикла нужно добавить некоторое число, меньшее 0.2, например, 0.1. Исправленная программа:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
begin
  F := sqrt(sqr(x) + 1) / x
end;
 
var
  a, b, x, h, y: real;
 
begin
  a := 1;
  b := 3;
  h := 0.2;
  x := a;
  while x < b + h / 2 do
    begin
      y := F(x);
      writeln('x = ', x:3:1, '  y = ', y:6:4);
      x := x + h
    end;
  readln
end.

Если какие-то переменные в программе не меняются, то лучше использовать константы. От переменной "y" можно избавиться.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
function F(x: real): real;
begin
  F := sqrt(sqr(x) + 1) / x
end;
 
const
  a = 1;
  h = 0.2;
  b = 3 + h / 2;
 
var
  x: real;
 
begin
  x := a;
  while x < b do
    begin
      writeln('x = ', x:3:1, '  y = ', F(x):6:4);
      x := x + h
    end;
  readln
end.

Если совсем кратко, то задачу можно решить так:

Pascal
1
2
3
4
5
6
7
var
  i: integer;
 
begin
  for i := 5 to 15 do writeln('x = ', i/5:3:1, '  y = ', sqrt(sqr(i/5)+1)/i*5:6:4);
  readln
end.

Добавлено через 4 минуты
Пятую строку можно немного сократить...

Pascal
5
  for i := 5 to 15 do writeln('x = ', i/5:3:1, '  y = ', sqrt(1+25/i/i):6:4);

@Killzone1 · 22.02.2018, 00:08 **[ТС]**

Cyborg Drone, большое спасибо)

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью 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 полиномов. . .

@Killzone1 0 / 0 / 0 Регистрация: 28.11.2015 Сообщений: 7

	Протабулировать функцию 21.02.2018, 15:04. Показов 1408. Ответов 4 Метки нет (Все метки) Дали задание в Паскале(я в програмировании не очень силен) протабулировать функцию y=f(x) на интервале [a,b] с кроком h. Найти среди вычисленных значений функции наибольшее и наименьшее, а также указать значения аргументов при которых они достигаются. Функция виглядит так $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> y=\frac{\sqrt{x^2+1}}{x}<br />$ интервал [1,3], крок 0,2 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	21.02.2018, 15:23
	Посмотрите похожие темы, список которых внизу страницы. 0

@Killzone1 0 / 0 / 0 Регистрация: 28.11.2015 Сообщений: 7
	22.02.2018, 00:08 [ТС]
	Cyborg Drone, большое спасибо) 0

Протабулировать функцию

Решение