Задача

За вознаграждение или нахаляву (если повезёт)

Модераторы: Хыиуду, dr.Jekill, MOTOCoder, Medved

Ответить
Alenochka
Сообщения: 1
Зарегистрирован: 26 дек 2006, 19:11

26 дек 2006, 19:20

В универе сдаём зачёт,у меня вот такое задание:

Реализовать в Паскале.

1) Решить методом Крамера систему ур-ней:
{ a11x1+a12x2+a13x3=b1
{ a21x1+a22x2+a23x3=b2
{ a31x1+a32x2+a33x3=b3

p.s. Вводить нужно с клавиатуры.

2) Дана формула у = а(в квадрате)*(b-1)/b

с клавы вводится "a", "b", "дельта а", и "делта b".
Надо найти "у", "относительную погрешность у" и "абсолютную погрешность у".

Может у кого-нить найдётся лишняя минутка,сделайте пожалуйста :wub:
Ramzey
Сообщения: 49
Зарегистрирован: 12 дек 2006, 12:56

26 дек 2006, 19:43

Я надеюсь ввод с клавиатуры сама осилишь

Код: Выделить всё

{$N+}
{ Задаем порядок системы уравнений }
Const n = 3;

Type
  { Тип, описывающий матрицу системы (включая свободные члены !!!) }
  Equation = Array[1 .. n, 1 .. Succ(n)] Of Double;
  matrix =
    Array[1 .. n, 1 .. n] Of Double;

Const
  a: Equation =
   ((2, 1, 3, 9),
    (1, -2, 1, -2),
    (3, 2, 2, 7));

{ Процедура замены очередного столбца матрицы на свободные члены }
Procedure GetMatrix(wout: Integer; Var m: matrix);
  Var i, j: Integer;
  Begin
    For i := 1 To n Do
      For j := 1 To n Do
        If j <> wout Then m[i, j] := a[i, j]
        Else m[i, j] := a[i, Succ(n)]
  End;

{ Нахождение определителя }
Function Det(a: matrix; n: integer): Double;
  Var i, j, k: Integer; d: Double;
  Const
    Eps = 10E-6;
  Begin
    For i := 1 To Pred(n) Do
      Begin
        If Abs(a[i, i]) < Eps Then
          Begin
            Det := 0.0; Exit
          End;

        For j := Succ(i) To n Do
          Begin
            d := a[j, i] / a[i, i];
            For k := i To n Do
              a[j, k] := a[j, k] - d * a[i, k];
          End;
      End;
    d := 1.0;
    For i := 1 To n Do
      d := d * a[i, i];
    Det := d
  End;

Var
  i: Integer;
  mx: matrix;
  Determ: Double;
begin
  GetMatrix(Succ(n), mx);
  Determ := Det(mx, n);

  If Abs(Determ) < 1E-6 Then
    Writeln( 'Определитель исходной матрицы = 0' )
  Else
    For i := 1 To n Do
      Begin
        GetMatrix(i, mx);
        WriteLn( 'x(', i, ') = ', (Det(mx, n) / Determ):7:4 )
      End
end.
Diploboy
Сообщения: 8
Зарегистрирован: 28 дек 2006, 17:02

28 дек 2006, 18:07

Tojno tak i mne dali takuyu zadachu. Spasibo Za progu i za zadachu
CADE
Сообщения: 23
Зарегистрирован: 09 дек 2006, 01:53

10 янв 2007, 20:10

помогите решить задачку!!! 12 числа надо сдавать

Запрограммировать информационную систему со следующими параметрами:
I. Логическая структура: набор записей.
Ii. Способ хранения при обработке: файл.
Iii. Процедуры:
а) поиск записи по полю,
б) добавление записи в файл после определенной записи,
в) изменение записи по критерию (т.е. по признаку),
г) вычисление какой-либо функции,
е) вывод файла,
ж) диаграмма.
Ответить