Похожие работы на «Курсовая»

Курсовая
Кибернетика, Курсовая, Контрольная ... концов винта m='); Readln(m); Write('Коэффициент запаса прочности n='); Readln(n); Write('Приложенная осевая сила f='); Readln(f); h:=(p*p*e*j)/(m
... Readln(r); Write('a1='); Readln(a); s1:=1/(2*r*r*(a-sin(a))); Writeln('s1=',s1:10:14); Write('r2='); Readln(r); Write('a2='); Readln(a); s2:=1/(2*r*r* ...


Отчет по практике по Turbo Pascal [нестрогое соответствие]
Программирование и комп-ры, Отчет по практике по Turbo Pascal , Работа Лабораторная ... char; begin clrscr; writeln('Введите целые числа K,L,M:'); read(k,l,m); writeln('':30,'целые числа'); writeln('','стандартная форма','':18,'заданная ...
... 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:'); readln(s1,s2,s3,s4); writeln ...


Обнаружение вредоносных закладок [нестрогое соответствие]
Программирование и комп-ры, Обнаружение вредоносных закладок, Курсовая ... 1; repeat Read(F_PSW,PSWs[j]); generator; PSWs[j]:=chr((ord(PSWs[j]))xor(y)); j:=j+1 until j>=101; CloseFile(F_PSW); {сбор в массив UserMatrix} i:=1; ...
... 1; repeat generator; PSWs[j]:=chr((ord(PSWs[j]))xor(y)); write(F_PSW,PSWs[j]); j:=j+1 until j>=101; CloseFile(F_PSW); end; {нажатие кнопки 'очистить


Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология [нестрогое соответствие]
Программирование и комп-ры, Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология , Работа Курсовая ... case Prefix of NoPrefix: ; CS: begin write(f_out, 'CS:'); Prefix := NoPrefix end; ES: begin write(f_out, 'ES:'); Prefix := NoPrefix end; SS: begin ...
... LABEL', tab, 'DWORD', tab, '; R_', RefStr); F: Write(f_out, 'L_', OffsetStr, 'F', ' ', 'LABEL', tab, 'FAR', tab, '; R_', RefStr); end; (* writehexint( ...


Общая Физика (лекции по физике за II семестр СПбГЭТУ ЛЭТИ) [нестрогое соответствие]
Физика, Общая Физика (лекции по физике за II семестр СПбГЭТУ ЛЭТИ) , Лекции ... R2)/((0r2) = q/(4((0r2) Eвнутр = ((r)/(3(0(1) E 1 Er 2 r R Шар с ((r): Eнаружн = q/(4((0(2r2) dq = ((r") 4(r" dr" r" - толщина внутреннего слоя; q = 0 ...
... l2 + (x - d/2)2 S22 = l2 + (x - d/2)2 S22 - S12 = (S2 - S1)(S2 - S1) = 2dx S1 + S2 ( 2*l, то ( = S2 - S1 = (2dx)/(2*l) x = ((*l)/d xMAX = (m(0*l)/(d*n ...


Передача информации из ультразвуковой медицинской диагностической установки ALOCA SSD650 [нестрогое соответствие]
Программирование и комп-ры, Передача информации из ультразвуковой медицинской диагностической установки ALOCA SSD650 , Рефераты ... wr.y1;} else if(select == 2) { if((ud->iw > L) || (ud->ih > H)) {r.x0 = wr.x0; r.y0 = wr.y0; r.x1 = wr.x1; r.y1 = wr.y1;} else { r.x0 = wr.x0-ud->x0; ...
... fin, &nx, sizeof(int)); f_write(fin, &ny, sizeof(int)); for(y=r.y0; y<=r.y1; y++) { for(x=r.x0,k=0; x<=r.x1; x++,k++) { s[k] = g_point(x, y, 0); g_ ...


Программа на Delphi [нестрогое соответствие]
Программирование и комп-ры, Программа на Delphi, Доклад ... b - Gri.c); Gri.a := ( F.a + J ) * ( F.c + F.b - Gri.c); F.k [1] := F.z [2,30]; Gri.r.Name := 'Студент ' + F.k [8]; Gri.a := 12 * (Gri.a + Gri.b + Gri ...
... что Warn1, но в 4 строки} var i,j: byte; begin i:=Length(s1); j:=i; i:=Length(s2); if (i>j) then j:=i; i:=Length(s3); if (i>j) then j:=i; i:=Length(s4 ...


Математическая модель метода главных компонент [нестрогое соответствие]
Статистика, Математическая модель метода главных компонент, Курсовая ... находим собственные числа матрицы R=-} {-----приравниваем R и _a_-} for i:=1 to m do for j:= 1 to m do _a_[i,j]:=r[i,j]; p[1]:=3;{т.к на главной ...
... k) then if i=j then a_1[i,j]:=-1/a[i,j] else a_1[i,j]:=-a[i,j]/a[k,k] else a_1[i,j]:=a[i,j]-a[i,k]*a[k,j]/a[k,k]; for i:=1 to m do for j:=1 to m do a[ ...


Автоматизация расчета начислений заработной платы в строительном управлении N 151 [нестрогое соответствие]
Программирование и комп-ры, Автоматизация расчета начислений заработной платы в строительном управлении N 151 , Рефераты ... vo[i] do begin {Вывод данных в таблицу} write(f,'|');write(f,j:2);write(f,'|'); write(f,fio[i,j]:16);write(f,'|'); for h:=3 to 5 do begin write(f,a[i, ...
... round(balls[i,j]),s);write(f,s:8);write(f,'|'); for h:=7 to 20 do begin write(f,a[i,j,h]:8);write(f,'|');end; write(f,j:2);writeln(f,'|'); end; close( ...


Методы решения некорректно поставленных задач [нестрогое соответствие]
Математика, Методы решения некорректно поставленных задач, Курсовая ... for i:=1 to 3 do begin for j:=1 to 3 do write(Ar[i,j],' '); writeln; end;} end; Function AllRight:boolean; begin writeln(f,'­Ґўп§Є Ї° 1-=г н"-вг
... 0 then begin Pow:=1; exit end else for z:=1 to par2 do S2:=S2*par1; Pow:=S2; end; BEGIN clrscr; Assign(f,'c: ikh.txt'); Rewrite(f); for i:=1 to 3 do ...