bogodukhov_s_i_sinyukhin_a_v_kozik_e_s_kurs_materialovedeniy

1170 IF NR>50 THEN NR=NR 50:OPEN "q6a" AS#1 LEN=448: GOTO 1200 ELSE OPEN "q6" AS#1 LEN=448:GOTO 1200

1180 IF NR>44 THEN NR=NR 44:OPEN "q7a" AS#1 LEN=512: GOTO 1200 ELSE OPEN "q7" AS#1 LEN=512:GOTO 1200

1190 FIELD #1,2 AS T1$,7 AS T2$,64*(KK+1) 9 AS A$:GOTO 1210 1200 FIELD #1,2 AS T1$,7 AS T2$,255 AS A$,64*(KK+1) 264 AS B$ 1210 GET#1,NR:GOSUB 1250:CLOSE:GOTO 1100

1220 PRINT:PRINT:LOCATE 23,5:PRINT"Список по теме "G" окон чен.";: INPUT" Будете ли просматривать другие темы (Y/N) ";T$:CLS

1230 FOR A=1 TO 10:AB(A)=0:NEXT

1240 IF T$="y" OR T$="Y" THEN 500 ELSE GOTO 320

1250 B=1:FOR N=1 TO 3:B(N)=INSTR(B,A$,X$):B1(N)=INSTR (B,A$,Y$): IF B(N)=0 OR B(N)>B1(N) THEN B(N)=B1(N): A$(N)= MID$(A$,B,B(N) B): B(0)=B(N):N=3 ELSE A$(N)=MID$(A$,B,B(N) B):B=B(N)+1 1260 NEXT N

1270 IF N1<10 THEN 1280 ELSE GOTO 1290

1280 PRINT TAB(2)N1;:IF Z=1 THEN LPRINT TAB(2)N1;: GOTO

1300 ELSE GOTO 1300

1290 PRINT TAB(1)N1;:IF Z=1 THEN LPRINT TAB(1)N1;: GOTO

1300 ELSE GOTO 1300

1300 IF A$(2)="" THEN PRINT TAB(8)A$(1);:AA=LEN(A$(1)): IF Z=1 THEN LPRINT TAB(8)A$(1);:GOTO 1330 ELSE GOTO 1330 1310 IF A$(3)="" THEN PRINT TAB(8)A$(1):PRINT TAB(8)A$(2);: AA= LEN(A$(2)):IF Z=1 THEN LPRINT TAB(8)A$(1): LPRINT TAB(8)A$(2);: GOTO 1330 ELSE GOTO 1330

1320 PRINT TAB(8)A$(1):PRINT TAB(8)A$(2):PRINT TAB(8)A$(3);: AA=LEN(A$(3)):IF Z=1 THEN LPRINT TAB(8)A$(1):LPRINT TAB(8)A$(2): LPRINT TAB(8)A$(3);

1330 FOR A1=5 TO 68 STEP 3:IF A1<AA+9 THEN 1340 ELSE PRINT TAB(A1)".";:IF Z=1 THEN LPRINT TAB(A1)".";

1340 NEXT A1:PRINT TAB(71)T2$:IF Z=1 THEN LPRINT TAB(71) T2$

1350 FOR A1=1 TO 3:A$(A1)="":NEXT

1360 N1=N1+1:FOR B=1 TO 10:IF N1=AB(B) THEN B=10:PRINT: PRINT: LOCATE 23,5:INPUT"Для продолжения таблицы нажмите кла вишу ПУСК", T0:LOCATE 23,5:PRINT TAB(79)""

1370 NEXT

1380 RETURN

1390 ON G GOTO 1400,1410,1420,1430,1440,1450,1460,1470,1480,

1490,1500

1400 OPEN "k1" AS#1 LEN=75:GOTO 1510

1410 OPEN "k2" AS#1 LEN=75:GOTO 1510

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

1420 OPEN "k3" AS#1 LEN=75:GOTO 1510

1430 OPEN "k4" AS#1 LEN=75:GOTO 1510

1440 OPEN "k5" AS#1 LEN=75:GOTO 1510

1450 OPEN "k6" AS#1 LEN=75:GOTO 1510

1460 OPEN "k7" AS#1 LEN=75:GOTO 1510

