bogodukhov_s_i_sinyukhin_a_v_kozik_e_s_kurs_materialovedeniy

1960 IF C7=8 THEN F(1)=3:F(2)=8:F(3)=10:F(4)=14:F(5)=17: RETURN

1970 IF C7=9 THEN F(1)=3:F(2)=6:F(3)=9:F(4)=14:F(5)=19: RETURN

1980 IF C7=10 THEN F(1)=4:F(2)=6:F(3)=9:F(4)=13:F(5)=19: RETURN

1990 IF C7=11 THEN F(1)=4:F(2)=7:F(3)=12:F(4)=13:F(5)=18: RETURN

2000 IF C7=1 THEN F(1)=1:F(2)=7:F(3)=12:F(4)=15:F(5)=18: RETURN

2010 IF C7=2 THEN F(1)=2:F(2)=5:F(3)=11:F(4)=16:F(5)=20: RETURN

2020 IF C7=3 THEN F(1)=3:F(2)=8:F(3)=10:F(4)=14:F(5)=17: RETURN

2030 IF C7=4 THEN F(1)=4:F(2)=7:F(3)=12:F(4)=13:F(5)=18: RETURN

2040 IF C7=5 THEN F(1)=2:F(2)=7:F(3)=12:F(4)=16:F(5)=18: RETURN

2050 IF C7=6 THEN F(1)=1:F(2)=8:F(3)=10:F(4)=15:F(5)=17: RETURN

2060 IF C7=7 THEN F(1)=2:F(2)=8:F(3)=10:F(4)=16:F(5)=17: RETURN

2070 IF C7=8 THEN F(1)=3:F(2)=5:F(3)=11:F(4)=14:F(5)=20: RETURN

2080 IF C7=9 THEN F(1)=3:F(2)=7:F(3)=12:F(4)=14:F(5)=18: RETURN

2090 IF C7=10 THEN F(1)=4:F(2)=5:F(3)=11:F(4)=13:F(5)=20: RETURN

2100 IF C7=11 THEN F(1)=4:F(2)=8:F(3)=10:F(4)=13:F(5)=17: RETURN

2110 PRINT"Ошибка кодирования. Повторите ввод группы.":GOTO

60

2120 ON G GOTO 2130,2140,2150,2160,2170,2180,2190,2200,2210, 2220,2230:PRINT"Неверно введен код темы. Повторите.":GOTO 70

2130 OPEN "k1" AS#1 LEN=75:GOTO 2240

2140 OPEN "k2" AS#1 LEN=75:GOTO 2240

2150 OPEN "k3" AS#1 LEN=75:GOTO 2240

2160 OPEN "k4" AS#1 LEN=75:GOTO 2240

2170 OPEN "k5" AS#1 LEN=75:GOTO 2240

2180 OPEN "k6" AS#1 LEN=75:GOTO 2240

2190 OPEN "k7" AS#1 LEN=75:GOTO 2240

2200 OPEN "k8" AS#1 LEN=75:GOTO 2240

332 КУРС МАТЕРИАЛОВЕДЕНИЯ В ВОПРОСАХ И ОТВЕТАХ

2210 OPEN "k9" AS#1 LEN=75:GOTO 2240

2220 OPEN "k10" AS#1 LEN=75:GOTO 2240

2230 OPEN "k11" AS#1 LEN=75

2240 FIELD #1,2 AS T1$,7 AS T2$,14 AS L$,14 AS AR$,14 AS GL$, 2 AS KK$,4 AS NR$,2 AS R2$,4 AS RR2$,2 AS R3$,4 AS RR3$, 2 AS R4$,4 AS RR4$:RETURN

Файл графических построений

5 'Файл graf1

10 ON G2 GOSUB 30,50,100,150,280,320,200,350,430,530,390,540, 570, 600, 630,680,720,760,820

20 CHAIN"aqus1a",450,ALL

30 PSET(421,66):DRAW"bm421,66d52r133": CIRCLE(399,56),150"4.858, 6.023: CIRCLE(569,50),150"3.537,4.541'Зависимость эл. сопротивл. от тем пературы

