Developing.ru

Код: Выделить всё

uses crt;

var
p, h, a, b : Real;

function sh(x:Real):Real;
begin
sh := (Exp(x) - Exp(-x))/2;
end;

Function ch(x:Real):Real;
begin
ch := (Exp(x) + Exp(-x))/2;
end;

Function FuncX(T:Real):Real;
begin
if t < 0 then FuncX := 0
	 else FuncX := Sqrt(sh(t)) + t;
end;

Function FuncY(T:Real):Real;
begin
FuncY := Sqrt(ch(t)) - t;
end;

begin
ClrScr;
Writeln('NOTE THAT THE NEGATIVE VALUES ARE INCORRECT FOR SinH FUNCTION !!!');
Write('Input A : ');
Readln(A);
Write('Input B : ');
Readln(B);
Write('Input H (step) : ');
Readln(H);
Writeln;
If B > A then H := abs(H) else H := -abs(H);
P := A;
Repeat
        Writeln('T = ',P:5:2,'    X = ',FuncX(P):5:2,'    Y = ',FuncY(P):5:2);
	P := P + H;
Until P > B;

end.

Код: Выделить всё

function nok(a,b:integer):integer;
var res, i:integer;
begin
  res:=a*b;
  for i:=1 to round(sqr(min(a,b))) do
     if (a mod i=0) and (b mod i=0) then res:=res div i;
  nok:=res;
end;