1470 OPEN "k8" AS#1 LEN=75:GOTO 1510

1480 OPEN "k9" AS#1 LEN=75:GOTO 1510

1490 OPEN "k10" AS#1 LEN=75:GOTO 1510

1500 OPEN "k11" AS#1 LEN=75

1510 FIELD #1,2 AS T1$,7 AS T2$,14 AS L$,14 AS AR$,14 AS GL$, 2 AS KK$,4 AS NR$:RETURN

1520 OPEN "m" AS#1 LEN=27:FIELD#1,4 AS M1$,4 AS M2$,3 AS M3$, 4 AS M4$,4 AS M5$,8 AS M6$:RETURN

1530 IF B$(2)="" THEN BB=LEN(B$(1)):PRINT TAB(4)B$(1);ELSE BB=LEN(B$(2)):PRINT TAB(4)B$(1):PRINT TAB(4)B$(2);

1540 FOR B=4 TO 69 STEP 3:IF B<BB+5 THEN 1550 ELSE PRINT TAB(B)".";

1550 NEXT:IF N<10 THEN PRINT TAB(72)N ELSE PRINT TAB(71)N

1560 N=N+1:B$(1)="":B$(2)="":RETURN

Подпрограмма, формирующая вопросы и порядок ответов

10 'Подпрограмма aqus1a

20 CLS:IF Z7=0 THEN GOSUB 2120:FOR A=1 TO 200:GET#1,A: GOTO 30 ELSE GOTO 50

30 IF VAL(T1$)=0 THEN S(G)=A 1:M(G)=S(G):CLOSE:GOTO

230

40 NEXT

50 IF Z7=1 THEN 130

60 IF Z7=2 AND H=1 THEN INPUT"Группа кодов ";B7: INPUT" Но мер кода ";C7:GOSUB 1870

70 INPUT"Код темы ";G

80 INPUT"Код вопроса ";G1

90 IF Z=1 AND G1 FIX(G1)>0 THEN INPUT"Печать (да 1/нет 0)"; Z: IF Z=0 THEN ZA=1:GOTO 110

100 IF ZA=1 THEN INPUT"Печать (да 1/нет 0) ";Z:IF Z=1 THEN ZA=0 110 GOSUB 2120:FOR A=1 TO 200:GET#1,A:IF FIX(VAL(T2$))= FIX(G1) THEN 300

120 NEXT: CLOSE: CLS: PRINT "Тема "G" не содержит вопроса с кодом "G1". Повторите.":GOTO 70

130 OPEN "m" AS#1 LEN=27:FIELD #1,4 AS M1$,4 AS M2$,3 AS M3$, 4 AS M4$,4 AS M5$,8 AS M6$

LPRINT: LPRINT TAB(34)"В о п р о с N"1:LPRINT ELSE LOCATE 23,5: INPUT"Новый лист Y/N ";I$:LOCATE 23,5:PRINT TAB(70)"": GOTO 370 360 GOTO 390

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

370 IF I$="Y" OR I$="y" THEN LPRINT TAB(12)B7;TAB(70)C7 380 LPRINT:LPRINT TAB(34)"В о п р о с N"H:LPRINT

390 IF G1 FIX(G1)>0 THEN G2=CINT((G1 FIX(G1))*1000): G1= FIX(G1)

400 IF Z7>2 THEN 460

410 IF G20 AND G2<20 THEN CHAIN"graf1""ALL

420 IF G2>19 AND G2<36 THEN CHAIN"graf2""ALL

430 IF G2>35 AND G2<46 THEN CHAIN"graf3""ALL

440 IF G2>45 THEN CHAIN"graf4""ALL

450 LOCATE 5,11

460X$="@":Y$="#":Z$="&":ON NN1 GOTO 480,490,500,510,520, 530,540

470CLOSE:ON NN1 GOTO 480,490,500,510,520,530,540

480IF NN2>174 THEN NN2=NN2 174:OPEN "q1a" AS#1 LEN=128: GOTO 550 ELSE OPEN "q1" AS#1 LEN=128:GOTO 550

490IF NN2>116 THEN NN2=NN2 116:OPEN "q2a" AS#1 LEN=

192:GOTO 550 ELSE OPEN "q2" AS#1 LEN=192:GOTO 550