40 LOCATE 9,49:PRINT"R,ом":LOCATE 10,56:PRINT "A":LOCATE 11,69: PRINT"B":LOCATE 16,65:PRINT"t,K ";CHR$(26):RETURN

50 RESTORE 70:LINE(384,73) (570,118)"B:FOR Y=82 TO 109 STEP 9: LINE(384,Y) (570,Y):NEXT'Решетка с дислокацией

60 DRAW"bm415,73m+1,45bm446,73m+2,45bm477,73d18bm508,

73m 2,45 bm539, 73m 1,45"

70 DATA 384,415,446,477,508,539,570,384,415,447,477,507,539,570, 384,416, 447,477,507,538,570,384,416,447,507,538,570,384,416,448,506, 538, 570, 384,416,448,506,538,570

80 FOR A=73 TO 91 STEP 9:FOR B=1 TO 7:READ X:CIRCLE(X,A),4: NEXT B,A

90 FOR A=100 TO 118 STEP 9:FOR B=1 TO 6:READ X:CIRCLE(X,A),4: NEXT B,A:DRAW"bm477,95d3bm472,98r10":IF G1=26 THEN LINE(477,78) (500,62):LOCATE 8,64:PRINT"?": RETURN ELSE RETURN 100 RESTORE 110:LINE(460,66) (554,106)" B:DRAW"bm460,66m+16, 12r94d40m 16,12bm554,66m+ 16, 12"' Гране центр. куб 110 DATA 468,60,100,476,54,94,507,66,106,523,54,94, 562,60,100,468,60,562,468,100,562,476,94,570,460,86,554,476,74,570,476, 460,74,476, 460,94,523,507,54,523,507,94,570,554,74,460,66,476,54,476, 94,460,106,570,54,570, 94,554,106

120 DATA 554,66,515,60,515,100,468,80,562,80,507,86,523,74 130 FOR A=1 TO 5:READ X,Y,Y1:FOR B=Y TO Y1 1 STEP 4: LINE(X,B) (X,B+2):NEXT B,A:FOR A=1 TO 5:READ X,Y,X1:FOR B=X TO X1 3 STEP 8:LINE(B,Y) (B+4,Y):NEXT B,A:FOR A=1 TO 5: READ X,X1,Y1:Y=Y1:FOR B=X TO X1+1 STEP 2: LINE(B,Y) (B 1,Y+10/12)

140 Y=Y+20/12:NEXT B,A:FOR A=1 TO 14:READ X,Y:CIRCLE(X,Y),4: NEXT:LOCATE 15,1:RETURN

150 RESTORE 160'Примесный атом внедрения

160 DATA 355,70,355,80,355,90,355,101,355,111,385,70,383,79, 383,89,383, 102,383,111,418,70,415,78,413,88,413,103,415,111,448,70, 445, 78, 440, 87,440,104,443, 111, 488,70,490,78,495,88,495, 104,493,111, 520, 70, 523,79, 525,88,525,103,523,111

170 DATA 548,70,548,79,548,89,548,102,548,111

180 FOR A=1 TO 35:READ X,Y:CIRCLE(X,Y),5:PAINT(X,Y), 1,2:NEXT: LINE(355,70) (548,111)"B:CIRCLE(1337,92),954" 3.085, 3.19: CIRCLE(1050,100),637"3.02,3.19:CIRCLE(868,104),428" 2.95,3.18: CIRCLE(69,104),427"6.25,.2

190 CIRCLE(468,96),12:PAINT(468,96),1,2: CIRCLE( 113,100), 637"6.235,.105: CIRCLE(454,890),1943"1.52,1.62:CIRCLE(454,309),531" 1.39,1.75: CIRCLE(467, 118),534"4.5,4.874:RETURN

200 RESTORE 210'Простые и сложные кристаллич. решетки

210 DATA 82,160,222,300,362,440,502,552,56,90,116,56,90,256,56, 90,396, 63,97,379,63,97,457,56,90,435,70,104,401,60,94,524,116,194,90, 256,334,90,396, 474, 90, 379,457,63,379,457,97,362,440,87, 396,474,73, 524, 571, 94, 82,116,104,222,256,104

