Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Lokt
3 / 3 / 0
Регистрация: 13.04.2012
Сообщений: 13
#1

Вычислить значения функций - Turbo Pascal

16.04.2012, 01:45. Просмотров 726. Ответов 2
Метки нет (Все метки)

Составить программу на языке Borland-Pascal. В программе вычислить значения функций f, z, y для значений x, изменяющихся на отрезке [0,1] с шагом 0,2.
Помогите плз=)

формулы:
0
Миниатюры
Вычислить значения функций  
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.04.2012, 01:45
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить значения функций (Turbo Pascal):

Вычислить значения функций.
Вычислить значение функций

Вычислить значения функций
Здравствуйте, товарищи! Очень надеюсь на вашу помощь. Я начинающий (очень)...

Вычислить значения заданных функций
Вычислить значения заданных функций. Y=sin^3(x^2+a^2)-\sqrt{x/b}...

Вычислить значения трёх функций.
Дан отрезок .Вычислить значения трех функций f1=sin(x) ...

Вычислить значения функций f(x) и g(x) на отрезке [a,b] с шагом h
Нужна помощь в решении данной задачи: Вычислить значения функций f(x) и g(x)...

Вычислить значения функций Y=sin x Y=cos x Y=tg x Y=ctg x.
Просьба помочь кто чем сможет. 1. Дана последовательность числового ряда "1\2...

2
Lokt
3 / 3 / 0
Регистрация: 13.04.2012
Сообщений: 13
16.04.2012, 17:17  [ТС] #2
0
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
16.04.2012, 23:09 #3
Лучший ответ Сообщение было отмечено Lokt как решение

Решение

все чем могу... с z - проблемы, остальное работает...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
const line='---------------------------------';
var y,x,z,f,a,b,h:real;
begin
a:=0; b:=1; h:=0.2;
WriteLn(line);
WriteLn('|','x':4,'|':4,'y':4,'|':4,'z':4,'|':4,'f':4,'|':4);
WriteLn(line);
x:=a;
repeat
    if x<0.5 then y:=(ln((3*x)+1))/(sqr(x)+6)
       else y:=exp(3*ln(abs(sin(4*x)/cos(4*x))));
    z:=exp(ln(abs(sqr(sin(6*x))))/7);
    f:=(sqr(z)*z)+sqrt(5*abs(y));
    x:=x+h;
    writeLn('|',x:6:2,'|':2,y:6:2,'|':2,z:6:2,'|':2,f:6:2,'|':2);
until x>=b;
WriteLn(line);
readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.04.2012, 23:09
Привет! Вот еще темы с решениями:

Для функций, представленных ниже бесконечными рядами, вычислить их приближённые значения с точностью ε=10-3 в точке x=1,5.
задача находиться во вложенном документе,буду признателен если поможете решить...

Вычислить значения переменных. Вывести на печать значения вводимых исходных данных и результаты вычислений
Вычислить значения переменных по заданным расчетным формулам и наборам...

Найти значения функций
Здравствуйте. Помогите справиться с задачей: для x на отрезке с шагом h=1...

Вывести значения двух функций
Как сделать так чтобы вывести значения этих функций? Я не совсем понял, можно...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru