Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
mad_max97
0 / 0 / 1
Регистрация: 26.05.2016
Сообщений: 2
1

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

26.05.2016, 01:47. Просмотров 772. Ответов 1
Метки нет (Все метки)

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

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

Вычислить значение выражения
Приветствую. Нужна помощь по Паскалю. По теме условные операторы Помогите...

Вычислить значение выражения
http://www.kufas.ru/programming27.htm в 1 задании под буквами :а,в,д 2 задание...

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

Вычислить значение выражения
Написал, но что-т не фурычит Program Danilova; Var X,Y,Z,R,U:Integer;...

1
mad_max97
0 / 0 / 1
Регистрация: 26.05.2016
Сообщений: 2
30.05.2016, 23:05  [ТС] 2
Лучший ответ Сообщение было отмечено mad_max97 как решение

Решение

Помогите пожалуйста, при запуске программы выдает ошибку 207. В области программирования не силен, прошу не судить строго, если ошибка элементарна.

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


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
program maks9;
uses
crt;
var
z:array[1..5] of real;
y:array[1..5] of real;
x:array[1..5] of real;
p:array[1..5] of real;
a,b,xsum,bsum:real;
i:integer;
begin
xsum:=0;
bsum:=0;
for i:=1 to 5 do
begin
xsum:=xsum+(sqr(x[i])-sqr(p[i]));
bsum:=bsum+(sin(x[i])+cos(p[i]));
end;
a:=0.34+1.02*xsum;
b:=0.33+0.31*bsum;
for i:=1 to 5 do
begin
if cos(x[i]-1)<=sqrt(sqr(a)-sqr(b)) then
y[i]:=ln(sqr(x[i]))-exp(a*z[i]+b)+ln(abs(a*x[i]-b))/ln(10)
else if cos(x[i])>a-b then
y[i]:=Sin(a*x[i]+b*sqr(z[i]))/cos(a*x[i]+b*sqr(z[i]))-b*abs(exp(-3*ln(x[i])));
end;
for i:=1 to 5 do
begin
if sin(x[i])-b*x[i]>a+b then
z[i]:=ln(sqr(x[i]))-a*sqrt(sin(x[i])+sqr(cos(x[i])))
else if sqr(sin(x[i]))<=sqr(a)-sqr(b) then
z[i]:=sin(x[i])/cos(x[i])+(a*x[i]+0.7)/sqrt(sqr(b)-x[i]);
end;
writeln('pri X=',x[i],'znachenie Z=',z[i]);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.05.2016, 23:05

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

Вычислить значение выражения ((x-2)(x-4)...(x-2n))/(x-1)(x-3)...(x-2n-1)
Помогите, пожалуйсто, никак правильно не получается, задача: x -...

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


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

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

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