Протабулировать функцию у на заданном диапазоне

@NataliaSer · Регистрация: 10.10.2017

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

Протабулировать функцию у на заданном диапазоне, с заданным шагом изменения аргумента и исходными данными.
Функция:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?y=\begin{cases}{at}^{2lnt} & \ 1\leq t\leq 2\\ 1 &\ t\prec 1 \\ {e}^{at}cosbt & \ t\succ 2 \end{cases}$

Исходные данные:
a=-0,5
b=2

Диапазон и шаг изменения аргумента:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?t\epsilon \left[0 ; 3]$
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\Delta t=0,15$

@Puporev · 24.10.2017, 15:10

Pascal

const tn=0;
      tk=3;
      dt=0.15;
      a=-0.5;
      b=2;
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:='tn=0';
Label2.Caption:='tk=3';
Label3.Caption:='dt=0.15';
Label4.Caption:='a=-0.5';
Label5.Caption:='b=2';
with StringGrid1 do
 begin
  colcount:=2;
  rowcount:=2;
  cells[0,0]:='t';
  cells[1,0]:='y';
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var t,y:double;
    k:integer;
begin
t:=tn;
k:=0;
while t<tk+dt/2 do
 begin
  inc(k);
  StringGrid1.RowCount:=k+1;
  if t<1 then y:=1
  else if t<=2 then y:=a*exp(ln(t)*2*ln(t))
  else y:=exp(a*t)*cos(b*t);
  StringGrid1.Cells[0,k]:=formatfloat('0.00',t);
  StringGrid1.Cells[1,k]:=formatfloat('0.0000',y);
  t:=t+dt;
 
 end;
end;

@NataliaSer 0 / 0 / 0 Регистрация: 10.10.2017 Сообщений: 18
		1
	Протабулировать функцию у на заданном диапазоне 24.10.2017, 13:18. Показов 781. Ответов 1 Метки нет (Все метки) Протабулировать функцию у на заданном диапазоне, с заданным шагом изменения аргумента и исходными данными. Функция: $https://www.cyberforum.ru/cgi-bin/latex.cgi?y=\begin{cases}{at}^{2lnt} & \ 1\leq t\leq 2\\ 1 &\ t\prec 1 \\ {e}^{at}cosbt & \ t\succ 2 \end{cases}$ Исходные данные: a=-0,5 b=2 Диапазон и шаг изменения аргумента: $https://www.cyberforum.ru/cgi-bin/latex.cgi?t\epsilon \left[0 ; 3]$ $https://www.cyberforum.ru/cgi-bin/latex.cgi?\Delta t=0,15$ 0

	24.10.2017, 15:10