На цикл Опции

[FantomasiK]

Помогите!!! Вот написал задачу, а оно почему-то плохо работает. Когда я ввожу N мне сразу ответ не выдает, а оно опять просит ввести N, пока не попадаешь на определённые цифры. Например: 1, 8, 56...
вот условие задачи
№1 надо вычислить значение функции y=sin(n*x)-cos(n/x), если N заданно, а X изменяется от Xo до Xк с шагом N. Вывести на печать значение функции, удовлетворяющие условию 0<y<0.5
А вот, что у меня есть

Program zadanie_1;
Uses crt;
Var n,x: integer; y:real;
Begin
  ClrScr;
  repeat
    Write('Vvedite n=');
    Readln(n);
    for x:=1 to n do  y:=sin(n*x)-cos(n/x);
    until (y>0) and (y<0.5);
    Write(' y=',y:4:2);
  Readln;
End.

Сообщение отредактировано: volvo - 18.12.2005 14:18

[volvo]

FantomasiK, ты просто зацикливаешь ввод данных тоже. Вот так сделай:

    Write('Vvedite n='); Readln(n);
    for x:=1 to n do begin
        y:=sin(n*x)-cos(n/x);
        if (y>0) and (y<0.5) then WriteLn(' y=',y:4:2);
    end;

и убери совсем Repeat ... Until.