220 DATA 256,300,90,362,396,104,362,396,87,401,435,70,401,435, 104, 440,474, 87,502,524,104,82,70,82,104,116,56,116,90,194,56,194, 90,160,70, 160,104,222,70,222, 104,256,56,256,90,334,56,334,90,300, 70,300, 104,280, 80,362,70,362, 104,396,56,396, 90,474,56

230 DATA 474,90,440,70,440,104,379,80,457,80,418,63,418,97,401,87, 427,73, 502,70,502,104,524,60,524,94,574,60,574,94,552,70, 552,104,16, A,33,B,51,C,67,D

240 FOR A=1 TO 4:READ X,X1:LINE(X,70) (X1,104)"B:NEXT: FOR B=1 TO 8:READ X1,X2,X3:FOR Y=X1 TO X2 STEP 6:LINE(X3,Y) (X3,Y+3): NEXT Y,B:FOR A=1 TO 8:READ X1,X2,X3:FOR X=X1 TO X2 STEP 12: LINE(X,X3) (X+6,X3):NEXT X,A

250 FOR A=1 TO 9:READ X1,X2,X3:FOR X=X1 TO X2 3 STEP 8: FOR B=X TO X+4:PSET(B,X3 (B X1)*5/12):NEXT B,X,A

260 FOR X=256 TO 300 STEP 8:FOR B=X TO X+4:PSET(B,56+ (B 256)*47/44):NEXT B,X:FOR A=1 TO 39:READ X,Y:CIRCLE(X,Y),5: NEXT:FOR B=1 TO 4:READ Y,X$:LOCATE 15,Y:PRINT X$:NEXT 270 DRAW"bm82,70m116,56r78d34m160,104bm194,56m160,70bm222,70 m256,56r78d34m300,104bm334,56m300,70bm362,70m396,56r78d34 m440,104bm474,56m440,70bm502,70m524,60r50d34m552,104bm574,60 m552,70":RETURN

280 RESTORE 290'Объемноцентрир.куб

290 DATA 439,126,439,90,469,78,469,114,527,126,527,90,557,78, 557,114,498, 102,439,469,126, 0.4,469,527,114, 0.414,469,527, 78,0.828

334 КУРС МАТЕРИАЛОВЕДЕНИЯ В ВОПРОСАХ И ОТВЕТАХ

300 FOR A=1 TO 9:READ X,Y:CIRCLE(X,Y),7:NEXT:LINE(439,90) (527,126)"B:DRAW"bm439,90m469,78r88d36m527,126bm557,78m527,90": FOR Y=78 TO 114 STEP 6:LINE(469,Y) (469,Y+3):NEXT:FOR X=469

TO 557 STEP 12:LINE(X,114) (X+6,114):NEXT

310 FOR A=1 TO 3:READ X1,X2,X3,X4:FOR X=X1 TO X2 STEP 8:FOR B=X TO X+4:PSET(B,X3+(B X1)*X4):NEXT B,X,A:RETURN

320 FOR Y=64 TO 112 STEP 12:FOR X=377 TO 557 STEP 30:IF X=467 THEN IF Y=88 THEN 340'Решетка с вакансией

330 CIRCLE(X,Y),7:PAINT(X,Y),1,2

340 NEXT X:NEXT Y:FOR Y=64 TO 112 STEP 12:LINE(377,Y) (557,Y): NEXT:FOR X=377 TO 557 STEP 30:LINE(X,64) (X,112): NEXT:FOR X=452 TO 482:PRESET(X,88):NEXT: FOR Y=83 TO 93:PRESET(467,Y):NEXT: RETURN

350 RESTORE 360'Куб

360 DATA 439,110,439,74,469,62,469,98,527,110,527,74,557,62,557, 98, 439, 469,110, 0.4

370 FOR A=1 TO 8:READ X,Y:CIRCLE(X,Y),7:NEXT:LINE(439, 74) (527,110)"B:DRAW"bm439,74m469,62r88d36m527,110bm557, 62m527, 74": FOR Y=62 TO 92 STEP 6:LINE(469,Y) (469,Y+3): NEXT:FOR X=469

TO 557 STEP 12:LINE(X,98) (X+6,98):NEXT

