ЗАДАНИЕ 2

Методом конечных разностей вычислить переходный процесс в схеме (рис.5).

		program Project2; {$APPTYPE CONSOLE} uses SysUtils; const n=10; var u1:array[1..n]of real; i,j:integer; begin for i:=1 to n do u1[i]:=0; i:=1; repeat u1[i+1]:=1/5+0.6*u1[i]; for j:=1 to n do write(u1[j]:5:3,' '); writeln; inc(i); until i>n; readln; end.
Рис.5	Рис.6	Рис.7