500IF NN2>87 THEN NN2=NN2 87:OPEN "q3a" AS#1 LEN= 256:GOTO 550 ELSE OPEN "q3" AS#1 LEN=256:GOTO 550

510IF NN2>70 THEN NN2=NN2 70:OPEN "q4a" AS#1 LEN= 320:GOTO 560 ELSE OPEN "q4" AS#1 LEN=320:GOTO 560

520IF NN2>58 THEN NN2=NN2 58:OPEN "q5a" AS#1 LEN= 384:GOTO 560 ELSE OPEN "q5" AS#1 LEN=384:GOTO 560

530IF NN2>50 THEN NN2=NN2 50:OPEN "q6a" AS#1 LEN= 448:GOTO 560 ELSE OPEN "q6" AS#1 LEN=448:GOTO 560

540IF NN2>44 THEN NN2=NN2 44:OPEN "q7a" AS#1 LEN= 512:GOTO 560 ELSE OPEN "q7" AS#1 LEN=512:GOTO 560

550FIELD #1,2 AS T1$,7 AS T2$,64*(NN1+1) 9 AS A$:GOTO

570

560FIELD #1,2 AS T1$,7 AS T2$,255 AS A$,64*(NN1+1) 264

AS B$

570GET #1,NN2

580P1=INSTR(A$,Z$) 1:A$=LEFT$(A$,P1)

590B=1:FOR N=1 TO 3:B(N)=INSTR(B,A$,X$):B1(N)= INSTR (B,A$,Y$): IF B(N)=0 OR B(N)>B1(N) THEN B(N)=B1(N):A$(N)= MID$(A$,B, B(N) B): B(0)=B(N):N=3 ELSE A$(N)=MID$(A$,B,B(N) B):B=B(N)+1 600 NEXT

610IF A$(2)="" THEN PRINT TAB(17)A$(1):IF Z=1 THEN LPRINT TAB(17)A$(1):GOTO 640 ELSE GOTO 640

620IF A$(3)="" THEN PRINT TAB(17)A$(1):PRINT TAB(12)A$(2): IF Z=1 THEN LPRINT TAB(17)A$(1):LPRINT TAB(12)A$(2):GO

TO 640

ELSE GOTO 640

630 PRINT TAB(17)A$(1):PRINT TAB(12)A$(2):PRINT TAB(12)A$(3): IF Z=1 THEN LPRINT TAB(17)A$(1):LPRINT TAB(12)A$(2): LPRINT TAB(12)A$(3)

640 IF B(0)=P1 THEN 730 ELSE FOR N=1 TO 4:FOR K=1 TO 3:B(N)= INSTR(B(N 1)+1,A$,X$):B1(N)=INSTR(B(N 1)+1,A$,Y$):IF B(N)=0 OR B(N)>B1(N) THEN B(N)=B1(N):ON K GOTO 650,660,670 ELSE ON K GOTO 680,690

650 F$(N)=MID$(A$,B(N 1)+1,B(N) (B(N 1)+1)):GOTO 710 660 F1$(N)=MID$(A$,B(N 1)+1,B(N) (B(N 1)+1)):GOTO 710 670 F2$(N)=MID$(A$,B(N 1)+1,B(N) (B(N 1)+1)):GOTO 710

680 F$(N)=MID$(A$,B(N 1)+1,B(N) (B(N 1)+1)):B(N 1)= B(N):GOTO 700

690 F1$(N)=MID$(A$,B(N 1)+1,B(N) (B(N 1)+1)):B(N 1)= B(N)

700 NEXT K

710 IF B(N)=P1 THEN M=N+1:N=4

720 NEXT N

730 IF NN1>3 THEN P1=INSTR(B$,Z$) 1:B$=LEFT$(B$,P1) ELSE GOTO 840

740 B=1:IF M=0 THEN M=1

750 FOR N=M TO 4:FOR K=1 TO 3:B(N)=INSTR(B,B$,X$):B1(N)= INSTR(B,B$,Y$):IF B(N)=0 OR B(N)>B1(N) THEN B(N)=B1(N):ON K GOTO 760,770,780 ELSE ON K GOTO 790,800

760 F$(N)=MID$(B$,B,B(N) B):GOTO 820

770 F1$(N)=MID$(B$,B,B(N) B):GOTO 820