380 FOR A=439 TO 469 STEP 8:FOR B=A TO A+4:PSET(B,110 (B 439)*. 4):NEXT B,A:RETURN

390 CIRCLE(439,123),7:CIRCLE(498,86),7:PAINT(498,86),1: CIRCLE (439,133),7:PAINT(439,133),1:LOCATE 16,57:

PRINT" компонент A":LOCATE 17,57:PRINT" компонент B": RESTORE 400'ОЦК и хим. соед.

400 DATA 439,110,439,74,469,62,469,98,527,110,527,74,557,62,557, 98,498,86,439,469,110, 0.4,469,527,98, 0.414,469,527,62,0.828 410 FOR A=1 TO 9:READ X,Y:CIRCLE(X,Y),7:NEXT:LINE(439,74) (527,110)" B:DRAW"bm439, 74m469,62r88d36m527,110bm557,62m527,74": FOR Y=62 TO 98 STEP 6:LINE(469,Y) (469,Y+3):NEXT:FOR X=469

TO 557 STEP 12:LINE(X,98) (X+6,98):NEXT

420 FOR A=1 TO 3:READ X1,X2,X3,X4:FOR X=X1 TO X2 STEP 8:FOR B=X TO X+4:PSET(B,X3+(B X1)*X4):NEXT B,X,A:RETURN

430 RESTORE 440'Куб в координатных осях

440 DATA 366,112,366,76,381,62,381,98,454,112,454,76,469,62,469, 98, 6,49,z,13,64,y,17,45,x

450 FOR A=1 TO 8:READ X,Y:CIRCLE(X,Y),7:NEXT:LINE(366,

76) (454,112)"B:LINE(381,62) (469,98)"B:DRAW"bm366,76e14u15 bm454,112e14r30bm454,76e14bm381,98g30":FOR A=1 TO 3:READ X,Y,X$: LOCATE X,Y:PRINT X$:NEXT

460 IF G1=35 OR G1=382 OR G1=383 THEN RETURN

470 IF G1=384 THEN 510 ELSE ON G1 32 GOTO 480,490

480 DRAW"bm381,98m462,87bm454,112m469,62bm454,76m469,98": LOCATE 12,49:PRINT"0":LOCATE 11,59:PRINT"B":RETURN

490 LOCATE 13,64:PRINT" ":DRAW"bm499,98r85bm372, 105r4bm366,

112 m381,80m557,98m366,112":FOR Y=71 TO 89 STEP9: LINE(379, Y) (383,Y):NEXT:FOR X=403 TO 557 STEP 22: LINE(X,97) (X,99): LINE(X+1,97) (X+1,99):NEXT

500 LOCATE 15,44:PRINT"A":LOCATE 11,49:PRINT"B":LOCATE 12,71: PRINT"C":LOCATE 13,75:PRINT"y":RETURN

510 LOCATE 13,64:PRINT" ":DRAW"bm499,98r85bm372, 105r4bm358,

119 r4bm350,126r4bm360,119m557,98m381,71m360,119": FOR Y=71 TO 89 STEP 9:LINE(379,Y) (383,Y):NEXT:FOR X=403 TO 557 STEP 22:

LINE(X,97) (X,99):LINE(X+1,97) (X+1,99):NEXT

520 LOCATE 15,44:PRINT"A":LOCATE 9,50:PRINT"B":LOCATE 12,70: PRINT"C":LOCATE 13,75:PRINT"y":RETURN

530 DRAW"c1bm366,76m454,112m469,98m381,62m366,76": PAINT(418, 87), 1: GOTO 430

540 LINE(453,53) (546,92)"B'Микроструктура мех. смеси

550 DRAW"bm453,72m478,70m484,60m477,53bm484,60m515, 61m530,

53 bm515,61m518,67m496,76m478,70bm496,76m496,86m466, 92m453, 89bm496, 86m511,92m527,86m531,74m518,67bm531,74m546, 74bm517, 86m546, 90" 560 PAINT(462,55),1,2:PAINT(527,78),1,2:LOCATE 8,59: PRINT"B": LOCATE 11,60:PRINT"A": RETURN

