Математическое моделирование вагонов в расчетах на ЭВМ - 7 стр.

UptoLike

ВУЗ: 

СамГУПС | Самара

Составители: 

Рубрика: 

7
7 INPUT "Ввод пpавой гpаницы отpезка В "; B
8 INPUT "Ввод заданной точности Е "; E
9 INPUT "Ввод константы m "; m
10 INPUT "Ввод константы p "; p
12 INPUT "Ввод константы q1 "; q1
14 INPUT "Ввод константы q2 "; q2
16 INPUT "Ввод константы N1 "; N1
20 Ik = INT(LOG((B - A) / E) / LOG(2) + 2.5)
25 I = 0: D = 1
30 C = 1
35 DEF FNY0 (X) = p + q1 * X - m * X
40 DEF FNY00 (X) = p + (q1 - q2 * (X - N1) ^ .1) * X - m * X
50 IF A <= N1 THEN Y1 = (FNY0(A)) * C ELSE Y1 = (FNY00(A)) * C
60 IF Y1 >= 0 THEN 90
70 C = -1
80 GOTO 50
90 I = I + 1
100 XI = (A + B) / 2
110 IF XI <= N1 THEN YI = C * (FNY0(XI)) ELSE YI = C * (FNY00(XI))
120 IF YI >= 0 THEN 140
130 B = XI: GOTO 145
140 A = XI
145 IF A <> 0 THEN D = ABS((B - A) / A) ELSE D = ABS((B - A) / B)
150 IF D > E THEN 180
160 PRINT "X="; INT(XI + .5), "I="; I, "Ik="; Ik
170 GOTO 200
180 IF I < Ik THEN 90
190 PRINT "I="; I, "Ik="; Ik
200 END
Порядок работы
1. Находясь в текстовом редакторе Word 2000, создать новый
документ. Сразу же сохранить новый документ в свою личную
папку «D:\Заочн-5В\Фамилия…» под именем
«Отчет-1(Фамилия).doc».
2. С помощью пункта меню «Окно» переключиться в документ
«Лабораторный практикум по курсу MМ.doc». Скопировать
начало текста до строки «Краткая теория» в буфер обмена,
вызвав его
с помощью пункта меню «Вид» ⏐ «Панели
инструментов» ⏐ «Буфер обмена», скопировать в буфер обмена
все пункты «Порядка работы», переключиться обратно в

Страницы