780 F2$(N)=MID$(B$,B,B(N) B):GOTO 820

790 F$(N)=MID$(B$,B,B(N) B):B=B(N)+1:GOTO 810 800 F1$(N)=MID$(B$,B,B(N) B):B=B(N)+1

810 NEXT K

820 IF B(N)=P1 THEN 840 ELSE B=B(N)+1

830 NEXT N

840 CLOSE

850 IF Z7=3 THEN OPEN "xx" FOR APPEND AS#1 ELSE GOTO 890

860 PRINT#1,H7;".";:FOR A=1 TO 3:IF A$(A)="" THEN 890

870 IF A=1 AND H7<10 THEN PRINT#1," ";A$(A) ELSE PRINT#1," "; A$(A)

880 NEXT

890 GOSUB 1470

900 FOR K=(H 1)*4+1 TO (H 1)*4+4:IF K=F(H) THEN IF R(1)=1 THEN 910 ELSE J1=1:GOTO 920

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

910 P1=4:X7=4:GOSUB 1760

920AB(J1)=K (H 1)*4:IF Z7=2 THEN J=K:GOTO 930 ELSE J= K (H 1)*4:A=11:GOTO 940

930IF K<10 THEN A=11 ELSE A=10

940IF G2=7 OR G2=18 THEN IF K=H*4 3 THEN PRINT TAB(A)J") "F$(J1);:IF Z=1 THEN LPRINT TAB(A)J") "F$(J1);: GOTO 1130 ELSE GOTO 990

950IF G2=7 OR G2=18 THEN PRINT TAB(A+15*(K (H 1)*4 1))J")

"F$(J1);:IF Z=1 THEN LPRINT TAB(A+15*(K (H 1)*4 1))J") "F$(J1);: GOTO 1130 ELSE GOTO 990

960IF G2=26 OR G2=28 OR G2=32 THEN IF K=H*4 3 THEN PRINT TAB(26)J") "F$(J1);:IF Z=1 THEN LPRINT TAB(26)J") "F$(J1); GOTO 1130 ELSE GOTO 990

970IF G2=26 OR G2=28 OR G2=32 THEN PRINT TAB(26+13* (K (H 1)*4 1))J") "F$(J1);:IF Z=1 THEN LPRINT TAB(26+13* (K (H 1)*4 1))J") "F$(J1);:GOTO 1130 ELSE GOTO 990 980 IF F1$(J1)="" THEN PRINT TAB(A)J;") ";F$(J1) ELSE GOTO 1050 990 IF Z7=3 THEN 1010

1000 IF Z=1 THEN LPRINT TAB(A);J") ";F$(J1);:GOTO 1130 ELSE GOTO 1130

1010 IF G2=1 OR G2=2 OR G2=4 OR G2=5 OR G2=12 OR G2=14 OR G2=15 OR G2=16 OR G2=20 OR G2=22 OR G2=23 OR G2=24 OR G2=25 OR G2=27 OR G2=30 OR G2=31 THEN 1020

1014 IF G2>32 AND G2<42 THEN 1020

1016 IF G2=44 OR G2=45 OR G2=46 OR G2=50 OR G2=51 OR G2=53 OR G2=54 OR G2=55 THEN 1020 ELSE GOTO 1040

1020 FOR A=1 TO 4:IF LEN(F$(A))>LEN(F$(A 1)) THEN B=LEN(F$(A)): NEXT

1030 IF Z7=3 THEN PRINT #1,J;") ";:IF LEN(F$(J1))+20<=61 AND LEN(F$(J1))+20<=B+6 THEN PRINT#1,F$(J1);" (с. ,п.)": GOTO 1130 ELSE PRINT#1,F$(J1):PRINT#1," (с. ,п.)": GOTO 1130

1040 IF Z7=3 THEN PRINT#1,J;") ";:IF LEN(F$(J1))+20<=61 THEN PRINT #1,F$(J1);" (с. ,п.)":GOTO 1130 ELSE PRINT #1,F$(J1): PRINT#1," (с., п.)": GOTO 1130

1050 IF F2$(J1)="" THEN PRINT TAB(A)J;") ";F$(J1):PRINT TAB(17)F1$(J1) ELSE GOTO 1090

1060 IF Z7=3 THEN 1080