570 DRAW"c1bm371,70d54r186u54":CIRCLE(587,194),300"1.668,2. 371: CIRCLE(341, 17),300"4.81,5.513:FOR X=427 TO 501 STEP 8: LINE(X, 89) (X+4,89):NEXT:CIRCLE(423,89),2:CIRCLE(458,89),2: CIRCLE(502, 89),2'Конода в диагр. с неогр. растворимостью 580 FOR Y=74 TO 126 STEP 6:LINE(458,Y) (458,Y+3):NEXT: LOCATE 14,46:PRINT"A":LOCA TE11, 53:PRINT"a":LOCATE 11,63: PRINT"c": LOCATE 9,71:PRINT"B"

590 LOCATE 10,58:PRINT"I":LOCATE 9,49:PRINT"жидкость": LOCATE 14,62:PRINT"альфа":LOCATE 11,59:PRINT"b":LOCATE

17,58: PRINT"I":RETURN

600 RESTORE 620'Диаграмма с огранич. растворим. с эвтектикой

610 DRAW"c1bm378,76d53r195u53m505,96m378,75m437,96m390, 128 bm437,96m573,96":FOR Y=96 TO 128 STEP 6:LINE(437, Y) (437,Y+3): LINE(505,Y) (505,Y+3):NEXT:PRESET(437,129): PRESET(505, 129) 620 DATA 10,47,A,10,63,L,10,73,B,13,49,альфа,13,56,D,13,65,C, 13,71,E, 17,49,F,18,59,"B,% ":FOR A=1 TO 9:READ X,Y,X$:

LOCATE X,Y:PRINT X$:NEXT:LOCATE 18,64:PRINT CHR$(26): RETURN 630 RESTORE 650'Решетка раствора замещения

640 FOR Y=52 TO 108 STEP 13:FOR X=376 TO 562 STEP 31: CIRCLE(X,Y),5:NEXT X,Y

336 КУРС МАТЕРИАЛОВЕДЕНИЯ В ВОПРОСАХ И ОТВЕТАХ

650 DATA 376,52,469,52,407,65,531,65,376,78,469,78,562,78,438,91, 531, 91, 407,104,500,104,562,104

660 FOR A=1 TO 12:READ X,Y:CIRCLE(X,Y),5:PAINT(X,Y),1,2: NEXT: FOR X=376 TO 562 STEP 31:LINE(X,52) (X,104):NEXT:FOR Y=52

TO 104 STEP 13:LINE(376,Y) (562,Y):NEXT

670CIRCLE(407,116),5:CIRCLE(407,124),5:PAINT(407,124),1,2: LOCATE 15,53:PRINT" компонент A":LOCATE 16,53:

PRINT" компонент B":RETURN

680RESTORE 690'Куб (тв. р р внедрения)

690DATA 453,96,453,66,483,54,483,84,527,96,527,66,557,54,557, 84,490,108, 468,75,505,90,490,116,453,483,96, 0.4,453,483,96, 1.4,453, 557, 96, 0.115,453,483, 66,0.6,483,527,84,0.273 700 FOR A=1 TO 9:READ X,Y:CIRCLE(X,Y),7:NEXT:FOR B=1 TO 3: READ X,Y: CIRCLE(X,Y),5:PAINT(X,Y),1,2:NEXT:FOR A=1 TO 5: READ X1,X2, X3,X4:FOR X=X1 TO X2 STEP 8:FOR B=X TO X+4: PSET(B, X3+(B X1)*X4):NEXT B,X,A

710LINE(453,66) (527,96)"B:DRAW"bm453,66m483,54r74d30m527, 96 bm527,66m557,54":FOR Y=54 TO 84 STEP 6:LINE(483,Y) (483,Y+3): NEXT:FOR X=483 TO 557 STEP 12:LINE(X,84) (X+6,84): NEXT: LOCATE 14,64:PRINT" A":LOCATE 15,64:PRINT" B": RETURN 720 RESTORE 740'Задача о строении осей диаграммы со стояния 730 DRAW"c1bm381,62d48r176u48":CIRCLE(351, 28),300" 4.811, 5.466: CIRCLE(587,188),300"1.67,2.325:FOR Y=69 TO 110 STEP

6:LINE(498,Y) (498,Y+3):NEXT

