[Мария]

1. В произвольном массиве поменяйте местами соседние четные и нечетные по номеру элементы. Дополнительные массивы не использовать.
2. По заданной длине стороны N-угольника найдите велечину его внутреннего угда, площадь, радиусы вписанной и описанной окружности.
3. Описать процедуру BinToDec (S) (HexToDec(S)) целого типа, которая определяет целое неотрицательное число по его строковому представлению S в двоичной (16-ричной) системе счисления. Параметр S имеет тип string, состоит из символов ['0'-'1'] (['0'-'9', 'A'-'F']) и не содержит ведущих нулей (за исключением значения '0'). Используя эту функцию, вывести пять чисел, для которых даны их двоичные (16-ричные) представления.

[lmikle]

1. Поподробнее пожалуйста. С примером на пальцах что надо сделать.
2. Формулы в студию.
3. Тут попроще. Идем от конца строки и складываем цифирь в степени ее нрмера. Подсказка - удобнее инвертировать строку и потом идти прямым порядком.

Код:

uses Math;

function IvertStr(S : String) : String;
var
  I : Integer;
begin
  Result := '';
  For I := 1 To Length(S) Do Result := S[i] + Result;
end;

function BinToDec(S : String) : Integer;
var
  I : Integer;
begin
  Result := 0;
  S := InvertStr(S);
  For I := 1 To Length(S) Do
    Result := StrToInt(S[i]) * Power(2,I-1);
end;

function HextToDec(S : String) : String;
var
  I : Integer;
  N : Integer;
begin
  Result := 0;
  S := InvertStr(S);
  For I := 1 To Length(S) Do
    Begin
      If S[i] In [0..9] 
        Then N := StrToInt(S[i]) 
        Else N := Ord(Upper(S[i]))-65+10;
      Result := Result + N * power(16,I-1);
    End;
end;

[Мария]

Спасибо большое за решение!!Вы бы не могли мне еще помочь. Не посчитайте меня назойливой, просто действительно очень необходимо решить.
Формулы к 3 задаче я найду и напишу.
вот задачи, которые мне тоже надо решить:

4. Описать процедуру MoveLeft (A,N,K) (MoveRight (A,N,K)), осуществляющую циклический сдвиг элементов вещественного массива A размера N на k позиций влево (вправо) (0<k<5,k<N). Массив A- входной и выходнолй параметр, N и k входные параметры. С помощью этой процедуры осуществить сдвиг элементов данного массива размера N на k1 позиций, а затем - сдвиг элементов полученного массива на k2 позиций (k1и k2даны). После каждого вызова процедуры выводить на экран результирующий массив.
5. Описать процедуру DoubleX(A,N,X), дублирующую элементы, равные X, в массиве A целых чисел рахмера N. Массив A и число N являются входными и выходными параметрами. С помощью этой процедуры продублировать в массивах A,B,C размера NA,NB,NC каждое вхождение чисел XA,XB,XC соответственно.
6. Описать процедуру Transp (A,M), выполняющую транспонирование квадратной вещественной матрицы A порядка M. Двумерный массивA - входной и выходной параметр, M - входной параметр. Использовать эту процедуру для транспонирования данной матрицы A порядка M.

[Мария]

Я очень надеюсь на Вас.

[Konrad]

В раздел работа.