Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.04.2016, 16:34   #1
201kir
Новичок
Джуниор
 
Регистрация: 21.04.2016
Сообщений: 2
По умолчанию срочно написать программу в паскале. Решение уравнений методом Крамера

Нужно срочно написать программу в паскале. Решение уравнений методом Крамера и чтобы программа была универсальна. Вот что уже есть:

Код:
program neeet;
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.
_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор
201kir вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Решение СЛАУ методом Крамера (Delphi) Denis0993 Помощь студентам 1 02.06.2013 14:01
Ришить систему линейных уравнений методом Крамера. Gino4ka Помощь студентам 1 02.05.2013 21:43
Решение СЛАУ методом Гаусса и методом Крамера. R1k1 Помощь студентам 0 24.03.2012 19:17
Решение нелинейных уравнений методом хорд и методом простой итерации(С++) Foralberg Помощь студентам 9 31.01.2011 01:33
Решение системы линейных уравнений. методы Крамера и Гаусса Lumos Помощь студентам 3 05.12.2010 12:22