В готовую программу метода Гаусса поставить таймер - Pascal ABC
Формулировка задачи:
вот код программы
мне нужно чтобы в конце программы помимо значений выводилось количество в секундах типо за сколько времени эта программа рассчитала этот метод гаусса пож помогите мне
Решение задачи: «В готовую программу метода Гаусса поставить таймер»
textual
Листинг программы
uses crt,utils; const e = 0.000001; var a,a1: array[1..10, 1..10] of real; b,b1: array[1..10] of real; x: array[1..10] of real; n, i, j, k: integer;z, r, g: real; t1,t2:integer; begin clrscr; write('Порядок: '); readln(n); writeln('Введите коэффициенты системы и свободные члены'); for i := 1 to n do begin for j := 1 to n do begin write('a[', i, ',', j, ']= '); readln(a[i, j]); a1[i,j]:=a[i,j]; end; Writeln('b[', i, ']= '); readln(b[i]); end; t1:=milliseconds; for k := 1 to n do { прямой ход Гаусса } begin for j := k + 1 to n do begin r := a[j, k] / a[k, k]; for i := k to n do begin a[j, i] := a[j, i] - r * a[k, i]; end; b[j] := b[j] - r * b[k]; end; end; for k := n downto 1 do { обратный ход Гаусса } begin r := 0; for j := k + 1 to n do begin g := a[k, j] * x[j]; r := r + g; end; x[k] := (b[k] - r) / a[k, k]; end; writeln('Корни системы:'); for i := 1 to n do write('x[', i, ']=', x[i]:0:2, ' '); writeln; writeln('Проверка в соответствии с матрицей B: '); for i:=1 to n do begin for j:=1 to n do b1[i]:=b1[i]+a1[i,j]*x[j]; writeln(b1[i]:3:2,' '); end; t2:=milliseconds; write('Время=',t2-t1,' mls'); readln; end.
Объяснение кода листинга программы
- Объявлены переменные: a, a1, b, b1, x, n, i, j, k, z, r, g, t1, t2.
- Задаются значения переменных: e, a, a1, b, x, n.
- Выводится сообщение с просьбой ввести порядок системы.
- Пользователь вводит порядок системы (n).
- Запрашивается ввод коэффициентов системы и свободных членов.
- Коэффициенты системы и свободные члены записываются в соответствующие массивы.
- Запускается таймер (t1).
- Реализуется прямой ход Гаусса.
- Реализуется обратный ход Гаусса.
- Выводятся корни системы.
- Проверяется соответствие корней системы матрице B.
- Вычисляются значения b1.
- Выводится сообщение о времени выполнения программы.
- Программа ожидает нажатия клавиши для завершения работы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д