Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Вычтех_6 / BELMASOV
.PAS program razvletvlenie;
uses
crt;
var
b,a,y,t:real;
begin
clrscr;
a:=-0.5;
b:=2;
t:=0;
while t<=3 do
begin
if t>=2.3 then
y:=exp(a+t)*cos(b*t)
else
if t<1 then
y:=2
else
y:=a*sqrt(abs(sqr(t)-ln(abs(t))));
writeln( t:4:1 , y:4:2);
t:=t+0.15;
end;
end.
uses
crt;
var
b,a,y,t:real;
begin
clrscr;
a:=-0.5;
b:=2;
t:=0;
while t<=3 do
begin
if t>=2.3 then
y:=exp(a+t)*cos(b*t)
else
if t<1 then
y:=2
else
y:=a*sqrt(abs(sqr(t)-ln(abs(t))));
writeln( t:4:1 , y:4:2);
t:=t+0.15;
end;
end.
Соседние файлы в папке Вычтех_6