Массив и матрица Опции

[@WARlock@]

Народ поможите решить задачки.

Задача 1) Реализовать алгоритм решения задачи на преобразование десятичного числа n в число m. Вводимое пользователем число n должно быть integer или logint. Программа должна работать правильно для чисел, содержащих не менее 8 цифр. В случае невозможности формирования числа m на основе числа n выводить соответствующее сообщение.
- Число m состоит из нечетных цифр числа n, стоящих на позициях, номера которых четны, считая с начала.


Задача 2) Составить программу решения (задачи 1(смотреть выше)), в которой n и m имеют строковый тип данных (string).


Задача 3) По условию (задачи 1(смотреть выше)) составить программу вывода на экран по данному числу n типа string матрицу SxS, (S – кол-во цифр в числе m), состоит из нулей и цифр числа m которые расположены:
- В последней строке справа на лево.

Сообщение отредактировано: @WARlock@ - 24.01.2006 14:17

[klem4]

Вот решение 3-й задача, в ней же присутствует решение второй. (вариант если матрицу хранить надо ...)

{$R-}
uses crt;
type
   TElem = char;
   PArr = ^TArr;
   TArr = array [1..1] of TElem;
   PMX  = ^TMx;
   TMx  = array [1..1] of PArr;
var
   n,m : string;
   s : PMx;
   i,j,size : byte;
begin
   clrscr;
   write('n = '); readln(n);
   i := 2;
   m := '';
   while (i <= length(n)) do begin
      if n[i] in ['1','3','5','7','9'] then m := m + n[i];
      inc(i,2);
   end;
   size := length(m);
   if size <> 0 then begin
      writeln('m = ',m);
      GetMem(s, size * sizeof(PArr));
      for i := 1 to size do GetMem(s^[i], size * sizeof(TElem));
      for i := 1 to size do begin
         writeln;
         for j := 1 to size do begin
            if i = size then s^[i]^[j] := m[j]
             else s^[i]^[j] := '0';
            write(s^[i]^[j],' ');
         end;
      end;

      for i := 1 to size do FreeMem(s^[i], size * sizeof(TElem));
      FreeMem(s, size * sizeof(PArr));
   end;

   readln
end.

Сообщение отредактировано: volvo - 5.11.2006 20:54