ТЕМА 1. ОСНОВЫ ИНФОРМАТИКИ
Тема 1
Программа вычисления корня нелинейного уравнения
Версия
Версия
Программа вычисления корня нелинейного уравнения
Программа вычисления корня нелинейного уравнения
методом Ньютона с использованием разветвления «IF…»
10 PRINT " NEWTON`S METOD"
20 PRINT "FIO-K-G"
30 INPUT "GRUPPA =?", G
40 INPUT "NOMER STUDENT =?", S
50 xo=S+25
60 INPUT "E=?",E
70 L=(G-S-1)^2-4*(1+S)*G
80 IF L=0 THEN
90 PRINT "уравнение имеет один корень"
100 xk=-(G-S-1)/2
110 PRINT "xk=",xk
120 ENDIF
130 i=0
140 i=i+1
150 fxo=xo^2+(G-S-1)*xo-(1+S)*G
160 fpxo=2*xo+(G-S-1)
170 x1=xo-fxo/fpxo
180 E1=ABS(x1-xo)
190 IF E1<E THEN GOTO 240
200 IF E1>E THEN
210 xo=x1
220 GOTO 140
230 ENDIF
240 PRINT "xk= ",x1
250 PRINT "i=",i
260 END
методом Ньютона с использованием цикла «ДО»
10 PRINT " NEWTON`S METOD-DO"
20 PRINT "FIO-K-G"
30 INPUT "GRUPPA =?", G
40 INPUT "NOMER STUDENT =?", S
50 xo=S+25
60 INPUT "E=?",E
70 L=(G-S-1)^2-4*(1+S)*G
80 IF L=0 THEN
90 PRINT "уравнение имеет один корень"
100 xk=-(G-S-1)/2
110 PRINT "xk=",xk
120 GOTO 240
130 ENDIF
140 i=0
150 REPEAT
160 i=i+1
170 fxo=xo^2+(G-S-1)*xo-(1+S)*G
180 fpxo=2*xo+(G-S-1)
190 x1=xo-fxo/fpxo
200 E1=ABS(x1-xo)
210 xo=x1
220 UNTIL E1<E
230 PRINT "xk= ",x1
240 PRINT "i=",i
250 END
10 PRINT " NEWTON`S METOD-DO"
20 PRINT "FIO-K-G"
30 INPUT "GRUPPA =?", G
40 INPUT "NOMER STUDENT =?", S
50 xo=S+25
60 INPUT "E=?",E
70 L=(G-S-1)^2-4*(1+S)*G
80 IF L<0 THEN PRINT "нет вещественных корней"
90 IF L=0 THEN
100 PRINT " уравнение имеет один корень "
110 xk=-(G-S-1)/2
120 PRINT "xk=",xk
130 ENDIF
140 PRINT "L=",L
150 i=0
160 REPEAT
170 i=i+1
180 x1=xo-((xo^2+(G-S-1)*xo-(1+S)*G)/(2*xo+(G-S-1)))
190 E1=ABS(xo-x1)
200 xo=x1
210 UNTIL E1<E
220 PRINT "xk= ",xo
230 PRINT "i=",i
методом Ньютона с использованием цикла «ПОКА»
10 PRINT " NEWTON`S METOD-DO"
20 PRINT "FIO-K-G"
30 INPUT "GRUPPA =?", G
40 INPUT "NOMER STUDENT =?", S
50 xo=S+25
60 E1=1000000
70 INPUT "E=?",E
80 L=(G-S-1)^2-4*(1+S)*G
90 IF L<0 THEN PRINT "нет вещественных корней"
100 IF L=0 THEN
110 PRINT " уравнение имеет один корень "
120 xk=-(G-S-1)/2
130 PRINT "xk=",xk
140 ENDIF
150 PRINT "L=",L
160 i=0
170 WHILE E1>E
180 i=i+1
190 x1=xo-((xo^2+(G-S-1)*xo-(1+S)*G)/(2*xo+(G-S-1)))
200 E1=ABS(xo-x1)
210 xo=x1
220 ENDWHILE
230 PRINT "xk= ",xo
240 PRINT "i=",i
250 END
Оглавление
ТЕМА 1. ОСНОВЫ ИНФОРМАТИКИ 2
Лекция 1. Основные представления о современной информатике 2
1.1. Становление информатики как науки 2
1.2. Структура современной информатики 4
Лекция 2. Понятие информации. Эволюционное развитие информационного взаимодействия 9
2.1. Неоднозначность и сложность понятия «информация» 9
2.2. Взаимодействие объектов как основа информационного взаимодействия 10
2.3. Наблюдатель – особый объект окружающей среды 11
2.4. Развитие информационных процессов как сопровождение эволюционного развития форм жизни 13
Лекция 3. Свойства информации, её измерение, передача и представление. Информационные процессы 31
3.1. Определения информации 31
3.2. Методы получения информации 32
3.3. Свойства информации 32
3.4. Понятие количества информации 33
3.5. Передача информации. Информационные каналы 34
3.6. Формы представления информации 35
3.7. Классификация информационных процессов 36
3.8. Информация в жизни современного человечества 36
Лекция 4. Представление (кодирование) данных в электронных вычислительных машинах 37
4.1. Понятие кодирования данных 37
4.2. Представление чисел в двоичном коде 38
4.3. Представление символьных и текстовых данных в двоичном коде 40
4.4. Представление звуковых данных в двоичном коде 42
4.5. Представление графических данных в двоичном коде 43
4.6. Понятие сжатия информации 44
4.7. Структуры данных 44
4.8. Хранение данных 45
Список используемой литературы 47
Авторы-составители: Окулич В.И., Осенчугова Т.В.