1070 IF Z=1 THEN LPRINT TAB(A);J") ";F$(J1):LPRINT TAB(17) F1$(J1);:GOTO 1130 ELSE GOTO 1130

1080 IF Z7=3 THEN PRINT#1,J;") ";F$(J1):IF LEN(F1$(J1))+20<=61 AND LEN(F1$(J1))+20<=LEN(F$(J1))+6 THEN PRINT#1," "; F1$(J1);"

(с. ,п.)":GOTO 1130 ELSE PRINT#1,""; F1$(J1):PRINT#1," (с.,п.)": GOTO 1130

1090 PRINT TAB(A)J;") ";F$(J1):PRINT TAB(17)F1$(J1):PRINT TAB(17)F2$(J1)

1100 IF Z7=3 THEN 1120

1110 IF Z=1 THEN LPRINT TAB(A);J") ";F$(J1):LPRINT TAB(17) F1$(J1):LPRINT TAB(17)F2$(J1);:GOTO 1130 ELSE GOTO 1130

1120 IF Z7=3 THEN PRINT#1,J;") ";F$(J1):PRINT#1," "; F1$(J1):IF LEN(F2$(J1))+20<=61 AND LEN(F2$(J1))+20<= LEN(F$(J1))+6 THEN PRINT#1," "F2$(J1);" (с. ,п.)" ELSE PRINT#1," ";F2$(J1):PRINT#1," (с.,п.)" 1130 R(J1)=1:NEXT K:G2=0:CLOSE:PRINT:PRINT

1140 IF Z7<2 THEN INPUT" ";T:IF T=0 THEN PRINT"Введите номер ответа":GOTO 1140 ELSE GOTO 1180

1150 IF Z7=3 THEN INPUT"",T:GOTO 1420

1160 LOCATE 23,5:INPUT"Проверка ответов? Если да, то введите номер ответа, иначе 0 ",T:LOCATE 22,5:PRINT TAB(79)"":

LOCATE 23,5:PRINT TAB(79)"":IF T=0 THEN CLS: GOTO 1420 ELSE T=T (H 1)*4

1170 IF T=F(H) (H 1)*4 THEN LOCATE 23,7:PRINT"Правильно"; :INPUT"",T:GOTO 1420

1180 IF T=F(H) (H 1)*4 THEN LINE(0,175) (639,184)"BF: LOCATE 23,7:PRINT"Правильно":R5=R5+1:LOCATE 23,25:PRINT"

Правильных ответов:"R5:LOCATE 23,56:PRINT"Задано вопросов:"H7: LOCATE 23,78:INPUT"",A:GOTO 1420

1185 IF T FIX(T)0 OR T<0 OR T>4 THEN LOCATE 22,5: PRINT"Ошибка ввода.";:IF Z7=2 THEN 1160 ELSE INPUT" Введите НОМЕР ответа ",T: LOCATE 22,5:PRINT TAB(79)"":GOTO 1180

1190 FOR A=2 TO 4:IF AB(A)=T THEN 1210

1200 NEXT

1210 IF N2(A)=1 THEN N3=N3(A)/174 ELSE GOTO 1280

1220 IF INT(N3)*174=N3(A) THEN N3=N3 1

1230 N3(A)=N3(A) INT(N3)*174:ON INT(N3)+1 GOTO 1240,

1250,1260,1270

1240 OPEN "o1" AS#1 LEN=128:GOTO 1350

1250 OPEN "oo1" AS#1 LEN=128:GOTO 1350

1260 OPEN "ooo1" AS#1 LEN=128:GOTO 1350

1270 OPEN "oooo1" AS#1 LEN=128:GOTO 1350

1280 IF N2(A)=2 THEN N3=N3(A)/116 ELSE GOTO 1340

1290 IF INT(N3)*116=N3(A) THEN N3=N3 1

1300 N3(A)=N3(A) INT(N3)*116:ON INT(N3)+1 GOTO 1310,1320,

1330

1310 OPEN "o2" AS#1 LEN=192:GOTO 1350

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

1320 OPEN "oo2" AS#1 LEN=192:GOTO 1350

1330 OPEN "ooo2" AS#1 LEN=192:GOTO 1350

1340 IF N3(A)>87 THEN N3(A)=N3(A) 87:OPEN "oo3" AS#1 LEN=256

