Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.54/170: Рейтинг темы: голосов - 170, средняя оценка - 4.54
20 / 1 / 0
Регистрация: 10.01.2011
Сообщений: 71
1

Вычислить значение выражения

10.01.2012, 22:37. Показов 30814. Ответов 8
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Всем привет!Прошу проверить мои переводы математических формул на язык паскаль.В файле изображение математических формул,а здесь я выложил перевод на паскаль.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
1.
(2*cos(x-pi/6))/(1/2+sqr(sin(y)));
1+(sqr(z)/(3+sqr(z)/5);
2.
ABS*((exp(ln(x)*y)/x)-(exp(1/3*ln(y/x)));
(y-x)*((y-z/(y-x))/(1+sqr((y-x))))
3. не знаю с факториалами)
x*(sin(x*sqr(x))+sqr(cos(y)));
4.
exp(-1*b*t)*sin(a*t+b)-sqrt(ABS(b*t+a));
b*sin(a*sqr(t)*cos(2*t))-1;
5.
sqrt(sqr(x)+b)-sqr(b)*(sin*sin*sin(x+a)/x);
sqr(cos(sqr(x)*x))-x/sqrt(sqr(a)+sqr(b));
6.
sqr(x)*x*sqr(sin(x)/cos(x))*(sqr(x+b))+a/sqrt(x+b);
(b*sqr(x)-a)/(exp(a*x)-1);
7.
sqr(x)*(x+1)/b-sqr(sin(x+a));
sqrt((x*b)/a)+sqr(cos(sqr(x+b)));
8.
sin*sqr(sin(sqr((sqr(x)+a))-sqrt(x/b);
sqr(x)/a+cos(sqr(x+b)*(x+b));
9.
exp(1/3*ln(m*c*t*b+ABS(c*sin(t));
m*cos(b*t*sin(t))+c;
10.
a*b*sqr(x)-a/(sqr(sin((x/a))));
a*exp(-1*sqrt(a))*cos((b*x)/a);
11.
ln(a+sqr(x))+sqr(sin(x/b));
exp(-1*c*x)*((x+sqrt(x+a))/(x-sqrt(ABS(x-b)));
12.
(exp(2*x*ln(a))+exp(-1*x*ln(b))*cos(a+b)*x)/(x+1);
sqrt(sqr(x)+b)-sqr(b)*(sqr(sin)*sin(x+a))/x;
13.
sqrt(a*x*sin*2*x+exp(-2*x)/(x+b));
sqr(cos)*cos*sqr(x)*x-x/sqrt(sqr(a)+sqr(b));
14.
(sqr(a)*x+exp(-1*x)*cos(b)*x)/(b*x-exp(-1*x)*sin(b)*x+1;
exp(2*x)*ln(a+x)-exp(3*x*ln(b))*ln(b-x);
15.
(sin(x)/(sqrt(sqr(m)+sqr(sin(x)))-(c*m*ln(m*x));
exp(-1*a*x)*sqrt(x+1)+exp(-1*b*x)*sqrt(x+1,5);
Миниатюры
Вычислить значение выражения  
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
10.01.2012, 22:37
Ответы с готовыми решениями:

Вычислить значение выражения
y=корень 1-2x^2+3+1

Вычислить значение выражения
Ребят, помогите. срочно нужно. Обчислить z=9(3,4)+g(4,5)+g(7,8), где g(a,b)=SQRT(a+b)

Вычислить значение выражения
помогите создать код к етим задачам

Вычислить значение выражения
Ввести числа: натуральные m и n и вещественное x. Если частное от деления m на n четное, то...

8
20 / 1 / 0
Регистрация: 10.01.2011
Сообщений: 71
10.01.2012, 22:49  [ТС] 2
http://s2.ipicture.ru/Gallery/... 83405.html вот разместил изображение мат.формул
0
Mobile Software Engineer
Эксперт С++
 Аватар для Ev[G]eN
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
11.01.2012, 00:32 3
Цитата Сообщение от NXZ Посмотреть сообщение
3. не знаю с факториалами)
вот функция для нахождения факториала числа, пользуйтесь
Pascal
1
2
3
4
5
6
7
8
9
function Factorial(n: integer): integer;
var
 i, pr: integer;
begin
 pr:=1;
  for i:=1 to n do 
   pr:=pr*i;
 factorial:=pr;
end;
0
17 / 17 / 3
Регистрация: 27.12.2011
Сообщений: 81
11.01.2012, 00:44 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
function fact(x:byte):real;
begin
if x=0 then fact:=1
else fact:=fact(x-1)*x;
end;
 
function power(x,pow:integer):integer; 
var res: integer;
begin
res := 1;
while (pow > 0) do
begin
if (pow and 1 = 1) then res := res * x;
x := x + x;
pow := pow shr 1;
end;
power := res;
end;
 
1.
(2*cos(x-pi/6))/(1/2+sqr(sin(y)));
1+(sqr(z)/(3+sqr(z)/5);
 
2.
ABS((exp(ln(x)*y)/x)-(exp(1/3*ln(y/x)));
(y-x)*((y-z/(y-x))/(1+sqr((y-x))))
 
3.
1+x+sqr(x)/fact(2)+power(x, 3)/fact(3)+power(x, 4)/fact(4);
x*(sin(x*sqr(x))+sqr(cos(y)));
 
4.
exp(-1*b*t)*sin(a*t+b)-sqrt(ABS(b*t+a));
b*sin(a*sqr(t)*cos(2*t))-1;
 
5.
sqrt(sqr(x)+b)-sqr(b)*(power(sin(x+a), 3)/x);
sqr(cos(sqr(x)*x))-x/sqrt(sqr(a)+sqr(b));
 
6.
sqr(x)*x*sqr(sin(sqr(x+b))/cos(sqr(x+b)))+a/sqrt(x+b);
(b*sqr(x)-a)/(exp(a*x)-1);
 
7.
sqr(x)*(x+1)/b-sqr(sin(x+a));
sqrt((x*b)/a)+sqr(cos(sqr(x+b)));
 
8.
power(sin(sqr((sqr(x)+a))),3)-sqrt(x/b);
sqr(x)/a+cos(sqr(x+b)*(x+b));
 
9.
exp(1/3*ln(m*c*t*b+ABS(c*sin(t));
m*cos(b*t*sin(t))+c;
 
10.
a*b*sqr(x)-a/sqr(sin(x/a));
a*exp(-1*sqrt(a))*cos(b*x/a);
 
11.
ln(a+sqr(x))+sqr(sin(x/b));
exp(-1*c*x)*((x+sqrt(x+a))/(x-sqrt(ABS(x-b)));
 
12.
(exp(2*x*ln(a))+exp(-1*x*ln(b))*cos(a+b)*x)/(x+1);
sqrt(sqr(x)+b)-sqr(b)*power(sin(x+a), 3)/x;
 
13.
sqrt(a*x*sin(2*x)+exp(-2*x)/(x+b));
sqr(cos(sqr(x)*x))-x/sqrt(sqr(a)+sqr(b));
 
14.
(sqr(a)*x+exp(-1*x)*cos(b*x))/(b*x-exp(-1*x)*sin(b*x)+1);
exp(2*x)*ln(a+x)-exp(3*x*ln(b))*ln(b-x);
 
15.
(sin(x)/(sqrt(sqr(m)+sqr(sin(x)))-(c*m*ln(m*x));
exp(-1*a*x)*sqrt(x+1)+exp(-1*b*x)*sqrt(x+1,5);
1
Mobile Software Engineer
Эксперт С++
 Аватар для Ev[G]eN
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
11.01.2012, 00:51 5
Цитата Сообщение от BlackFox Посмотреть сообщение
function fact(x:byte):real;
begin
if x=0 then fact:=1
else fact:=fact(x-1)*x;
end;
оригинально...

Добавлено через 46 секунд
Факториал - произведение всех натуральных чисел до n включительно. у вас так?
1
17 / 17 / 3
Регистрация: 27.12.2011
Сообщений: 81
11.01.2012, 00:55 6
Цитата Сообщение от Ev[G
eN;2374815]Факториал - произведение всех натуральных чисел до n включительно. у вас так?
Функция рекурсивна, при первом вызове передается n-е число, и при каждом последующем вызове оно уменьшается на 1, пока не достигнет 0.
1
Mobile Software Engineer
Эксперт С++
 Аватар для Ev[G]eN
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
11.01.2012, 00:59 7
ну посчитайте по вашему коду факториал 4..у меня по вашему коду получается 12, а должно быть 24..ошибочка у вас

Добавлено через 2 минуты

Не по теме:

ошибочка с моей головой. прошу прощения.

1
20 / 1 / 0
Регистрация: 10.01.2011
Сообщений: 71
11.01.2012, 01:01  [ТС] 8
Ev[G]eN,
BlackFox, большое Вам спасибо я очень Вам признателен,что Вы уделили свое драгоценное время мне.
0
BlackFox
11.01.2012, 01:12     Вычислить значение выражения
  #9

Не по теме:

Ev[G]eN, ничего, с каждым бывает :) Заставили меня еще раз проверить код :)

0
11.01.2012, 01:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.01.2012, 01:12
Помогаю со студенческими работами здесь

Вычислить значение выражения
Помогите решить задачу с помощью оператора цикла for to do. Дано действительное число x. Вычислить:...

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

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

Вычислить значение выражения
Условие: "Использовать оператор цикла параметром. Массивы не использовать" Дано действительное...


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

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Обработка числовой информации
hw_wired 28.01.2025
Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .
Мультимедиа
hw_wired 28.01.2025
Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .
Обработка текстовой информации
hw_wired 28.01.2025
Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .
Обработка графической информации
hw_wired 28.01.2025
Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .
Python в Алгоритмике: Решение задач
hw_wired 28.01.2025
Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .
Компьютер как универсальное устройство для работы с информацией
hw_wired 28.01.2025
Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .
Информация и информационные процессы
hw_wired 28.01.2025
Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .
Алгоритмика
hw_wired 28.01.2025
Введение: Основы алгоритмики и её роль в информатике В современном мире программирование и алгоритмическое мышление стали неотъемлемой частью образования и профессиональной деятельности. . . .
Информационное моделирование
hw_wired 28.01.2025
Введение в информационное моделирование В современном мире информационное моделирование стало неотъемлемой частью научной, образовательной и профессиональной деятельности. Это мощный инструмент. . .
Объекты и их имена
hw_wired 28.01.2025
Введение: Основы объектного подхода и их роль в информатике В современном мире информационных технологий объектный подход стал фундаментальным принципом организации и обработки информации. Этот. . .
Элементы алгоритмизации
hw_wired 28.01.2025
Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .
Человек и информация
hw_wired 28.01.2025
Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru