Категория
Информатика
Тип
реферат
Страницы
5 стр.
Дата
15.06.2008
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
20982.zip — 5.07 kb
  • zadachi-po-informatike_20982_1.rtf — 19.04 Kb
  • Readme_docus.me.txt — 125 Bytes
Рейтинг
10  из 10
Оценок
1
Оцените работу
Хорошо  или  Плохо


Текст работы

Задачи по информатике SDL SDL
Задачи по информатике
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 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



Ваше мнение



CAPTCHA