Похожие работы на «Лабораторная работа №7»

Лабораторная работа №7
Программирование и комп-ры, Лабораторная работа №7, Реферат ... writeln("Подкоренное число x=");read(x); k:=0; y:=x; repeat {начало цикла} d:=(x/exp((n-1)*ln(y))-y)/n; k:=k+1; y:=y+d; until abs(d)<=eps {Конец цикла ...
... программы: eps=5 n=6 x=7 Корень равен=5,8334027489Е+00 Число итераций=1 - y:=x Ввод eps, n, x k:=0 y:=y+d k:=k+1 [pic] |d|<=eps Конец Вывод y, k ...


Вычисление определённых интегралов [нестрогое соответствие]
Программирование и комп-ры, Вычисление определённых интегралов , Работа Курсовая с=1.00 d=2.60 равен 29.12609 3 итераций с=1.05 d=2.40 равен 24.19102 3 итераций с=1.05 d=2.50 равен 27.60541 3 итераций с=1.05 d=2.60 равен 31.52694 3 ...
... точностью 1.0E-0003 при: с=3.00 d=0.50 равен 8.40102 2 итераций с=3.00 d=0.40 равен 5.52503 2 итераций с=3.00 d=0.85 равен 17.78460 2 итераций с=3.20 ...


Метод хорд [нестрогое соответствие]
Математика, Метод хорд, Курсовая ... x0/4-dx); Until abs(dy2/(2*dx))1; utoch:=k; end; - {Процедура определения наименьшего значения производной на заданном промежутке} Procedure minimum(a ...
... х= , x:6:utoch(eps) minimum(a,b,eps,min) a:=a+eps b:=b-eps chord(a,b,eps,min) Уточнение корня методом хорд Вывод значения x с количеством точек после ...


Метод половинного деления [нестрогое соответствие]
Программирование и комп-ры, Метод половинного деления, Курсовая ... уроков 1 - 5. |Решение задач, имеющих в своей структуре один | | | |цикл. | |1|Лабораторно-практическая |Решение на ПК задач, имеющих в своем составе ...
... рис.1.): (рис.1.) (метод половинного деления) INPUT "Ведите погрешность"; e a = 0: b = 2: k = 0: d = 0 start: z = 2.2 * a - 2 ^ a div: x = (a + b) / 2 ...


Исследование RC-генератора синусоидальных колебаний [нестрогое соответствие]
Математика, Исследование RC-генератора синусоидальных колебаний, Курсовая ... T,X,F,N,IER) DIMENSION X(N),F(N),D(3,1000),C(300) COMMON K,L,KP,D,C IF(T.LT.31.4)THEN K=K+1 D(1,K)=T D(2,K)=X(1) D(3,K)=X(2) ENDIF IF(X(1).LT.0.AND.KP ...
DIMENSION T(200),U2(200),F(200),A(9),D(2,9) READ*,M,L,(T(K),U2(K),X,Y,K=1,M) DO N=1,9 DO K=1,M,L F(K)=U2(K)*SIN(N*0.405366*T(K)) ENDDO S=0 DO K=1,M-1, ...


Решение обратной задачи вихретокового контроля [нестрогое соответствие]
Физика, Решение обратной задачи вихретокового контроля , Диплом и связанное с ним ... A[i,1]:=-1; if i>n2 then begin A[i,1]:=0; for k:=2 to mp1 do if i-n2=k-1 then A[i,k]:=1 else A[i,k]:=0; end; for k:=mp2 to m21 do if k-mp1=i then A[i
... 1 to n2 do if B[k1]>B[k] then k1:=k; for k:=1 to mp1 do A[k1,k]:=-A[k1,k]; A[k1,mCur+1+k1]:=0; B[k1]:=-B[k1]; for i:=1 to n2 do if i<>k1 then begin B[ ...


Программирование на языке Турбо Паскаль [нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие ... квадратного уравнения. program SqEquation; var a,b,c,d: real; begin writeln; write('Введите коэффициенты a,b,c квадратного уравнения : '); readln(a,b, ...
... begin m:=m+1; d:=1; end else d:=d+1; end; wd:=tWeekDay((ord(wd)+1) mod 7); until m=13; {Выводим на экран:} repeat write('Номер месяца > '); readln(m) ...


Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x [нестрогое соответствие]
Программирование и комп-ры, Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x , Диплом и связанное с ним ... ПРОГРАММИРОВАНИЕ ОЗВУЧЕННЫХ ДИНАМИЧЕСКИХ СЦЕН'); writeln; writeln; writeln(' ОЦЕНКА РАБОТЫ ЗА СЕАНС'); GotoXY(64,6); writeln(ball3[1]); GoToXY(75,6) ...
... 30)); Mno:array[1..5] of PointType=((X:460;Y:170),(X:590;Y:230), (X:590;Y:260),(X:430;Y:260),(X:460;Y:170)); {Константы для формирование иллюстраций к ...


Общие сведения о языке программирования Qbasic [нестрогое соответствие]
Программирование и комп-ры, Общие сведения о языке программирования Qbasic, Лекция выражения, записанные по правилам Бейсика, в традиционной математической форме: а) А+B/ (C+D) - ( A+B) / C+D б) A*B/ (C+D) - (C - D)/ B*(A+B) в) 1+SQR ...
... P THEN GOTO 50 20 NEXT y P=A(y):K=y NEXT i 50 NEXT y FOR i=0 TO 9 A(K)=A(i):A(i)=P PRINT А(i) NEXT i NEXT i PRINT "Отсортированные элементы" FOR i=0 ...


Контрольная по информатике [нестрогое соответствие]
Программирование и комп-ры, Контрольная по информатике, Контрольная PROGRAM_LR5; CONST_N1=100; VAR_K,N:INTEGER; X:ARRAY[1..N1]_OF_REAL; BEGIN WRITE("Введите количество чисел в последовательности n="); READLN(N) ...
... END; BEGIN WRITE("Введите m и n"); READLN(M,N); Y:=(FACT(N)- FACT(M))/(2* FACT(N)- FACT(M+1)); WRITE("Y=",Y:10:4); END. - [pic] Вывод x Конец Ввод a, ...