Паскаль ABC

[Просто человек2]

Паскаль ABC

Напишите программу пожалуйста к задачке

 

[Vladimir_S]

Напишите программу пожалуйста к задачке

Да пожалуйста:

Var
 a,b,c,x:Real;

Function Alpha(d,e,f,z:real):Real;
begin
 Alpha:=3.78*Cos(e-f)+Exp(d*z);
end;

Begin
 Write('a = ');
 Readln(a);
 Write('b = ');
 Readln(b);
 Write('c = ');
 Readln(c);
 Write('x = ');
 Readln(x);
 if Alpha(a,b,c,x)>0 then
  begin
   if x>0 then
    writeln('N = ',Cos(x):0:5)
   else
    writeln('L = ',Sin(x):0:5);
  end
 else
  begin
   if b>1 then
    writeln('M = ',Sin(x)/Cos(x):0:5)
   else
    writeln('K = ',Exp(a*x):0:5);
  end;
End.

 

[Просто человек2]

Спасибо большое )