3.3. График временной функции

Заключение

В данной курсовой работе необходимо было разработать программу для построения графика временной функции, работающую как в машинном, так и в реальном времени. В программу также должны были входить подпрограммы для вычисления корней нелинейного уравнения методом Ньютона, нахождения корней системы двух линейных уравнений и выбора наибольшего из них по абсолютному значению. Все подпрограммы – внутренние. Значения функции рассчитывались по схеме Горнера. При разработке использовался язык GWBASIC.

Список использованных источников

1. Конспект лекций по дисциплине «Информатика».

2. Конспект лекций по дисциплине «Высшая математика».

3. Кетков. Ю.Л. GW-, Turbo- и QuickBasic для IBM PC.– М.: «Финансы и статистика», 1992.

4. Дьяконов Б. Г. Справочник по алгоритмам и подпрограммам на языке Бейсик для персональных ЭВМ. – М.: «Наука», 1987.

Программа:

10 REM "GALAS PAVEL GRUPPA 107711"

20 SCREEN 9

30 PRINT "MENU"

40 PRINT "1-RESCHENIE KVADRATNOGO URAVNENIA"

50 PRINT "2-RESCHENIE METODOM NIYTONA"

60 PRINT "3-ALGORITM GORNERA"

70 PRINT "4-TABLICA ZNACHENIY"

80 PRINT "5-GRAFIK"

90 INPUT "VYBOR PUNKTA:",Z

100 IF Z=1 THEN GOSUB 1000

110 IF Z=2 THEN GOSUB 2000

120 IF Z=3 THEN GOSUB 3000

130 IF Z=4 THEN GOSUB 4000

140 IF Z=5 THEN GOSUB 5000

150 STOP

160 END

1000 REM "RESCHENIE KVADRATNOGO URAVNENIA"

1010 PRINT "NAHOJDENIE MIN C KORNY AX^2+BX+C1"

1020 PRINT "VVESTI ZNACHENIA A,B,C1"

1030 INPUT "A=",A

1040 INPUT "B=",B

1050 INPUT "C1=",C1

1060 D=B^2-4*A*C1

1070 IF D>0 THEN PRINT "KOREN YRAVNENIA:"

1080 IF D<0 THEN PRINT "KORNEI NET"

1090 IF D=0 THEN C=-B/(2*A):PRINT "X1=X2="C

1100 X1=(-B-SQR(D))/(2*A)

1110 X2=(-B+SQR(D))/(2*A)

1120 IF ABS(X1)<=ABS(X2) THEN C=X1 ELSE C=X2

1130 PRINT "C="C

1140 RETURN

2000 REM "RESCHENIE URAVNENIA METODOM NIYTONA"

2010 PRINT "VVESTI XA,XB,E"

2020 INPUT "XA=",XA

2030 INPUT "XB=",XB

2040 INPUT "E=",E

2050 X=(XA+XB)/2

2060 F=X^2-SIN(5*X)

2070 F1=2*X-COS(5*X)

2080 X=X-(F/F1)

2090 IF ABS(F/F1)<=E THEN GOTO 2100 ELSE GOTO 2060

2100 Q=ABS(X)

2110 PRINT "KOREN"

2120 PRINT "Q="Q

2130 RETURN

3000 REM "GORNER"

3010 DIM A(10)

3020 DIM Y(100)

3030 INPUT "T0=",T0

3040 INPUT "TKON=",TKON

3050 INPUT "TK=",TK

3060 INPUT "K=",K

3070 L=SIN(30*3.14/180)

3080 M=ABS(K-L)

3090 GOSUB 1000

3100 GOSUB 2000

3110 A(1)=K

3120 A(2)=L

3130 A(3)=M

3140 A(4)=Q+C

3150 FOR T=T0 TO TKON STEP TK

3160 Y=A(1)

3170 FOR I=2 TO 4

3180 Y=Y*T+A(I)

3190 NEXT I

3200 PRINT "T="T,"Y="Y

3210 NEXT T

3220 RETURN

4000 REM "TABLICA"

4010 DIM Y(20)

4020 PRINT "VVESTI Y0,TKON,TK,K"

4030 INPUT "T0=",T0

4040 INPUT "TKON=",TKON

4050 INPUT "TK=",TK

4060 INPUT "K=",K

4070 M=ABS(K-L)

4080 L=SIN(30*3.14/180)

4090 GOSUB 1000

4100 GOSUB 2000

4110 A(1)=K

4120 A(2)=L

4130 A(3)=M

4140 A(4)=Q+C

4150 PRINT STRING$(22,"_")

4160 PRINT "|";TAB(3);"ZNACHENIE FUNKCII";TAB(22);"|"

4170 PRINT STRING$(22,"-")

4180 PRINT "|";TAB(4);"T";TAB(9);"|";TAB(15);"Y";TAB(22);"|"

4190 PRINT STRING$(22,"-")

4200 FOR T=T0 TO TKON STEP TK

4210 Y=A(1)

4220 FOR I=2 TO 4

4230 Y=Y*T+A(I)

4240 NEXT I

4250 PRINT "|";T;TAB(9);"|";TAB(12);Y;TAB(22);"|"

4260 NEXT T

4270 PRINT STRING$(22,"-")

4280 RETURN

5000 REM "vibor varianta postroenia grafika"

5001 PRINT "O-V MASCHINNOM VREMENI"

5002 PRINT "1-V REALNOM VREMENI"

5003 INPUT Z

5010 CLS

5020 PRINT "VVOD T0"

5030 INPUT T0

5040 PRINT "VVOD TKON"

5050 INPUT TKON

5060 PRINT "VVOD TK"

5070 INPUT TK

5080 PRINT "VVOD YMAX"

5090 INPUT YMAX

5100 PRINT "VVOD K"

5110 INPUT K

5120 L=SIN(30*3.14/180)

5130 M=ABS(K-L)

5140 GOSUB 1000

5150 GOSUB 2000

5160 CLS

5220 A(1)=K

5230 A(2)=L

5240 A(3)=M

5250 A(4)=Q+C

5260 FOR T=T0 TO TKON STEP TK

5270 Y=A(1)

5280 FOR I=2 TO 4

5290 Y=Y*T+A(I)

5300 NEXT I

5310 GOSUB 7000

5330 LINE (40,310)-(610,310),5

5340 LINE (610,310)-(606,312),5

5350 LINE (610,310)-(606,308),5

5360 LINE (40,35)-(40,280),5

5370 LINE (40,35)-(38,37),5

5380 LINE (40,35)-(42,37),5

5390 FOR I=40 TO 600 STEP 13

5400 LINE (I,310)-(I,40),3

5410 NEXT I

5420 FOR I= 40 TO 310 STEP 13

5430 LINE (40,I)-(600,I),3

5440 NEXT I

5450 LINE (40,35)-(40,310),5

5460 LINE (40,310)-(610,310),5

5470 LOCATE 3,4: PRINT "T"

5480 LOCATE 23,4: PRINT "0"

5490 LOCATE 23,78: PRINT "Y"

5495 IF Z=0 THEN GOSUB 8000

5500 NEXT T

5515 SLEEP

5520 PRINT "Z="

7000 REM "MASCHTAB"

7010 MX = (640 - 42 - 50) / YMAX

7020 MY = (311 - 40) / TKON

7030 Z=42+MX*Y

7040 P=311-MY*T

7050 PSET(Z,P),4

7060 CIRCLE(Z,P),3,10

7070 PAINT(Z,P),4

7080 RETURN

8000 Z=0

8010 FOR W=1 TO 10000000

8020 Z=Z+EXP(0)

8030 NEXT W

8040 RETURN