Составление блок-схемы

[overrr]

Задачка простая, но после матан'а в голову ничего уже не лезет, а сдать нужно завтра.
"Составить блок-схему к задаче:
Подсчитать количество цифр в позиционной записи целого числа (возможно отрицательного) в системе счисления с заданным основанием. Число задано своим значением."
Вопрос в том, что немного не пойму, как её написать на паскале, вот и трудность с блок-схемой.
P. S. просьба новичка сильно не пинать, как тут было написано - "стану крутым - выручу"))
Вот код, точнее зачатки):
program schisl;
var a,p,s:integer;
begin
repeat
writeln('введите p>1');
readln(p);
until p<1;
writeln('Введите a')
readln (a)

а вот дальше сложность, думаю, надо как-то через div делать, при этом включая счетчик, а в конце вывести показания этого счетчика, это и будет количеством цифр.
Проблема в том, что в школе программирования не было практически, а в Универе априори считается, что мы должны его знать после школы.

[Impuls1989]

program schisl;
var a,p,s:integer;
begin
repeat
writeln('введите p>1');
readln(p);
until p<1;
writeln('Введите a')
readln (a)

Что это? Вы вводите p пока оно не станет равно < 1... Косяки, да и зачем вам его вводить?
Не могу понять в чем проблемма!!! Считываете число как строку, смотрите нет ли перед ним знака минус, и вперед!!!

var s:string;
begin
 Write('Введите строку: ');
 readln(s);
  if s[1] = '-' then Writeln(Length(s)-1) else Writeln(Length(s));
end;

[overrr]

Проблема в том, что мне дано число в 10й системе счисления. Программа должна его переводить в систему с основанием P (P>1), а вот уже там считать, сколько цифр!
Блин, там опечатка, пардон, считываю p до тех пор, пока оно не станет больше 1

[Impuls1989]

Сообщение от overrr

Проблема в том, что мне дано число в 10й системе счисления. Программа должна его переводить в систему с основанием P (P>1), а вот уже там считать, сколько цифр!
Блин, там опечатка, пардон, считываю p до тех пор, пока оно не станет больше 1

Ну тогда вот тебе две функции:

function FromDec(n, radix:longint):string; {перевод числа n из 10-ной в radix c/c}
 var
  s: String;
 const
  digit: string[16]='0123456789ABCDEF';
begin
 s:='';
 repeat
  s:=digit[(n mod radix)+1]+s;
  n:=n div radix;
 until n=0;
FromDec:=s;
end;

function ToDec(n:string; radix:longint):longint; {перевод числа n из radix в 10-ную}
 var
  m, i: longint;
 const
  digit: string[16]='0123456789ABCDEF';
begin
 m:=0;
  while n[1]='0' do delete(n,1,1);
   for i:=1 to length(n) do 
     m:=m*radix+pos(n[i],digit)-1;
   ToDec:=m;
end;

[netrino]

program schisl;
var
   p, i : integer;

Begin
   Write('Enter p: ');
   ReadLn(p);

   i := 1;
   while abs(p) >= 10 do
   begin
      p := p div 10;
      i := i + 1;
   end;

   writeln('Answer: ', i);
   readln;
End.

[overrr]

netrino:
Вы написали количество цифр в числе, которое записано в системе счисления, с основанием 10. А нужно сначала перевести число из 10й системы счисления в P-ичную. А вот потом считать, сколько в ней цифр!
Impuls1989:
А нет ли метода по-проще?
А то многих операторов я просто не знаю, из описанных вами)
Да и концовку программы, в принципе, написал товарищ netrino,
а вот сам перевод из 10й в P-ичную я не могу понять как сделать. (перевод обратно в 10ю мне не нужен.)

В общем, суть такова:
1) Вводим p (Основание новой системы счисления)
2) Вводим А (Число в 10й системе счисления)
3) Переводим А в P-ичную систему счисления. (вот это не пойму как!!!)
4) Считаем, сколько в этом числе цифр.

Надеюсь, я понятно изложил проблему))

[netrino]

Тогда нужно использовать ф-ции, которые привёл Impuls1989, а именно FromDec. Вызывать её так:

var
   s : string;
...
s := FromDec(a, p);

И дальше, как писал ранее Impuls1989

Хотя ещё так можно:

program schisl;
var
   p, a, i : integer;

Begin
   Write('Enter p: ');
   ReadLn(p);

   Write('Enter a: ');
   ReadLn(a);

   i := 1;
   while abs(a) >= p do
   begin
      a := a div p;
      i := i + 1;
   end;


   writeln('Answer: ', i);
   readln;
End.

[Impuls1989]

Упс... Поменял в связи со сменой условия))
__________________________________
ооооо... Горе ты мое!
Вот держи:

program schisl; uses crt;
var
   p,i: integer;
function FromDec(n, radix:longint):string; {перевод числа n из 10-ной в radix c/c}
 var
  s: String;
 const
  digit: string[16]='0123456789ABCDEF';
begin
 s:='';
 repeat
  s:=digit[(n mod radix)+1]+s;
  n:=n div radix;
 until n=0;
FromDec:=s;
end;

Begin
  repeat
    ClrScr;
   Write('Введите систему счисления: ');
   ReadLn(p);
  until ((p>1) and (p<=16))
  Write('Введите число: ');
  readln(i);
   if (p = 10) then 
    begin
      val(i,s);
      if (s[1] = '-') then Writeln(Length(s)-1) else Writeln(length(s));
    end else 
    begin
      Writeln(Length(FromDec(i,p));
    end;
   readln;
end.

Вот как-то так

[overrr]

Хм, спасибо, разобрался, но нет ограничения на p сверху! То есть условия, что p<16 не нужно вроде как?

[netrino]

Если p будет больше 16-ти, то неясно какие символы использовать для представления числа ) потому в строку перевести его будет нельзя(по крайней мере этой ф-цией)