Похожие работы на «Платон и Аристотель»

Платон и Аристотель
Философия, Платон и Аристотель, Реферат ... begin clrscr; writeln ('Введите матрицу'); for i:=1 to n do for y:=1 to n do begin readln(c[i,y]); end; max1:=c[1,1]; ymax1:=1; for i:=1 to n do begin
... max1:8:2); for y:=1 to n do begin writeln(c[ymax1,y]:8:2); end; end else writeln(max2:8:2); for y:=1 to n do begin writeln(c[ymax2,y]:8:2); end; end.


Лабораторные работы по вычислительной математике [нестрогое соответствие]
Программирование и комп-ры, Лабораторные работы по вычислительной математике, Контрольная ... byte;b:vector;nb:byte;var c:vector;var nc:byte); var i,j:byte; s:real; begin if na=nb then begin nc:=nb; for i:=1 to nc do begin s:=0; for j:=1 to nc ...
... i:=1 to n do begin s:=0; for k:=1 to i-1 do s:=s+t[i,k]*y[k]; y[i]:=(b[i]-s)/t[i,i]; end; end; procedure GetX(t:matrix;y:vector;var x:vector;n:byte) ...


Программная система обработки и анализа изображений [нестрогое соответствие]
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая ... tangs.000'); Rewrite(OutF); { Сканируем все изображение } with Image.Canvas do begin for y := yStart+1 to yEnd-1 do begin for x := xStart+1 to xEnd-1 ...
... TComplex.Create(0,0); for y := yStart to yEnd do begin for x := xStart to xEnd do begin C.Assign(x,y); Z.Mul(Z0); Z.Plus(C); if (Z.Re < 2) and (Z.Im


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... if (mode mod 2)=1 then begin Add(mode,S,a); Inc(mode) end; if (mode=2) then for j:=1 to 12 do if (mthe[j,1]=upcase(st[i])) and (mthe[j,2]=upcase(st[i
... st[i])-ord('0'); if ((mode mod 2)=0) and (c>=0) and (c<=9) then begin S:=c; inc(mode) end else if (c<=9) and (c>=0) then S:=S*10+c else if mode=1 then ...


Лабораторные работы по вычислительной математике [нестрогое соответствие]
Программирование и комп-ры, Лабораторные работы по вычислительной математике, Контрольная ... i:=1 to n do begin writeln('Введите ',i,'-ую строку матрицы '); InputVector(a[i],n) end; end; Procedure OutputVector(var a:vector;n:byte); var i:byte; ...
... b[i,j]; c[k,j]:=s end; end else begin writeln('Неверные размеры матриц !!! '); halt end; end; Procedure SubMatr(a:matrix;var b:matrix;n:byte); var i,j ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... 2); x:=0; if t>0 then begin FOR I:=1 TO T DO begin J:=RANDOM(TP); x:=x+j; end; for y:=g+1 to g+1+x do begin tg[y].init((random(630)+5),(random(462)+18 ...
... J:=RANDOM(hP); x:=x+j; end; for y:=m+1 to m+1+x do begin hr[y].init((random(630)+5),(random(462)+18),0,ch); hr[y].show; end; m:=m+1+x; if (m>1000) or ...


10 задач с решениями программированием на Паскале [нестрогое соответствие]
Программирование и комп-ры, 10 задач с решениями программированием на Паскале , Задачи ... moped(m,n:integer;var y:m); var i,j,c,k:integer; X:mas; begin k:=0; writeln('введите величину С='); readln(c); for j:=1 to n do x[j]:=0; for j:=1 to n ...
... reset(f); while not eof(f) do begin readln(f,s); writeln(s) end; close(f); end; begin writeln('введите кол-во строк в файле'); readln(k); sozd(f1,k) ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... t:=(t div 2); x:=0; if t>0 then begin FOR I:=1 TO T DO begin J:=RANDOM(TP); x:=x+j; end; for y:=g+1 to g+1+x do begin -12- tg[y].init((random(630)+5) ...
... J:=RANDOM(hP); x:=x+j; end; for y:=m+1 to m+1+x do begin hr[y].init((random(630)+5),(random(462)+18),0,ch); hr[y].show; end; m:=m+1+x; if (m>1000) or ...


Исследование и моделирование с помощью компьютера электрических полей [нестрогое соответствие]
Физика, Исследование и моделирование с помощью компьютера электрических полей, Реферат ... B,K:Integer); Procedure ElTrackForMoving(X,Y:Real;K:Integer;Stop:Real); Procedure ElRefresh; Procedure Prepare; Procedure Stop; Procedure Redactor; ...
... 1].X:=X-1; En[EnNow+1].Y:=Y+1; end; If O=3 then begin En[EnNow].X:=X+1; En[EnNow].Y:=Y-1; En[EnNow+1].X:=X-1; En[EnNow+1].Y:=Y-1; end; If O=4 then ...


Программирование на языке Турбо Паскаль [нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие ... f,'showfile.pas'); reset(f); while not eof(f) do begin while not eoln(f) do begin read(f,c); write(c); end; readln(f); writeln; end; close(f); readln; ...
... VecSub(a,b: tVec3D; var 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) ...