1 / 1 / 0
Регистрация: 19.12.2008
Сообщений: 34
1

Построить таблицу значений функции на указанном промежутке с данным шагом

21.01.2009, 14:39. Показов 2897. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Построить таблицу значений функции на указанном промежутке с данным шагом:
y=система с двух уравнений
1)tgx , -П/4<x<П/4
2)4x/П ,в другом случаи


[-П;П], дельта x=П/10


с помощью процецуры
хэлп
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.01.2009, 14:39
Ответы с готовыми решениями:

Построить таблицу значений функции на указанном промежутке с данным шагом
Построить таблицу значений функции на указанном промежутке с данным шагом: y=система с двух...

Процедуры: построить таблицу значений функции на указанном интервале с заданным шагом
Составить программу с использованием процедуры. Построить таблицу значений функции на указанном...

Построить таблицу значений функции на указанном интервале с заданным шагом используя процедуры
Построить таблицу значений функции на указанном интервале с заданным шагом используя процедуры:

Построить таблицу значений функции f (x) на промежутке [a, b] с шагом h, найти наибольшее и наименьшее значение функции на этом отрезке
Результаты вывести на экран и сохранить в файле в виде: x f (x) --------------------- x1 f (x1)...

4
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
21.01.2009, 18:14 2
Код
[SIZE=2]
uses crt;
procedure Raschet(z:real; var f:real);[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]процедура вычисления по формулам[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]begin
if (z>-pi/4)and(z<pi/4)then f:=sin(z)/cos(z)
else f:=4*z/pi;
end;
var x,xn,xk,dx,y:real;
begin
clrscr;
xn:=-pi;xk:=pi;dx:=pi/10;[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]начальные значения[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]x:=xn-dx;[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]отступим на шаг назад[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]while x<=xk do[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]пока не достигнем конечного х[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]begin
x:=x+dx;[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]приращиваем значение на шаг[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]Raschet(x,y);[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]вычисляем[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]writeln('x=',x:7:4,' y=',y:7:4);[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]выводим в таблицу[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]end;
readln
end.
[/SIZE][FONT=Times New Roman][SIZE=2][FONT=Times New Roman][/FONT][/SIZE][/FONT]
1
1 / 1 / 0
Регистрация: 19.12.2008
Сообщений: 34
21.01.2009, 18:33  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
Код
[SIZE=2]
uses crt;
procedure Raschet(z:real; var f:real);[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]процедура вычисления по формулам[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]begin
if (z>-pi/4)and(z<pi/4)then f:=sin(z)/cos(z)
else f:=4*z/pi;
end;
var x,xn,xk,dx,y:real;
begin
clrscr;
xn:=-pi;xk:=pi;dx:=pi/10;[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]начальные значения[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]x:=xn-dx;[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]отступим на шаг назад[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]while x<=xk do[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]пока не достигнем конечного х[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]begin
x:=x+dx;[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]приращиваем значение на шаг[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]Raschet(x,y);[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]вычисляем[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]writeln('x=',x:7:4,' y=',y:7:4);[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]выводим в таблицу[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]end;
readln
end.
[/SIZE][FONT=Times New Roman][SIZE=2][/SIZE][/FONT]


Спасибо огромное. Програма работает)))
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
21.01.2009, 18:37 4
Програма работает
Надо же, счастье какое! Я нерабочие обычно не выкладываю.
0
1 / 1 / 0
Регистрация: 19.12.2008
Сообщений: 34
21.01.2009, 18:46  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
Надо же, счастье какое! Я нерабочие обычно не выкладываю.

Ладно, програма работает--было лишним, а так СПАСИБКИ
0
21.01.2009, 18:46
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.01.2009, 18:46
Помогаю со студенческими работами здесь

Построить на промежутке [-2;2] с шагом 0,4 таблицу значений функции
Построить график функции. Сделал два варианта, но не знаю какой правильный.

Построить таблицу значений заданной функции на заданном промежутке с указанным шагом
буду очень благодарна за помощь в решение задачки :coffee2:

Построить таблицу значений функций TRUNC и ROUND на промежутке чисел [N, M] с шагом H
Построить таблицу значений функций TRUNC и ROUND на промежутке чисел с шагом H. P.S.Нужно...

Создать текстовый файл, содержащий таблицу значений заданной функции на указанном промежутке
Даны вещественные числа А, В и целое число N. Создать текстовый файл, содержащий таблиц значений...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru