В готовую программу метода Гаусса поставить таймер

@lena 11 · Регистрация: 17.11.2012

Студворк — интернет-сервис помощи студентам

вот код программы

Pascal

uses
  crt;
 
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;
 
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;
  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; 
  readln;
end.

мне нужно чтобы в конце программы помимо значений выводилось количество в секундах типо за сколько времени эта программа рассчитала этот метод гаусса пож помогите мне

@Puporev · 02.12.2015, 12:03

Так же
Поставить таймер в метод прогонки

@lena 11 · 02.12.2015, 23:01 **[ТС]**

Puporev, могли бы вы мне полностью написать программу с таймером уже готовым
и еще можно мне как то сделать чтобы таймер не всегда писал 0 секунд а хотя бы 0,1 cекунду или 0,3секунды
сделайте пож

@Puporev · 03.12.2015, 08:32

lena 11, Я в другой теме все написал.

Pascal

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.

@lena 11 · 03.12.2015, 08:51 **[ТС]**

Puporev, я не маюсь дурью, мне нужен полностью написан как правильно будет здесь готовый код
пожалуйста помогите

@Puporev · 03.12.2015, 12:29

Сообщение от lena 11

мне нужен полностью написан

Ну так пишите, я то здесь при чем?
Вы спросили

Сообщение от lena 11

мне нужно чтобы в конце программы помимо значений выводилось количество в секундах

Я ответил, а писать за Вас программу и не собирался.

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	02.12.2015, 12:03	2
	Так же Поставить таймер в метод прогонки 0

@lena 11 0 / 0 / 0 Регистрация: 17.11.2012 Сообщений: 101
	02.12.2015, 23:01 [ТС]	3
	Puporev, могли бы вы мне полностью написать программу с таймером уже готовым и еще можно мне как то сделать чтобы таймер не всегда писал 0 секунд а хотя бы 0,1 cекунду или 0,3секунды сделайте пож 0

@lena 11 0 / 0 / 0 Регистрация: 17.11.2012 Сообщений: 101
	03.12.2015, 08:51 [ТС]	5
	Puporev, я не маюсь дурью, мне нужен полностью написан как правильно будет здесь готовый код пожалуйста помогите 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	03.12.2015, 12:29	6
	Сообщение от lena 11 мне нужен полностью написан Ну так пишите, я то здесь при чем? Вы спросили Сообщение от lena 11 мне нужно чтобы в конце программы помимо значений выводилось количество в секундах Я ответил, а писать за Вас программу и не собирался. 0

Опции темы