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

Лабараторная работа №8
Программирование и комп-ры, Лабараторная работа №8, Реферат ... x,x0,hx,xn,c,q,s:real; k,n:byte; begin{CS} write('x0='); read(x0); write('hx='); read(hx); write('xn='); read(xn); writeln('x0=',x0,'hx=',hx,'xn=',xn) ...
... begin s:=s+exp((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; ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... 30,5,50,10); TextBackGround(black); clrscr; For i:=1 to d do Begin Writeln(c); Window(10,10,53,20); {окно вопроса} TextBackGround(lightgray); clrscr; ...
... применить и цикл с параметром от 0 до 2} Read(c,b); Write(b); End; Readln(c); Writeln; while not EOLN(c) do Begin {вывод редактируемого вопроса на ...


Контрольная по информатике [нестрогое соответствие]
Программирование и комп-ры, Контрольная по информатике, Контрольная PROGRAM_LR5; CONST_N1=100; VAR_K,N:INTEGER; X:ARRAY[1..N1]_OF_REAL; BEGIN WRITE("Введите количество чисел в последовательности n="); READLN(N) ...
... 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, b, d, p, g Начало [pic] ...


Решение систем дифференциальных уравнений методом Рунге-Куты 4 порядка [нестрогое соответствие]
Математика, Решение систем дифференциальных уравнений методом Рунге-Куты 4 порядка , Работа Курсовая ... Ca,% ° Cb,% ° Cc,% °SUM° dCa ° dCb ° dCc °'); WRITELN(f2,'_'); WRITELN(' - done.'); END; PROCEDURE RUN; BEGIN X:=Xn; dX:=0.05; REPEAT IF (ABS(x-p)Xk) ...
... 2]*k4; dC[3]:=C[1]*k1-C[3]*k2; END; PROCEDURE STROKA; BEGIN WRITE(f2,'°',x:4:1,'°',c[1]:7:3,'°',c[2]:7:3,'°',c[3]:7:3,'°'); WRITE(f2,sum:3:0,'°',dc[1] ...


Отчет по практике по Turbo Pascal [нестрогое соответствие]
Программирование и комп-ры, Отчет по практике по Turbo Pascal , Работа Лабораторная ... форма','':18,'заданная ширина поля'); writeln('',k,' ',l,' ',m,'':30,'K=',k:3,' L=',l:3,' M=',m:3); writeln; writeln('':25,'Введите вещественные числа ...
... заданная ширина поля'); writeln('A=',a:5:2,' B=',b:5:2,' C=',c:5:2,' D=',d:5:2,' E=',e:5:2,' F=',f:5:2); writeln; writeln('Введите символы S1,S2,S3,S4 ...


Вычисление элементарных функций [нестрогое соответствие]
Радиоэлектроника, Вычисление элементарных функций, Курсовая ... характерной для данных методов, может использоваться следующая формула: [pic]F(x)=F(xs+( xn-s)= F(xs)+Ф(( xn-s, xs), где xs - s-разрядный код старшей ...
... Mf '(x)(M(x) Подставляя значения полученные выше получим F(X) = F(Xs) + 2-5 (( Xn-s(F'(Xs) где F(X)=f(x)(Mf(x), F(Xs)=f(xs)(Mf(xs), ( Xn-s= ( xn-s(M(x ...


10 задач с решениями программированием на Паскале [нестрогое соответствие]
Программирование и комп-ры, 10 задач с решениями программированием на Паскале , Задачи ... фаил будет выглядеть так:'); reset(f); while not eof(f) do begin readln(f,s); writeln(s) end; close(f); end; begin writeln('введите кол-во строк в ...
... fi); var a:integer; begin reset(f); while not eof(f) do begin read(f,a);write(a:4);end; end; begin writeln('Задайте кол-во компонентов файла');readln


Математическое моделирование биполярных транзисторов типа p-n-p [нестрогое соответствие]
Радиоэлектроника, Математическое моделирование биполярных транзисторов типа p-n-p , Работа Курсовая ... 39,row+15); write(MJC); gotoxy(col+3,row+16); write('[VJC] '); gotoxy(col+39,row+16); write(VJC); gotoxy(col+3,row+17); write('[MJE] '); gotoxy(col+39 ...
... Eabers-Mol whith 1 SIDI'); writeln; writeln(' Main menu'); writeln; writeln('1: Input parameters of transistor'); writeln('2: Input current parameters ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... getx; y1:=tg[k].gety; at1:=tg[k].daiage; ct1:=tg[k].daizwet; tg[k].done; tg[k-1].init(x1,y1,at1,ct1); tg[k-1].show; until k>=g; TG[G].INIT(0,0,0,0); G ...
... e); for i:=(x1+1) to (x2-1) do write(f); write(b); for i:=(y1+1) to (y2-1) do begin gotoxy(x1,i); write(a); gotoxy(x2,i); write(a); end; gotoxy(x1,y2) ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... травоядных ',s); s:=colword(ch); write(' Цвет хищников ',s); end; {*} procedure Gmenu; begin fon(black); clrscr; colorwind(1,1,80,4,black,darkgray) ...
... e); for i:=(x1+1) to (x2-1) do write(f); write(b); for i:=(y1+1) to (y2-1) do begin gotoxy(x1,i); write(a); gotoxy(x2,i); write(a); end; gotoxy(x1,y2) ...