ELSE OPEN "o3" AS#1 LEN=256

1350 FIELD #1,2 AS T1$,7 AS T2$,2 AS NN$,64*(N2(A)+1) 11 AS R$ 1360 GET #1,N3(A)

1370 VIEW:CLS:B=1:FOR N=1 TO 5:B(N)=INSTR(B,R$,X$):IF B(N)=0

THEN IF N=1 THEN PRINT TAB(15)R$:N=5:GOTO 1390 ELSE N=5: GOTO 1390

1380 R$(N)=MID$(R$,B,B(N) B):B=B(N)+1:IF N=1 THEN PRINT TAB(15)

R$(N) ELSE PRINT TAB(10)R$(N)

1390 NEXT:CLOSE:INPUT"",T:GOSUB 1640:IF Z7>1 THEN 1420

1400 CLS:VIEW:LINE(0,175) (639,184)"BF:VIEW(0,0) (639,173)"0

1410 LINE(0,175) (639,184)"BF:LOCATE 23,25:PRINT"Правиль ных ответов:"R5:LOCATE 23,56:PRINT"Задано вопросов:"H7

1420 FOR A1=1 TO 4:R(A1)=0:F$(A1)="":F1$(A1)="":F2$(A1)="": A$(A1)="":NEXT

1430 H=H+1:H7=H7+1:IF H>5 THEN H=1

1440 CLS:IF Z7=0 THEN 230

1450 IF Z7=1 THEN 200

1460 IF Z7=2 THEN 60 ELSE GOTO 70

1470 IF G2=7 OR G2=18 THEN IF Z7<3 THEN IF Z7=2 THEN FOR A=1

TO 9:PRINT:NEXT ELSE FOR A=1 TO 10:PRINT:NEXT

1480 IF G2=19 THEN IF Z7<3 THEN IF Z7=2 THEN FOR A=1 TO 7:PRINT: NEXT ELSE FOR A=1 TO 8:PRINT:NEXT

1490 IF G2=21 THEN BB$="О т в е т ы: в системе в твердом состоя нии ...":IF Z7<3 THEN FOR A=1 TO 9:PRINT:NEXT:PRINT TAB(17)BB$: RETURN ELSE PRINT TAB(17)BB$:PRINT#1," "BB$:RETURN 1500 IF G2=26 OR G2=28 OR G2=32 THEN BB$="О т в е т ы:":IF Z7<3 THEN FOR A=1 TO 13:PRINT:NEXT:PRINT TAB(12)BB$;:RETURN ELSE PRINT TAB(12)BB$;:RETURN

1510 IF G2=31 THEN BB$="О т в е т ы: На рисунке представлена диаграмма ...":PRINT:PRINT TAB(12)BB$:PRINT:IF Z7=3 THEN

PRINT#1," "BB$:RETURN ELSE RETURN

1520 IF G1=39 THEN BB$="О каком виде дефекта кристалличе ской структуры идет речь ?":PRINT TAB(12)BB$:IF Z7=3 THEN PRINT#1," "BB$

1530 BB$="О т в е т ы:":PRINT:PRINT TAB(17)BB$:PRINT:IF Z=1

THEN LPRINT:LPRINT TAB(17)BB$:LPRINT 1540 IF Z7=3 THEN PRINT#1," "BB$

1550 IF G1=119 THEN BB$="Начиная от поверхности, следуют зоны со структурными":BC$="составляющими:":PRINT TAB(17)BB$:

PRINT TAB(12)BC$:PRINT:IF Z=1 THEN LPRINT TAB(17)BB$: LPRINT TAB(12)BC$: LPRINT

1560 IF G1=119 AND Z7=3 THEN PRINT#1," "BB$:PRINT#1," "BC$ 1570 IF G1=138 THEN BB$="Сквозное прокаливание обеспечива

ет ...":PRINT:PRINT TAB(17)BB$:PRINT:IF Z=1 THEN LPRINT TAB(17)BB$:LPRINT

1580 IF G1=138 AND Z7=3 THEN PRINT#1," "BB$

1590 IF G1=130 THEN BB$="При неполной закалке доэвтектоид ных сталей ...":PRINT TAB(17)BB$:PRINT:IF Z=1 THEN LPRINT TAB(17)BB$:LPRINT

