Паскаль

[ROMA2PVT]

Uses
   CRT;
Var
  k,x,y:real;
Begin
 Clrscr;
   write('Введите X: ');
     readln(x);
       write('Введите k: ');
          readln(k);
          if k>0 then
          begin
             if k=1 then y:=sin(abs(k*x));
                if k=2 then y:=cos(abs(k*x));
                   if k=3 then y:=sqrt(abs(k*sqr(x)*1));
                      if k>3 then y:=k*sqr(x);
                          write('F(x):= ',y:1:3);
                          end
                          else writeln('k введено неверно!!!');
                          readkey;
 end.

Вот полностью.

[ROMA2PVT]

Ну а если нужна блок-схема то пиши в личку.