Похожие работы на «Інформатика і комп'ютерна техніка»

Інформатика і комп'ютерна техніка
Программирование и комп-ры, Інформатика і комп'ютерна техніка, Контрольная ... 2).(1+sin10) 10 CLS 20 m = 1 30 FOR k = .1 TO 10 STEP .1 40 m = m * (1 + SIN (k)) 50 NEXT k 60 PRINT "m ="; m 70 END № 756 Даны действительные числа x ...
IF 130 ELSE 140 IF (y+x<=0) AND (y-2*x<=3) AND (3*y-x>= -1) THEN 150 GOTO 220 160 ELSE 170 GOTO 200 180 END IF 190 END IF 200 LPRINT "точка А не ...


Защита данных от несанкционированного доступа
Программирование и комп-ры, Защита данных от несанкционированного доступа, Курсовая ... 0 else Read(InpF, MasByte[i]); Mas := MasByte; T[0] := ord(Password[k]); if k < length(Password) then inc(k) else k := 1; for i:= 1 to 64 do begin
... F[k, 1], tmp, 1, NumRead); BlockWrite(F[k, 2], Inden[k, i], 1, NumWritten); end; BlockRead(F[k, 1], M, Size[k]-3, NumRead); BlockWrite(F[k, 2], M


Интерпретация блок-схем
Программирование и комп-ры, Интерпретация блок-схем, Диплом ... a[i] A+k*i. Тогда если элемент занимает k - байт, то a[i] -----> A+k*(i-1) (1) a[i] -----> A+k*i (1") Для двумерного массива: b: array [1..m,1..n] of ...
... операции А.Э.М. 2. , , имея приоритет 1 выталкивает из СТЕКа все ближайшие знаки до ближайшей [k и увеличивает k на 1: k=k+1; , никуда не заносится.


Администрирование локальных сетей
Программирование и комп-ры, Администрирование локальных сетей, Лекция ... X ресурсы 6. Управление шрифтами Базовые концепции X Window В HP-UX 10.20 X server это программа которая стартует автоматически после старта системы ...
... objfile [corefile] Где: -w Разрешает запись в объектный файл. -k Сообщает ADB, что объектные и основные файлы являются файлами ядра, так что ADB может ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... i].gety; x:=x+(random(3)-1); y:=y+(random(3)-1); if x<5 then x:=6;if x>635 then x:=634;if y<17 then y:=18; if y>480 then y:=479; AT:=hr[I].DAIAGE; CTp ...
then begin x:=0; FOR I:=1 TO T DO begin 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 ...


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... else begin textmode(Co80); l:=4; goto menu2; end; end; end else {-редактирование- -} if l=5 then begin view(27); textcolor(15); writeln('Продолжить? ...
... 1000); clrscr; menu; goto menu2; end; end else {-вывод заставки- -} if l=6 then begin zast; menu; goto menu2; end; {-выход- -} if l=7 then exitt else ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... i].gety; x:=x+(random(3)-1); y:=y+(random(3)-1); if x<5 then x:=6;if x>635 then x:=634;if y<17 then y:=18; -13- if y>480 then y:=479; AT:=hr[I].DAIAGE ...
... t>0 then begin x:=0; FOR I:=1 TO T DO begin 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) ...


Общие сведения о языке программирования Qbasic [нестрогое соответствие]
Программирование и комп-ры, Общие сведения о языке программирования Qbasic, Лекция ... A(9) FOR i = 0 TO 9 PRINT "Введите 10 элементов" INPUT A (i) FOR i=0 TO 9 NEXT i INPUT A(i) FOR i = 0 TO 9 NEXT i FOR y = 9 TO i STEP - 1 FOR i=0 TO 9 ...
... P THEN GOTO 50 20 NEXT y P=A(y):K=y NEXT i 50 NEXT y FOR i=0 TO 9 A(K)=A(i):A(i)=P PRINT А(i) NEXT i NEXT i PRINT "Отсортированные элементы" FOR i=0 ...


Нахождение кратчайшего пути [нестрогое соответствие]
Программирование и комп-ры, Нахождение кратчайшего пути, Курсовая ... inc(i); until(Flag)or(i>Dimension); inc(j); i:=1; until(Flag)or(j>Dimension); end else begin if FirstPointActive then begin if State=msMove then begin
... then IONewPoint(StepRound(x,GrigStep),StepRound(y,GrigStep)) else IONewPoint(x,y);end; end; procedure TIO.Select(FirstPoint,LastPoint:integer); var


Интерполяционный полином Лагранжа [нестрогое соответствие]
Программирование и комп-ры, Интерполяционный полином Лагранжа , Работа Курсовая ... then ShowMessage('Не верно задано значение') else begin k:=StrToInt(edit1.Text); Form2.StringGrid1.ColCount:=(k+1); Form2.visible:=true; Form1.visible ...
... begin t:=StrToFloat(Form3.Edit1.Text); i:=1; Proizved1:=1; Proizved2:=1; repeat if k<>i then begin Proizved1:=Proizved1*(t-x[i]); Proizved2:=Proizved2 ...