Похожие работы на «Контрольная по информатике»
Контрольная по информатике
Программирование и комп-ры, Контрольная по информатике, Контрольная
... VAR_K,M,N:INTEGER; S,P:REAL; BEGIN WRITELN("Введите m и n"); READLN(M,N); S:=0; FOR_K:=M_TO_N_DO BEGIN P:=(SQR(K)+5)/(SQR(K)*K+K); S:=S+P; END; WRITE( ...
... I:=1_TO_K_DO F:=F*I; FACT:=F; 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. ...
Нейтрофилы
Медицина, Нейтрофилы , Рефераты
... do begin z:=sqrt((x[j]-x[j-1])*(x[j]-x[j-1])+(y[j]-y[j-1])*(y[j]-y[j-1])); shift[i]:=shift[i]+z; write(f,shift[i]:9:2); end; writeln(f); until j=100; ...
... j:=j+1; write(f,ln(j):10:2); for i:=1 to 30 do with cell[i] do begin loc_calc[i]:=0; for k:=j+1 to 100 do begin z:=(x[k]-x[k-j])*(x[k]-x[k-j])+(y[k
Программирование на языке Турбо Паскаль
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие
... c: tVec3D); begin c.x:=a.x-b.x; c.y:=a.y-b.y; c.z:=a.z-b.z; end; procedure VecMultNum(k: real; a: tVec3D; var b: tVec3D); begin b.x:=k*a.x; b.y:=k*a
... 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; ...
Основные понятия алгоритмического языка
Программирование и комп-ры, Основные понятия алгоритмического языка, Курсовая
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z 2) _ подчеркивание 3) 10 цифр:
Program TRIANG; var A, B, C, S, P: Real; begin Read(A,B,C); WriteLn(A,B,C); P:=(A+B+C)/2; S:=Sqrt(P*(P-A)*(P-B)*(P-C)); WriteLn('S=',S:8:3) end.
Помехоустойчивое кодирование, распознавание символов
Разное, Помехоустойчивое кодирование, распознавание символов, Курсовая
... to m do if p[j3] >= tmp then begin tmp := p[j3]; {максимум на i шаге} s:=j3 {его номер} end; p[s] := p[i3]; {обмен} p[i3] := tmp end; end; procedure ...
... делить...} begin inc(j); {...увеличиваем нижнюю границу} if (z[j] <> z[j - 1]) or (j > m - 1) then fl := false end; if((j - i) > 1) and (j < m) {если ...
Программа на Delphi
Программирование и комп-ры, Программа на Delphi, Доклад
... i, j: Integer; Begin For i:= 1 to n do {блок задания элементов матриц Q1, Q2} For j:= 1 to n do Begin Q1[i, j]:=i + j; Q2[i, j]:=i - j; End; MatrMult
... h:=InputStr('Введите пароль ...',St,1); if h then b:= (St=RealParol); if not b and h then Warn1('Ошибка'); Until b or (i=3) or (not h); Result:=b; end ...
Разработка системы управления асинхронным двигателем с детальной разработкой программ при различных законах управления
Технология, Разработка системы управления асинхронным двигателем с детальной разработкой программ при различных законах управления,
... do begin f1[k]:=f[k]; x[k]:=h[k]+f1[k]*dt/2; end; Right_Part; for k:=1 to 5 do begin f2[k]:=f[k]; x[k]:=h[k]+f2[k]*dt/2; end; Right_Part; for k:=1 to ...
... GetVectorString(ST11));Writeln(Result,GetVectorString(ST12)); Write(Result,GetVectorString(ST13));Writeln(Result,GetVectorString(ST21)); Write(Result, ...
Методы решения некорректно поставленных задач
Математика, Методы решения некорректно поставленных задач, Курсовая
... do for j:=1 to 3 do Ar[j,i]:=Koef(i,j)*AlAdd(i,j)/DetCount; { for i:=1 to 3 do begin for j:=1 to 3 do write(Ar[i,j],' '); writeln; end;} end; Function ...
... j:=1 to 3 do begin S:=S+At[i,j]*U[j]; B[i]:=S end; end; {-} for i:=1 to 3 do for j:=1 to 3 do begin S:=0; for k:=1 to 3 do begin S:=S+At[i,k]*A[k,j] ...
Компьютерное моделирование в курсе Электричество и Магнетизм (WinWord, ТХТ, ЕХЕ)
Физика, Компьютерное моделирование в курсе Электричество и Магнетизм (WinWord, ТХТ, ЕХЕ) , Диплом и связанное с ним
... 0+k 44 0)/6+O(h 55 0), (2.3.1) где k 41 0=hf(x 40 0,y 40 0), k 42 0=hf(x 40 0+h/2,y 40 0+k 41 0/2), k 43 0=hf(x 40 0+h/2,y 40 0+k 42 0/2), k 44 0=hf(x ...
... END; END; FOR I:=1 TO N DO Y[I]:=Y1[I]; END; {-} BEGIN REPET WRITE('P,X,X9,H,Y[1],Y[2]?'); READLN(P,X,X9,H,Y[1],Y[2]); WHILE (X0.0) DO BEGIN RP4(2,X,H ...
Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе
[нестрогое соответствие]
Радиоэлектроника, Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе , Работа Курсовая
writeln; for j:=1 to m do write(STM[i,j]:3); end; end; procedure sea; begin writeln; write(' Для прлолжения программы нажмите ENTER . '); readln; end; ...
... i;g:=j;i:=n;j:=m end;j:=j+1 end;i:=i+1 end; if p>s then for j:=1 to m do begin PR[j]:=STM[s,j]; STM[s,j]:=STM[p,j]; STM[p,j]:=PR[j] end; if g<>s then ...
