Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
 Аватар для Konark
5 / 5 / 3
Регистрация: 20.01.2012
Сообщений: 218

Табулирование функции

20.09.2013, 11:49. Показов 877. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
y = 0.5 e^(2x + x^0.5); интервал : отрезок [0,1.5], шаг 0.3.

Вот, вроде бы все сделал правильно, НО, не могу никак написать эту функцию на языке паскаля правильно!
Помогите, пожалуйста.

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program tub;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
h=0.3;
 
var
y, x, n: real;
 
begin
x:= 0; n:= 1.5;
while x<= n do
begin
y:= exp(ln(0.5*exp))*((2*x)+(sqrt(x)));
writeln('x=' , x:5:3, ' / y=' , y:5:3);
x:= x+h;
end;
readln
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
20.09.2013, 11:49
Ответы с готовыми решениями:

Табулирование функции.
Составить программу вычисления значений функции F(x) на отрезке с шагом h. Результат представить в виде таблицы, первый столбец которой –...

Табулирование функции!!!
Помогите с табулированием функции!!!

Табулирование функции
Помогите, пожалуйста. Нужно составить программу для табулирования функций f(x) и g(x) при изменении x от a до b с шагом x, во второй -f(x),...

4
696 / 570 / 414
Регистрация: 31.03.2013
Сообщений: 1,029
20.09.2013, 12:08
Konark,
Pascal
1
y:= 0.5*exp(2*x+sqrt(x))
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
20.09.2013, 12:11
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const
xn=0;
xk=1.5;
h=0.3;
var x,y:real;
 
begin
x:=xn;
while x<=xk do
 begin
  y:=0.5*exp(2*x+(sqrt(x)));
  writeln('x=', x:4:1,'  y=', y:6:3);
  x:= x+h;
 end;
readln
end.
0
 Аватар для Konark
5 / 5 / 3
Регистрация: 20.01.2012
Сообщений: 218
20.09.2013, 12:25  [ТС]
Спасибо, теперь буду знать как, но именно этот пример сделал через math, НАААМНОГО проще
Code
1
y:=0.5*power(2.71,(2*x+sqrt(x)));
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
20.09.2013, 12:38
2.71 не есть точное значение e
Если через Math, которым здесь в паскале не очень избалованы, то тогда уж так
Pascal
1
y:=0.5*power(exp(1),(2*x+power(x,0.5)));
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
20.09.2013, 12:38
Помогаю со студенческими работами здесь

Табулирование функции.
Народ помогите с задачей!!!! sin(x) y={ cos(X) чему равен y если X= промежутку 1 до 4 или промежутку -2 до 3 с шагом 0,1

Табулирование функции
Задание такое: протабулировать и вывести значения функции a*sin(x)/b*sqrt(x*sqrt(10-x)) (дробь), где а меняется от an до ak с шагом da, x...

Табулирование функции
Необходимо вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для x изменяющихся от xn до xk с шагом h=(xn-xk)/10 ...

Табулирование функции
Составить программу для вычисления значений функции F(х) на отрезке с шагом h. Результат представить в виде таблицы, первый столбец...

Табулирование функции
Ребят может кто помочь с табулированием?не разу еще не делал такие задачи. Разработать программу табулирования (вычисления таблицы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь 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. На борту пять. . .
Камера 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. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru