Тема 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

Авторы-составители: Окулич В.И., Осенчугова Т.В.

Дата добавления: 2014-01-06