РЕШИТЕ ЗАДАЧУ НА ПАСКАЛЕ Задача: Спортсмен пробежал в первый день 10 км., в каждый последующий день на 100 метров больше предыдущего. Через сколько дней он будет пробегать 25 км.? для примера покажу рисунок который учитель прислал.

через 150 дней

1500:100=15км

10+15=25

обьяснения

каждые 10 дней +1км

150дней:10дней=15км

Человек. Тут все просто. :)

Объяснение:

"А" меньше 0?

ответ: нет, она больше 0. (Т.е.: А=8)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=8-2=6

ответ: В=6

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=8-2=6

ответ: А=6

ответ: А=6; В=6

Теперь мы это все повторяем в том же духе, только до того момента пока значение буквы "А" не станет меньше "0".

Значит повторяем:

"А" меньше 0?

ответ: нет, она больше 0. (Т.е.: А=6)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=6-6=0

ответ: В=0

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=6-2=4

ответ: А=4

ответ: А=4; В=0

"А" меньше 0?

ответ: нет, она больше 0. (Т.е.: А=4)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=4-0=4

ответ: В=4

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=4-2=2

ответ: А=2

ответ: А=2; В=4

"А" меньше 0?

ответ: нет, она больше 0. (Т.е.: А=2)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=2-0=2

ответ: В=2

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=2-2=0

ответ: А=0

ответ: А=0; В=2

"А" меньше 0?

ответ: нет, она на равне с 0. (Т.е.: А=0)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=0-0=0

ответ: В=0

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=0-2=-2

ответ: А=-2

ответ: А=-2; В=0Значит мы условия выполнили! "А" меньше 0.Удачи!

Sub Alg_1()
    xN = -5: xK = 5: h = 0.1
    x = xN: i = 1
    Do While x <= xK
        y = 3 * x ^ 2 - 6 * x + 5
        Cells(i, 1) = x: Cells(i, 2) = y
        x = x + h: i = i + 1
    Loop
End Sub

Во вложении файл с рабочей книгой MS Excel 2003. Макрос на листе 1.

Теперь о Вашей ошибке

Dim xN, xK, x As Integer
Dim y, h As Single
xN = -5
...
h = 0.1
x = xN
...
x = x + h

Такое описание означает, что xN, xK будут типа Variant, х - типа Integer.
y тоже будет типа Variant, h - типа Single.
При выполнении опeратора x=x+h целочисленное x сначала увеличится на 0.1, а затем дробная часть будет отброшена. Поэтому х постоянно будет равен xN и цикл станет бесконечным.