740DATA 9,64,c,14,72,B,8,60,L,8,72,B',11,64,f,14,46,A,12,46, A', 13,57,альфа, 14,64,m,16,57,"B,% ",9,51,L+альфа,69,81,110 750 FOR A=1 TO 11:READ X,Y,X$:LOCATE X,Y:PRINT X$:NEXT: FOR B=1 TO 3:READ Y:CIRCLE(498,Y),3:NEXT:DRAW"bm432,74m464,80": LOCATE 16,62:PRINT CHR$(26):RETURN

760RESTORE 780'Диагр. с огранич. раствор. и кривые охлаждения 770 PSET(106,56):DRAW"d48r190u48bm336,56d48r59bm410, 56d48r70 bm495,56d48r70bm341,56m343,60m356,66m366,104bm415, 56m420, 69 m430,80r15m455,104bm500,56m501,60m514,70m524, 91m546, 104": LINE(150,80) (244,80):LINE(150,80) (150,104)

780DATA 36,166,.759,1.079,372,177,1.826,2.256,365, 7,3.668, 3.912,49, 15,5.421,5.681,34,169,.547,.794,121,58,165,72,182,80,

218,69,268,59,343,60,356,66,420,69,430,80,445,80,501,60, 514,70,524,91

790DATA 8,13,A,8,23,L,8,39,B,8,45,L ...,8,65,L ...,10,55,

L ...,11,34,бета,11,15,аль ,12,16,фа,13,15,a,13,22,b,13,27, c,13,33,d, 15,23,"B,% ",15,46,A,15,56,B,15,65,C,8,47, 8,67,10,57,15,28

800 FOR A=1 TO 5:READ X1,X2,X3,X4:CIRCLE(X1,X2),300"X3,X4: NEXT: FOR B=1 TO 5: READ X,A:FOR Y=A TO 103 STEP 6: LINE(X,Y) (X,Y+3): NEXT Y,B:PRESET(165,105):FOR B=1 TO 8: READ X,Y:CIRCLE(X,Y),2: NEXT

810 FOR A=1 TO 17:READX,Y,X$:LOCATEX,Y:PRINTX$:NEXT: FOR A=1

TO 4:READ X,Y:LOCATE X,Y:PRINT CHR$(26):NEXT:RETURN 820 RESTORE 830'ГЦК (тверд. р р замещения)

830 DATA 251,70,251,104,285,56,285,90,363,90,329,70,329,104,346, 80, 307, 63,307,97,290,87,324,73,268,80,363,56,404,67,404,83,268,80,363, 56, 404,83,56,90, 285,56,90,324,63,97,268,63,97,346,70,104,290,285,363, 73, 285, 363,90, 268,346,63,268, 346,97

840 DATA 251,329,87,251,285,104,251,285,87,290,324,70,290,324, 104, 329, 363,87,9, компонент A,11, компонент B

850 FOR A=1 TO 16:READ X,Y:CIRCLE(X,Y),5:NEXT:FOR B=1 TO 3: READ X,Y:PAINT(X,Y),1,2:NEXT:FOR A=1 TO 5:READ X1,X2, X3:FOR Y=X1 TO X2 STEP 6:LINE(X3,Y) (X3,Y+3):NEXT Y,A:FOR B=1 TO 5:READ X1, X2,X3:FOR X=X1 TO X2 STEP 12:LINE(X,X3) (X+6,X3):NEXT X,B 860 FOR A=1 TO 5:READ X1,X2,X3:FOR X=X1 TO X2 3 STEP 8:FOR B=X TO X+4:PSET(B,X3 (B X1)*5/12):NEXT

B,X,A:FOR A=1 TO 2:READ X,X$: LOCATE X,53:PRINT X$:NEXT 870 DRAW"bm251,70m285,56r78d34m329,104bm363,56m329,70":

LINE(251,70) (329,104)"B:PRINT:PRINT:RETURN

Программа составления списка студентов

5 'Программа stud1

10 OPEN "stud" AS#1 LEN=44

20 FIELD#1,4 AS NUM$,20 AS A$,8 AS B$,2 AS C$,10 AS D$ 25 INPUT "number";NM$

27 IF VAL(NM$)=5000 THEN 70

