Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 1
Регистрация: 14.03.2010
Сообщений: 11
1

система сложных уравнений

21.03.2010, 23:24. Просмотров 1773. Ответов 1
Метки нет (Все метки)


условие задачи и мой вариант ответа далее. пытался сделать прогу, вот только, что-то в ней не так
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.03.2010, 23:24
Ответы с готовыми решениями:

система уравнений
очень прошу помочь решить вот эту систему уравнений

Система уравнений
Задание на картинке. http://i018.***********/1109/7f/2d5ac3a75ff2.png

Система уравнений
составить программу на языке программирования Паскаль, предназначенные для вычисления значения...

система уравнений
решить систему уравнений на pascal

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
0 / 0 / 1
Регистрация: 14.03.2010
Сообщений: 11
21.03.2010, 23:26  [ТС] 2
Лучший ответ Сообщение было отмечено breusov2007 как решение

Решение

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 LB2;
Var
y,X:array [1..5] of real;
n,m:ARRAY [1..]
i:integer;
a,b,s,k,n,m: real;
F:text;
begin
assign (F,'LB2.rez');
k:=0;
s:=0;
n:=((X[i]+1)/sqr(X[i]+1));
m:=(X[i]+sqr(X[i]))*(X[i]+b*sqr(X[i]));
for i:=1 to 5 do
k:=k+n[i];
s:=s+m[i];
for i:=1 to 3 do
begin
b:=0.85+1.1*s;
end;
for i:=1 to 5 do
begin
a:=1.21+1.55*k;
end;
if a*sqr(X[i])<=2*a+b then
y[i]:=(a*X[i]*X[i]*X[i])+b*ln(abs(2*X[i]+a));
if a*sqr(X[i])>2*a+b then
y[i]:=sqrt(a*X[i]+sin(b*X[i]))-exp(a*X[i]);
Rewrite (F);
Writeln (F,'Isxodnie dannie');
Writeln (F,'0.17e-2  0.24e-3  0.15  0.11e-2  1.015');
Writeln (F,'101419,Breusov');
For i:=1 to 5 do
Writeln (F,'z[',i,']',y[i]:7:5);
close (F);
end.
0
Миниатюры
система сложных уравнений  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.03.2010, 23:26

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Система уравнений
Есть система уравнений вот мое решение, задача не работает, где здесь ошибки? program Zadacha1;...

Система уравнений
Есть система уравнений: y={a^2*b^2-b^2*c^2+a^2*c^2, если b&lt;0 y={a^2*b^3+b^3*c^4+a^4*c^2, если b=0...

Система уравнений
Составить функцию для вычисления корней системы уравнения вида: a1,x+b1y=c1, { ...

Система уравнений
:- 2X1+X2-X3=1 {-2X1+2X2-3X3=2 X1-X2+4X3=3


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

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

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