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

Система уравнений. Pascal

11.01.2010, 18:09. Просмотров 1187. Ответов 4
Метки нет (Все метки)


Здравствуйте, уважаемые форумчане! Помогите пожалуйста кто-нибудь написать код программы на языке Pascal для следующей системы уравнений. Буду весьма признателен всем тем кто поможет.
0
Изображения
 
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.01.2010, 18:09
Ответы с готовыми решениями:

Pascal algo система уравнений
Найти графически решение системы уравнений и написать в ответе координаты точек пересечения...

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

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

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

__________________
Помогаю в написании студенческих работ здесь.
4
3302 / 1364 / 109
Регистрация: 28.04.2009
Сообщений: 4,822
11.01.2010, 18:10 2
nokman, каким способом решать?
0
0 / 0 / 0
Регистрация: 06.12.2009
Сообщений: 20
11.01.2010, 18:12  [ТС] 3
Да мне не важно каким. Любым доступным. Главное написать код программы на Pascal
0
Модератор
62965 / 46969 / 32371
Регистрация: 18.05.2008
Сообщений: 113,838
11.01.2010, 18:34 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
uses crt;
const n=3;
var a1,b1,c1,d1,
    a2,b2,c2,d2,
    a3,b3,c3,d3,
    x1,x2,x3:real;
begin
clrscr;
{приведение матрицы к треугольному виду}
a1:=1;b1:= 2;c1:=-1;d1:=-3;
a2:=2;b2:= 3;c2:= 1;d2:=-1;
a3:=1;b3:=-1;c3:=-1;d3:= 3;
{обнуляем коэффициенты при х1 во 2 и 3 уравнениях}
b2:=b1+b2*(-a1/a2); c2:=c1+c2*(-a1/a2); d2:=d1+d2*(-a1/a2);
b3:=b1+b3*(-a1/a3); c3:=c1+c3*(-a1/a3); d3:=d1+d3*(-a1/a3);
{обнуляем коэффциет при х2 в третьем уравнении}
c3:=c3+c2*(-b3/b2); d3:=d3+d2*(-b3/b2);
{ищем корни, начиная с последнего}
x3:=d3/c3;
x2:=(d2-c2*x3)/b2;
x1:=(d1-b1*x2-c1*x3)/a1;
writeln('Корни системы:');
write('x1=',x1:0:2,'  x2=',x2:0:2,'  x3=',x3:0:2);
readln;
end.
1
0 / 0 / 0
Регистрация: 06.12.2009
Сообщений: 20
11.01.2010, 18:38  [ТС] 5
Puporev, огромное Вам человеческое спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.01.2010, 18:38

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

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

система линейных уравнений
необходимо решить систему линейных уравнений: 3х1+4х2+2х3=8 2х1-х2-3х3=-4 х1+5х2+х3=0 Метод...

Система линейных уравнений
Даны действительные числа x, y, z. Выяснить, верно ли, что (I-модуль)Ia1b2- ф2и2І>=0.001и если...

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


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

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

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