30 INPUT "fam";X$:INPUT"grup";X1$:INPUT"b/g";X2$

40 LSET NUM$=NM$:LSET A$=X$:LSET B$=X1$:LSET C$=X2$ 50 PUT#1,VAL(NM$)

60 GOTO 25

70 CLOSE:END

100 OPEN"stud"AS#1 LEN=44

110 FIELD#1,4AS NUM$,20AS A$,8AS B$,2AS C$,10AS D$ 115 A1=1

120 FOR A=A1 TO A1+19

140 GET#1,A

150 PRINT NUM$,A$,B$,C$,D$:NEXT:INPUTA2:A1=A1+20:IFA1<100 THEN 120 ELSE CLOSE:END

338 КУРС МАТЕРИАЛОВЕДЕНИЯ В ВОПРОСАХ И ОТВЕТАХ

ПРИЛОЖЕНИЕ II

Программа для создания базы данных

(matved) uses dos,crt

var m1,m2,r,ff:string; n:array [1..5] of string[8]; t:array [1..6] of real; d:array [1..8] of string; s:array [1..12] of string; i:byte;

f:text;

dd:searchrec;

label create,appending,next,that_s_all,q1,q2; function readreal:real;

var ss:string; ii:real; jj:integer; begin readln(ss); val(ss,ii,jj);

if jj0 then ii:=0; readreal:=ii end;

begin

if paramcount>0 then ff:=paramstr(1) else begin

write('Имя файла '); readln(ff) end;

findfirst(ff,63,dd);

if doserror0 then goto create; assign(f,ff); reset(f); readln(f,r);

for i:=1 to 5 do readln(f,n[i]); close(f);

goto appending; create:

write('Название раздела '); readln(r); writeln('Название характеристик'); for i:=1 to 5 do readln(n[i]); assign(f,ff); rewrite(f);

writeln(f,r);

for i:=1 to 5 do writeln(f,n[i]); close(f);

appending: assign(f,ff); append(f); next: clrscr; gotoxy(1,1); write('Название '); gotoxy(41,1); write('Марки '); gotoxy(4,2);

write('— Детали машин и область применения — '); gotoxy(4,11);

write('— Свойства. Основные критерии работоспособности — ');

gotoxy(1,24);

for i:=1 to 5 do if n[i]''then begin

gotoxy(i*16 15,24); write(n[i],'=')

end;

gotoxy(12,1); readln(m1); if m1=''then goto that_s_all; gotoxy(49,1); readln(m2);

gotoxy(1,3);

for i:=1 to 8 do d[i]:=''; for i:=1 to 8 do

begin readln(d[i]);

if d[i]=''then goto q1 end;

q1:

gotoxy(1,12);

for i:=1 to 12 do s[i]:=''; for i:=1 to 12 do

begin readln(s[i]);

if s[i]=''then goto q2 end;

q2:

for i:=1 to 5 do if n[i]''then begin

gotoxy(i*16 6,24);

340 КУРС МАТЕРИАЛОВЕДЕНИЯ В ВОПРОСАХ И ОТВЕТАХ

t[i]:=readreal

end;

writeln(f,m1); writeln(f,m2); for i:=1 to 8 do writeln(f,d[i]); for i:=1 to 12 do writeln(f,s[i]); for i:=1 to 5 do writeln(f,t[i]); goto next;

that_s_all: close(f); clrscr end.

Программа для просмотра базы данных и поиска требуемых материалов "matfind"

uses dos,tpcrt

var m1,m2:string; n:array [1..5] of string[8]; t:array [1..6] of real; d:array [1..8] of string; s:array [1..12] of string; nn,i,j,p,i_,m:byte; c:char;

f,l:text;

dd:searchrec;

ff,r:array [1..100] of string; ins:array [1..100] of boolean; rn:array [1..100,1..5] of string[8];

fn:array [1..24,1..2] of real; h1,h2,11,12,s1,s2,s101,s102:word;

label not_found,nto,ont,quit;

procedure clr; begin textcolor(128); textbackground(7); gotoxy(65,1);

write(' [ Working... ] '); textcolor(7); textbackground(0) end;

function readreal:real;