|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
21.04.2016, 16:46 | #1 |
Новичок
Джуниор
Регистрация: 21.04.2016
Сообщений: 2
|
Помощь с домашкой
Нужно написать универсальную программу для решения уравнений методом Крамера. Вот что уже есть:
uses crt; const n=3; var a:array [1..n,1..n] of real; b:array [1..n] of real; i,j:integer; d,d1,d2,d3: real; x,y,z:real; begin a[1,1]:=1; a[1,2]:=2; a[1,3]:=-3; b[1]:=-4; a[2,1]:=2; a[2,2]:=-3; a[2,3]:=5; b[2]:=11; a[3,1]:=3; a[3,2]:=-5; a[3,3]:=8; b[3]:=17; writeln('общая матрица:'); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:8:4); writeln(b[i]:12:4); end; writeln; d:= a[1,1]*a[2,2]*a[3,3]-a[1,1]*a[2,3]*a[3,2] -a[1,2]*a[2,1]*a[3,3]+a[1,2]*a[2,3]*a[3,1] +a[1,3]*a[2,1]*a[3,2]-a[1,3]*a[2,2]*a[3,1]; d1:=b[1]*a[2,2]*a[3,3]-b[1]*a[2,3]*a[3,2] -a[1,2]*b[2]*a[3,3]+a[1,2]*a[2,3]*b[3] +a[1,3]*b[2]*a[3,2]-a[1,3]*a[2,2]*b[3]; d2:= a[1,1]*b[2]*a[3,3]-a[1,1]*a[2,3]*b[3] -b[1]*a[2,1]*a[3,3]+b[1]*a[2,3]*a[3,1] +a[1,3]*a[2,1]*b[3]-a[1,3]*b[2]*a[3,1]; d3:= a[1,1]*a[2,2]*b[3]-a[1,1]*b[2]*a[3,2] -a[1,2]*a[2,1]*b[3]+a[1,2]*b[2]*a[3,1] +b[1]*a[2,1]*a[3,2]-b[1]*a[2,2]*a[3,1]; x:=d1/d; y:=d2/d; z:=d3/d; writeln('x=',x); writeln('y=',y); writeln('z=',z); end. |
21.04.2016, 17:11 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помощь. С. | valodu | Помощь студентам | 1 | 11.03.2016 06:20 |
Помощь | Sanya124 | JavaScript, Ajax | 1 | 03.08.2014 21:23 |
Очень нужна помощь c матрицами, макросами в Excel. Заранее благодарен(поверьте, очень-очень нужна помощь) | Farridjan | Помощь студентам | 1 | 03.07.2009 12:24 |
Очень нужна помощь с написанием программы... срочно(буду благодарен за помощь) | 5Paladin5 | Помощь студентам | 3 | 02.07.2009 09:12 |