Цитата:
Сообщение от Valet
Function X(Tx:Real):Real; а без этого? просто они такое еще не проходили, надо задачу как то по простому сделать с помощью ветвления в ветвлении
|
Можно и без функций. И даже без ветвлений.
Код:
VAR
a,b,h,t,x,y:Real;
N,i:Word;
BEGIN
Write('Lower t value = ');
ReadLn(a);
Write('Upper t value = ');
ReadLn(b);
Write('Step t value = ');
ReadLn(h);
N:=Trunc((b-a)/h);
For i:=0 to N do
begin
t:=a+h*i;
x:=0.5*(Exp(t)+Exp(-t))-t;
y:=0.5*(Exp(t)-Exp(-t))-1;
WriteLn(x:10:5,y:20:5);
end;
Readln;
END.