Результаты поиска

используется в операциях ввода-вывода для указания 16-битного адреса порта. DE Наименее примечательная из регистровых пар, её название можно расшифровать...

Inc(i);Dec(j); while i <= b do begin A[i, j] := Value; Inc(i);Inc(Value); end; Dec(i);Dec(j); while j >= Count do begin A[i, j] := Value; Dec(j);Inc(Value);...

c, то для его компиляции компилятором GNU С достаточно выполнить команду (здесь и далее $ — подсказка интерпретатора командной строки): $ gcc hello.c...

финальный путь)} begin s:=0; a[startx,starty]:=0; repeat dec(d); if (i>1) and (a[i-1,j]=d) then begin dec(i); inc(s); b[s].dx:=i; b[s].dy:=j; end else if (i<n)...

400; Dec(j); end; Dec(i);Dec(j); end; Print(); end. Сдвинуть элементы массива, который состоит из 4-х элементов так, чтобы из: a b c d получилось b c d a...

var c := clRandom(); SetPenColor(ARGB(50, c.R, c.G, c.B)); for var i := 0 to AngleCount - 1 do Draw(PosX, PosY, R, (360 / AngleCount) * i, 1); Dec(R, 2);...

Е. Материалы к минералогии острова Эльбы // Bulletin de la Société Impériale des Naturalistes de Moscou. 1909. Vol. 23. P. 94-139.; Отд. изд. Материалы...

Klimato de Afriko, orbito de sputniko, programo de la koncerto, redakcio de la gazeto, reĝisoro de la filmo, sekretoj de la franca kulinario, ukazo de la prezidento...

" + da); System.out.println("db = " + db); System.out.println("dc = " + dc); System.out.println("dd = " + dd); System.out.println("de = " + de); } }...

не нужны), и поднимаемся на один уровень вверх: else begin l[level+1]:=0; dec(level); end; О том, как печатать многоугольную часть, мы поговорим чуть позже...

:= i - g; c := True; repeat if arr[j] <= arr[j + g] then c := False else begin Tmp := Arr[j]; Arr[j] := Arr[j+g]; Arr[j+g] := Tmp; end; dec(j, g); until...

– TER. FRS. AFARS ET ISSAS (Франц. терр. афаров и исса) C – R.P. DE DJIBOUTI или REPUBLIQUE DE DJIBOUTI (Республика Джибути) Известно использование нескольких...

ЗПО без непрерывной внешней рамки C – Незамкнутый рисунок без внешней рамки или названия страны Надпись «CORREOS DE GUATEMALA» (Почта Гватемалы) вверху...

= 0 then raise new Exception('Стек пуст.'); Result := _A[Pred(_Count)]; Dec(_Count); end; end; begin var Q := new TStack(); for var i := 1 to 10 do Q...

«CORREOS DE LA/ REPUBLICA DE CUBA» (Почта/ Республики Куба) вверху. Овал вокруг цифр номинала не касается линии внешней рамки. №М с префиксом «C». A. Надпись...

porphyres écrasés de l'île d’Elbe // C. R. Acad. sci. Paris. 1909. T. 148. N 22. P. 1441—1445. Termier P. Sur les nappes de l’ile d’Elbe // C. R. Acad. sci...

(my1 + y1 + my2) / 3; var mxC := (mx2 + x2 + mx3) / 3; var myC := (my2 + y2 + my3) / 3; if iterations > 0 then begin Dec(iterations); CreateFractal(x...

Systems Science IEEE Transactions on Systems, Man, and Cybernetics. Nov./Dec. 1991. Carl Hewitt and Gul Agha. Guarded Horn clause languages: are they...

- Sqr(y - 1)); if rd < rr then begin Dec(y); if rrd < rd then Inc(x); end else begin Inc(x); if rrd < rr then Dec(y); end; end; end; begin DrawCircle(100...

and (error > 0)) then begin dec(y); delta := delta + (1 - 2 * y); continue; end; inc(x); delta := delta + (2 * (x - y)); dec(y); end; end; procedure TForm1...