Похожие работы на «Численное решение модельного уравнения диссипации, конвекции и кинетики»

Численное решение модельного уравнения диссипации, конвекции и кинетики
Математика, Численное решение модельного уравнения диссипации, конвекции и кинетики, Контрольная ... h*(SQR(X)*X+SQR(time)) + Bet*Alfa_2)/(Alfa_2-Alf*Alfa_2+h*Betta_2); If SelectFunction=2 then U_End:=(Alfa_2*h*(2*X*SQR(time)*time+10*time+SQR(SQR(time
... h*(SQR(X)*SQR(time)*time+10*X*time+SQR(SQR(time))*X) +Bet*Alfa_2)/(Alfa_2-Alf*Alfa_2+h*Betta_2); If SelectFunction=3 then U_End:=(Alfa_2*h*(SIN(X*time ...


Решение обратной задачи вихретокового контроля [нестрогое соответствие]
Физика, Решение обратной задачи вихретокового контроля , Диплом и связанное с ним ... nodal values of conductivity'); write(' si : ');for i:=1 to m do write(Rg[i] :6:3,' ');writeln; write(' max: ');for i:=1 to m do write(Gr[1,i]:6:3, ...
... approximation points number :',m:3,' * Time '); clock; writeln('*'); end; procedure done; {final message} begin Sound(222); Delay(111); Sound(444) ...


Исследование и моделирование с помощью компьютера электрических полей [нестрогое соответствие]
Физика, Исследование и моделирование с помощью компьютера электрических полей, Реферат ... Ekv[X+1,Y+1]:=True; Ekv[X-1,Y+1]:=True; end; If O=2 then begin Ekv[X-1,Y-1]:=True; Ekv[X-1,Y+1]:=True; end; If O=3 then begin Ekv[X+1,Y-1]:=True; Ekv
... MoveTo(X,Y); X:=Xt; Y:=Yt; Ekv[X,Y]:=True; Form1.Image1.Canvas.LineTo(X,Y); Inc(A); If A>1000 then A:=5; If (X>1000) or (Y>1000) or (X<-1000) or


Помехоустойчивое кодирование, распознавание символов [нестрогое соответствие]
Разное, Помехоустойчивое кодирование, распознавание символов, Курсовая ... пока можно делить...} begin inc(j); {...увеличиваем нижнюю границу} if (z[j] <> z[j - 1]) or (j > m - 1) then fl := false end; if((j - i) > 1) and (j ...
... изм.коорд.м.о.п.} if xt > xmax then xmax := xt; if y < ymin then ymin := y; if y > ymax then ymax := y end; if xt <> 0 then xt := xt + 1; {ув. текущий ...


Программа на Delphi [нестрогое соответствие]
Программирование и комп-ры, Программа на Delphi, Доклад ... else St2 else St3; эквивалентен оператор if L1 then begin if L2 then St1 else St2; end else St3; В этом операторе для повышения структурированности ...
... запись не прочитана, сразу выход из цикла} end; {Case} end; {цикла For} finally CloseFile(f1); {закрываем файл-источник} CloseFile(f2); {закрываем ...


Основные понятия алгоритмического языка [нестрогое соответствие]
Программирование и комп-ры, Основные понятия алгоритмического языка, Курсовая ... ВВЕДИ СТРОКУ '); readln(sC); AddComp(pTop,sC) until sC='END'; writeln('* ВЫВОД РЕЗУЛЬТАТОВ *'); repeat DelComp(pTop,sC); writeln(sC); until pTop = NIL ...
... pBegin,pCKey,pPreComp,bCond); pPreComp^.pNext:=pCKey^.pNext end; begin ClrScr; writeln(' ВВЕДИ СТРОКУ '); readln(sC); CreateLL(pBegin,pEnd,sC); repeat ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... If z>=90 Then Begin Writeln('5') Writeln(b1,"5"); End; else If z>=70 Then Begin Writeln('4') Writeln(b1,"4"); End; else If z>=40 Then Begin Writeln('3 ...
... TextColor(green); Write('Выход'); End; End; End; Procedure panel.right; {процедура сдвига окна выбора вправо} Begin Window(x,22,x+9,22); {закрашивание ...


Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей [нестрогое соответствие]
Программирование и комп-ры, Проектирование и разработка сетевых броузеров на основе теоретико-графовых моделей , Диплом и связанное с ним ... 0 для любой вершины x=/=x0, x=/=z. u ?Е+(х) u ?Е-(х) При этом поток не может "накапливаться" ни в одной вершине транспортной сети, кроме истока х0 и ...
... var s : String; begin Str(w:0,s); if Length(s) = 1 then s := '0' + s; LeadingZero := s; end; Begin GetTime(h,m,s,hund);TextColor(Green);GotoXY(x,y) ...


Разработка системы задач (алгоритмы-программы) по дискретной математике [нестрогое соответствие]
Программирование и комп-ры, Разработка системы задач (алгоритмы-программы) по дискретной математике , Работа Курсовая ... 2:0:3) Else Case ForMet of 1: write((time+1)/2:0:3); 2: write(time/2+1/4:0:3); 3: write(time/2:0:3,"+1/",(time mod 2+1)*3); End; WriteLn("Момент(а,ов) ...
... Solve(i,j:integer;Var t:integer); var m:integer; begin If i>j then Writeln('No') else begin m:=(i+j)div 2; Inc(b); If A[m]X then Solve(i,m-1,t) else ...


Создание текстового редактора в Turbo Pascal [нестрогое соответствие]
Программирование и комп-ры, Создание текстового редактора в Turbo Pascal , Работа Курсовая ... begin gotoxy(w,h); write(c2); end; gotoxy(w,h); write(c6); for h:=24 downto 1 do begin gotoxy(w,h); write(c4); end; gotoxy(w,h); write(c3); for w:=78 ...
... 2 to 24 do begin gotoxy(w,h); write(chr(179)); end; gotoxy(w,20); write(c8); gotoxy(59,25); write(c9); gotoxy(62,4); writeln('F1-Помошь'); gotoxy(62,5 ...