Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:EKh / elektra-студ / SMIRNOVA
.PAS Var k:integer;U,t,dt,A,B,U0:real;
begin
t:=0; dt:=0.12;U0:=2.11;A:=4.2;B:=0.2;
writeln(' t,chas, U,V');
for k:=1 to 20 do begin
t:=t+dt;
U:=U0*(1-0.1*exp(-t/A)-B*exp((t/3)+(t*t/9)));
writeln (t:10:2,U:10:3);
end; readln;end.
begin
t:=0; dt:=0.12;U0:=2.11;A:=4.2;B:=0.2;
writeln(' t,chas, U,V');
for k:=1 to 20 do begin
t:=t+dt;
U:=U0*(1-0.1*exp(-t/A)-B*exp((t/3)+(t*t/9)));
writeln (t:10:2,U:10:3);
end; readln;end.
Соседние файлы в папке elektra-студ