Технологія конструкційних матеріалів і матеріалознавство: Практикум: Навч.посібник
Внимание! эта страница распознана автоматически, поэтому мы не гарантируем, что она не содержит ошибок. Для того, чтобы увидеть оригинал, Вам необходимо
Если Вы являетесь автором данной книги и её распространение ущемляет Ваши авторские права или если Вы хотите внести изменения в данный документ или опубликовать новую книгу свяжитесь с нами по по .
Страницы: 1 2 3... 178 179 180 181 182 183 184... 212 213 214
|
|
|
|
® KOMCMTAP limp ОСУЛКЛЕИН" ПОКАЗЫИКА Степеня 2 ^Початок ^ -2 I-б-С Продовження рис, 6,7,1, Схема алгоритму розв 'язування задачі Рисб, 7,2, Схема алгоритму підпрограми алгоритм програми для визначення сили різання 10 PRINT "ЧИ БУДЕТЕ РОЗДРУКОВУВАТИ РЕЗУЛЬТАТИ?ТАК-1 НІ-0" 20 INPUT F ЗО REM СИЛА РІЗАННЯ 40 REM ОБЧИСЛЕННЯ ПОКАЗНИКА СТЕПЕНЯ В1 50 REM Т ГЛИБИНА РІЗАННЯ, F СИЛА РІЗАННЯ 60 DIM Т(10), Р(10) 70 S$ = "ВИ ВВЕЛИ ВІД'ЄМНЕ ЧИСЛО, ПОВТОРІТЬ ВВІД" 80 PRINT "ЧИ ПОТРІБНА ВАМ КОНСУЛЬТАЦІЯ?: ТАК-1 НІ-0" 90 INPUT А 100 IFA-0 THEN 230 110 PRINT "ПРИ ПОЯВІ НА ДИСПЛЕЇ ТЕКСТУ" 120 PRINT "КІЛЬКІСТЬ ПАР ЗНАЧЕНЬ?" 130 PRINT "НАБЕРІТЬ НА КЛАВІАТУРІ КІЛЬКІСТЬ ЕКСПЕРИМЕН-ТАЛЬНРІХ ТОЧОК" 140 PRINT "ДЛЯ ГЛИБИНИ РІЗАННЯ" 150 PRINT "ПРИ ПОЯВІ НА ДИСПЛЕЇ ПОВІДОМЛЕННЯ" 160 PRINT "Т(1), F(l)?" 170 PRINT "НАБЕРІТЬ НА КЛАВІАТУРІ В РЯДОК ЗНАЧЕННЯ ГЛИБИНИ РІЗАННЯ" 358 180 PRINT "І ДАЛІ ПІСЛЯ КОМИ ЗНАЧЕННЯ СИЛИ РІЗАННЯ ДЛЯ 1-ОЇ ТОЧКИ" 190 PRINT "ПРИ ПОЯВІ НА ДИСПЛЕЇ ПОВІДОМЛЕННЯ" 200 PRINT "Т(2), Р(2) ?" 210 PRINT "НАБЕРІТЬ НА КЛАВІАТУРІ В РЯДОК ЗНАЧЕННЯ ГЛИБИНИ РІЗАННЯ" 220 PRINT "І ДАЛІ ПІСЛЯ КОМИ ЗНАЧЕННЯ СИЛИ РІЗАННЯ ДЛЯ 2-ОЇ ТОЧКИ І Т.Д." 230 PRINT "КІЛЬКІСТЬ ПАР ЗНАЧЕНЬ": INPUT N 240 FOR 1=1 TON 250 PRINT "Т("; I; "), F("; I; ")" : INPUT T(I), F(I) 260 IF (T(I) = 0 OR F(I) = 0) THEN PRINT S$ : GO TO 250 270 NEXT I 280 FOR 1=1 TO N : PRINT "T("; I; ")=";T(I), "F("; I; ")="; F(I): NEXT I 290 PRINT "ПРАВИЛЬНО ? ; TAK-1, HI-0" 300 INPUT Fl : IF F1=0 GO TO 230 310IFF=0 GO TO 350 320 LPRINT "КІЛЬКІСТЬ ПАР ЗНАЧЕНЬ^"; N 330 FOR 1=1 TO N : LPRINT "T("; I; ")="; T(I), "F("; I; ")="; F(I) 340 NEXT I 350 FOR 1=1 TO N : Y(I)=LOG(F(I))/LOG(10): X(I)=LOG(T(I))/LOG(10) 360 NEXT I : GOSUB 1410 370A1 =D2/D1 :B1 =D3/D1 380 IFF=0 GO TO 410 390 LPRINT "РІВНЯННЯ РЕГРЕСІЇ" 400 LPRINT "Y="; A1; "+"; В1; "*X" : GO TO 420 410 PRINT "РІВНЯШЯ РЕГРЕСІЇ" : PRINT "Y = Al; "+"; Bl; "*X" 420 REM ОБЧИСЛЕННЯ ПОКАЗНЖА СТЕПЕНЯ В2 430 REM МАСРІВИ S-ПОДАЧА, F-СИЛА РІЗАННЯ 440 DIM S(10) 450 PRINT "ЧИ ПОТРІБНА ВАМ КОНСУЛЬТАЦЕЯ ? : ТАК-1, НІ-0" 460 INPUT А 470 IF А=0 THEN 560 480 PRINT "ПРИ ПОЯВІ НА ДИСПЛЕЇ ТЕКСТУ" 490 PRINT "КІЛЬКІСТЬ ПАР ЗНАЧЕНЬ ?" 500 PRINT НАБЕРІТЬ НА КЛАВІАТУРІ КІЛЬКІСТЬ ЕКСПЕРИМЕНТАЛЬНИХ ТОЧОК" 510 PRINT "ДЛЯ ПОДАЧІ" 520 PRINT "ПРИ ПОЯВІ НА ДИСПЛЕЇ ПОВІДОМЛЕННЯ" 530 PRINT "S(l), F(l)?" 540 PRINT "НАБЕРІТЬ НА КЛАВІАТУРІ В РЯДОК ЗНАЧЕННЯ ПОДАЧІ" 550 PRINT "І ДАЛІ ПІСЛЯ КОМИ ЗНАЧЕННЯ СИЛИ РІЗАННЯ ДЛЯ 1-ОЇ ТОЧКИ" 560 PRINT "КІЛЬКІСТЬ ПАР ЗНАЧЕНЬ": INPUT N 570 FOR 1=1 TON 359 5.-0 ; 5,-0; Sf-0
Карта
|
|
|
|
|
|
|
|
Страницы: 1 2 3... 178 179 180 181 182 183 184... 212 213 214
Внимание! эта страница распознана автоматически, поэтому мы не гарантируем, что она не содержит ошибок. Для того, чтобы увидеть оригинал, Вам необходимо скачать книгу |
