(разветвляющиеся выч.проц.) решила задачу,но правильно ли?

[Эnnа]

знаю что намудрила...но где?

emg (1).doc

Program razv;
Uses crt;
Var k: integer;
       y,x: real;
Begin 
    clrscr;
    write(‘k=’); readln(k);
    write(‘x=’); readln(x);
    for k:=1 to 30 do
    if k=3 or k=5
      then y:=sin(x+2)
      else
          if k=20
             then y:=cos(sqr(x))
             else
                if k=10 or k=15
                   then=sin(x+sqr(sin(x)))/cos(x+sqr(sin(x)));
     writeln(‘y=’,y)
End.

[p51x]

А если k не равно 3, 5, 10, 15, 20?

[Snejnaya]

Да все правильно в принципе, пару строчек добавить надо для "неопределенного" результата. Где тебе больше нравится, например, так:

 for k:=1 to 30 do - эта строчка лишняя, убираем ее
       if k=3 or k=5
      then
        begin 
        y:=sin(x+2);
        writeln(‘y=’,y);
        end
      else
          if k=20
             then 
             begin
             y:=cos(sqr(x));
             writeln(‘y=’,y);
             end
             else
                if k=10 or k=15
                   then
                    begin
                      y=sin(x+sqr(sin(x)))/cos(x+sqr(sin(x))); (тут у тебя была опечатка)
                      writeln(‘y=’,y);
                      end
else
writeln ('function is not difined');

[Snejnaya]

for k:=1 to 30 do - эта строчка лишняя, убираем ее

Хотя может и не лишняя, если требуется вывести на экран 30 значений функции при разных k. Но если действительно требуется вывести 30 значений, то лишней являютя строки

write(‘k=’); 
readln(k);

Тебе как надо: пользователь вводит k и х и получает на экране ОДНО число, или пользователь вводит х и получает на экране 30 строчек типа:
"При k=1 значение функции не определено
При k=2 не определено
При k=3 значение функции равно 15
.. и т.д."
???