1600 IF G1=130 AND Z7=3 THEN PRINT#1," "BB$

1610 IF G1>=265 AND G1<=268 THEN BB$="Это группа явлений, происходящих при нагреве деформиро ":BC$="ванного металла и ох ватывающих...":PRINT TAB(17)BB$:PRINT TAB(12)BC$:PRINT:IF Z=1 THEN LPRINT TAB(17)BB$:LPRINT TAB(12)BC$:LPRINT

1620 IF G1>=265 AND G1<=268 AND Z7=3 THEN PRINT#1," "BB$: PRINT#1," "BC$

1630 RETURN

1640 CLS:IF G1=23 OR G1=282 THEN 1750 ELSE LOCATE 2,5:PRINT"Материал по заданному вопросу вы можете найти в лите ратуре:" 1650 IF VAL(LH$)>0 THEN LOCATE 5,5:PRINT"Лах тин Ю.М., Леонтьева В.П. МАТЕРИАЛОВЕДЕНИЕ М.: Машино строение, 1990, стр."LH$ 1660 IF VAL(AS$)>0 THEN LOCATE 8,5:PRINT"МАТЕРИАЛОВЕДЕНИЕ под ред. Арзамасова Б.Н. М.: Машиностроение, 1986, стр."AS$ 1670 IF VAL(GF$)>0 OR GF$SPACE$(14) THEN Q$=LEFT$(GF$,1) ELSE GOTO 1740

1680 IF Q$="a" THEN LOCATE 11,5:PRINT"Синюхин А.В. Алюми ний и его сплавы: Методические указания к лабораторной": PRINT"ра боте. Оренбург: Технический университет, 1995. 32 с.":GOTO 1740 1690 IF Q$="b" THEN LOCATE 11,5:PRINT"СТРОЕНИЕ И СВОЙСТВА АВИАЦИОННЫХ МАТЕРИАЛОВ /Под ред. А.Ф.Бело

ва и В.В. Николенко. М.: Металлургия, 1989. 368 с.":GOTO 1740 1700 IF Q$="e" THEN LOCATE 11,5:PRINT"Богородицкий Н.П., Па

сынков В.В., Тареев Б.М. ЭЛЕКТРОТЕХНИЧЕСКИЕ МАТЕРИАЛЫ Л.: Энергоатомиздат, 1985. 304 с.":GOTO 1740

1710 IF Q$="m" THEN LOCATE 11,5:PRINT"Синюхин А.В. Маг ний и его сплавы: Методические указания к лабораторной":PRINT"ра боте. Оренбург: Политехнический институт, 1993. 14 с.":GOTO 1740

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

1720 IF Q$="t" THEN LOCATE 11,5:PRINT"Синюхин А.В. Титан и его сплавы: Методические указания к лабораторной":PRINT"работе. Оренбург: Политехнический институт, 1992. 16 с.":GOTO 1740 1730 LOCATE 11,5:PRINT"Гуляев А.П. МЕТАЛЛОВЕДЕНИЕ М.: Метал лургия, 1986, стр."GF$

1740 INPUT"",T

1750 RETURN

1760 A=TIMER:B=CINT((A FIX(A))*100)

1770 FOR L=B TO 1000:RANDOMIZE L

1780 FOR M=1 TO P1:N=RND*(P1+10):IF INT(N)>0 THEN 1790 ELSE

GOTO 1800

1790 IF INT(N)>P1 THEN 1800 ELSE ON X7 GOTO 1820,1830, 1840,1850

1800 NEXT M,L:RETURN

1810 M=P1:L=1000:RETURN

1820 GOSUB 1810:GOTO 1800

1830 IF M(INT(N))>0 THEN G=INT(N):GOTO 1820 ELSE GOTO

1800

1840 IF R7(G,INT(N))<1 THEN G3=INT(N):GOTO 1820 ELSE GOTO 1800

1850 IF INT(N)1 AND R(INT(N))<1 THEN J1=INT(N):GOTO

1820 ELSE GOTO 1800

1860 IF Z74 THEN GOSUB 1470:RETURN ELSE LPRINT:RETURN

1870 IF B7=1 THEN 1890

1880 IF B7=2 THEN 2000 ELSE GOTO 2110

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

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

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

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

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

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

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