Категория
Информатика
Тип
шпаргалка
Страницы
6 стр.
Дата
21.11.2013
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
936964.zip — 5.14 kb
  • zadachi-po-informatike_936964_1.rtf — 20.36 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

    Задачи по информатике

1. Дана функция f(x) = a+b*x*Sin(c*x+d), в которой коэффициенты a, b, c, d определяются функцией Rnd с использованием процедуры Randomize. Постоянная k определяется в интервале [0. 1; 0. 2] c шагом 0. 01. Составить программу определения первой точки пересечения прямой y = k*x с функцией f для x>0.


    Текст программы:

    CLS

    RANDOMIZE 1000

    INPUT "точность"; t

    a1 = RND(100)

    q1 = RND(90)

    q2 = RND(80)

    q3 = RND(110)

    DEF fnf (x) = a1 + q1 * x * SIN(q2 * x + q3) - k * x

    a = 0: b = 110

    FOR k = . 1 TO . 2 STEP . 01

    GOSUB pod1

    GOSUB pod2

    PRINT "при k="; k

    cor = (x1 + x2) / 2: y = fnf(cor) + k * x

    PRINT "точка пересечения"

    PRINT "x="; cor; "y="; y;

    a = x2

    NEXT k

    PRINT "Точность"; t

    END

    a = x2

    NEXT k

    PRINT "Точность"; t

    END

    pod1: 'отделение корней в интервале а, в'

    s = 10 * t: x = a

    200 : p = fnf(x) * f(x + s)

    IF p > 0 THEN 1

    x1 = x: x2 = x + s: RETURN

    1 x = x + s: IF x <= b - s THEN 200

    RETURN

    pod2: 'уточнение корня'

    10 x = (x1 + x2) / 2: y = fnf(x)

    IF fnf(x1) * y > 0 THEN x1 = x ELSE x2 = x

    IF ABS(x2 - x1) > t THEN 10

    RETURN

    Данные:

    a = 0

    b = 110

    точность? . 001

    Результаты:

    при k= . 1

    точка пересечения

    x= . 0096875 y= . 7444314

    при k= . 11

    точка пересечения

    x= . 0196875 y= . 7470496

    при k= . 12

    точка пересечения

    x= . 0296875 y= . 7497169

    при k= . 13

    точка пересечения

    x= . 0396875 y= . 7524328

    при k= . 14

    точка пересечения

    x= . 0496875 y= . 7551972

    при k= . 15

    точка пересечения

    x= . 0596875 y= . 7580096

    при k= . 16

    точка пересечения

    x= 6. 968751E-02 y= . 7608697

    при k= . 17

    точка пересечения

    x= 7. 968751E-02 y= . 7637773

    при k= . 18

    точка пересечения

    x= . 0896875 y= . 7667319

    при k= . 19

    точка пересечения

    x= . 0996875 y= . 7697333



Ваше мнение



CAPTCHA