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

Лабораторная работа №9
Программирование и комп-ры, Лабораторная работа №9, Реферат ... var x0,x,xn,hx,q,z:real; i,a:integer; begin writeln('введите x0,hx,xn'); readln(x0,hx,xn); writeln(' значение x * значение z'); writeln(t,s); for a:=1 ...
... x:4:2,'^',p,z:4:1,p,'^'); x:=x+hx; z:=z+q ; until x>xn; end; writeln(t,s); for i:=1 to 5 do begin writeln(t:abs(i-6),abs(i-6):i); end; end. - p=" "; s ...


Отчет по практике по Turbo Pascal [нестрогое соответствие]
Программирование и комп-ры, Отчет по практике по Turbo Pascal , Работа Лабораторная ... исходные данные:'); readln(a,b,c,p,q,x); writeln('a=', a,', b=',b,', c=',c,', p=',p,', q=',q,', x=',x:6:3); m:=(a+b+c+p) div q; k:=m mod 9; if k=0 ...
... 1 to n do write(z[i]:4); writeln; writeln('Количество положительных элементов массива Z[1..n] равно',a:4); writeln('Количество отрицательных элементов ...


Лабараторная работа №8 [нестрогое соответствие]
Программирование и комп-ры, Лабараторная работа №8, Реферат ... CS} write('x0='); read(x0); write('hx='); read(hx); write('xn='); read(xn); writeln('x0=',x0,'hx=',hx,'xn=',xn); x:=x0; s:=0; repeat for k:=1 to 5 do ...
... k/n)*ln(a*x)); end; writeln('x=',x,'S=',s); x:=x+hx; until x>xn end.{CS} - x:=x0; s:=0; Ввод x0, hx, xn f:=f+exp(n*ln(a*b)); a:=a+hx; n=1(1)6 Конец ...


Разработка системы управления асинхронным двигателем с детальной разработкой программ при различных законах управления [нестрогое соответствие]
Технология, Разработка системы управления асинхронным двигателем с детальной разработкой программ при различных законах управления, ... GetMaxColor); for i:=1 to 4 do Writeln; Writeln(' Параметры АД:'); Writeln; Writeln(' As =',A1:6,' Ar =',A2:6); Writeln(' Ks =',K1:6,' Kr =',K2:6) ...
... анализа скэн - кода } procedure PressKeyAnalysis; var p:char; begin p:=chr(0); if KeyPressed=True then Case ReadKey of 'V','v':SolveDiagram; 'M','m' ...


Исследование и моделирование с помощью компьютера электрических полей [нестрогое соответствие]
Физика, Исследование и моделирование с помощью компьютера электрических полей, Реферат ... 2))); If Qc[X,Y]<0 then Q:=-Q; St:='X = '+IntToStr(X*25+13)+'('+IntToStr(X)+')'; Form1.StatusBar1.Panels.Items[0].Text:=St; St:='Y = '+IntToStr(Y*25+ ...
... X,Y:Real;B,K:Integer); Var U,Vx,Vy,Dx,Dy,Deg:Real; I,P,Num:Integer; Br,Alr:Boolean; Begin Num:=0; Br:=False; Alr:=False; SetLength(Last,0); While (X


Вычисление интеграла методом Ньютона-Котеса (теория и программа на Паскале) [нестрогое соответствие]
Кибернетика, Вычисление интеграла методом Ньютона-Котеса (теория и программа на Паскале), Курсовая ... bar(320,260,350,280); setfillstyle(1,12); bar(250,260,280,280); END; end; if (ea mod 2) =0 then begin outtextxy(255,267,'ДА'); outtextxy(325,267,'НЕТ' ...
... x) mod 6)=4; k:=abs(x) mod 6; end; end. = =МОДУЛЬ GRAPHIC= = unit graphic; interface uses k_unit,crt,graph; procedure hwg(ea:word); procedure graphik( ...


Решение обратной задачи вихретокового контроля [нестрогое соответствие]
Физика, Решение обратной задачи вихретокового контроля , Диплом и связанное с ним ... type : '); case approx of apSpline : begin writeln('SPLINE'); getSiFunction := siSpline; end; apExp : begin writeln('EXP'); getSiFunction := siExp; ...
... iLast-1; for i:=1 to iLast do begin func( 2*i*hh ,z ); deltaComp( tmp, z ); end; mulComp( tmp, 2, z ); deltaComp( y, z ); func( xmax, z ); deltaComp(y ...


Методы решения некорректно поставленных задач [нестрогое соответствие]
Математика, Методы решения некорректно поставленных задач, Курсовая ... задача сводится к минимизации функционала ?[ z ] = ||z||2 на множестве Q? векторов z, для которых выполняется условие || Аz - u || <=? +2?. 3.3.2. ...
... S:=0; for j:=1 to 3 do begin S:=S+A[i,j]*Z[j]; U1[i]:=S end end; q:=q+1; until AllRight; {-} clrscr; writeln('?аЁЎ"Ё°ҐЁҐ Є ­°а= "м­°=г аҐиҐЁо'); for


Программирование на языке Турбо Паскаль [нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие ... i<>num)and(p<>nil) do begin i:=i+1; p:=p^.next; end; if p<>nil then begin if p^.next<>nil then begin q:=p^.next^.next; dispose(p^.next); p^.next:=q; ...
... p: tItemPtr); var q: tItemPtr; begin if (p<>nil)and(p^.next<>p) then begin q:=p^.next^.next; dispose(p^.next); p^.next:=q; q^.prev:=p; end; end; ...


Математическое моделирование биполярных транзисторов типа p-n-p [нестрогое соответствие]
Радиоэлектроника, Математическое моделирование биполярных транзисторов типа p-n-p , Работа Курсовая ... extended 3.4 e- 4932..1.1e4932} an,key:char; function st(a:extended; b:extended):extended; begin if b<0 then begin if (-1*b * ln(a)) < 1.1356523e4 ...
... Eabers-Mol whith 1 SIDI'); writeln; writeln(' Main menu'); writeln; writeln('1: Input parameters of transistor'); writeln('2: Input current parameters ...