Категория
Информатика
Тип
реферат
Страницы
5 стр.
Дата
10.10.2009
Формат файла
.doc — Microsoft Word
Архив
19657.zip — 20.79 kb
  • kursovaja-po-informatike_19657_1.doc — 48 Kb
  • kursovaja-po-informatike_19657_2.doc — 58 Kb
  • Readme_docus.me.txt — 125 Bytes
Рейтинг
10  из 10
Оценок
1
Оцените работу
Хорошо  или  Плохо


Текст работы

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.
Текст программы:
CLSRANDOMIZE 1000INPUT "точность"; ta1 = RND(100)
q1 = RND(90)
q2 = RND(80)
q3 = RND(110)
DEF fnf (x) = a1 + q1 * x * SIN(q2 * x + q3) - k * xa = 0: b = 110FOR k = .1 TO .2 STEP .01GOSUB pod1GOSUB pod2PRINT "при k="; kcor = (x1 + x2) / 2: y = fnf(cor) + k * xPRINT "точка пересечения"
PRINT "x="; cor; "y="; y;
a = x2NEXT kPRINT "Точность"; tENDa = x2NEXT kPRINT "Точность"; tENDpod1: 'отделение корней в интервале а,в'
s = 10 * t: x = a200 : p = fnf(x) * f(x + s)
IF p > 0 THEN 1x1 = x: x2 = x + s: RETURN1 x = x + s: IF x 0 THEN x1 = x ELSE x2 = xIF ABS(x2 - x1) > t THEN 10RETURNДанные:
a = 0b = 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
2. Известны координаты вершин четырехугольника A, B, C, D. Найти точку пересечения его диагоналей и наибольший радиус окружности, которая имеет центр в этой точке и полностью



Ваше мнение



CAPTCHA