паскаль ABC. Помогит доработать программы

[Марина22]

Помогите пожалуйста с составлением программы
1. Дан правильный n-угольник и угол между диагоналями, найти S и P
, считая, что радиус вписаной окружности может быть больше 5 , но меньше 1.
Формулы я вывести смогла, а с написанием программы проблемы

tg=l1/r
l1=tg*r
n^2=r^2+l^2
n=sqrt(r*r+l*l)
l=2*l1
a=a1/a2
p=(n+n+l)/2
S=sqrt(p(p-n),(p-n)(p-l)
P=n*l

Если формулы вывела не правильно не ругайтесь, пожалуйста
2. С клавиатуры вводиться целое десятеричное (x), вывести на экран двоичную запись числа(m)
вот программа, которую составила

var x,c,m,i: integer;
begin
read(x);
i:=1;
while (x>0) do;
begin
c:= x mod 2;
m:= m+c*1;
i:=i*10;
x:= x div 2;
end;
writeln(m);
end.

вроде работает. Проблема в том, что до меня никак не доходит, как по тому же принципу составить программу, где нужно из десятеричной перевести в различные системы счисления
Если поможете буду очень благодарна

[Stilet]

С клавиатуры вводиться целое десятеричное (x), вывести на экран двоичную запись числа(m)

var x,i:integer;s:string[32];
begin
 readln(x);
 for i:=32 downto 1 do begin
  if (x and 1) then s[i]:='1' else s[i]:='0';
  x:=x shr 1;
 end;
 write(s); readln;
end.

Не проверял.

Формулы я вывести смогла

Ох что-то мне в них не нравится...

[Марина22]

Спасибо большое! Формулы могут быть и не правильными, нам нужно было использовать формулу герона, возможно я намудрила

[Poma][a]

var x,i:integer;s:string[32];
begin
 readln(x);
 for i:=32 downto 1 do begin
  if (x and 1) then s[i]:='1' else s[i]:='0';
  x:=x shr 1;
 end;
 write(s); readln;
end.

Гениально! Пошел добавлять в свою коллекцию..
Только я прально понимаю, что if (x and 1) then должно быть if (x and 1) = 1

[Вадим Мошев]

Я думаю, что ни

(x and 1)

ни

(x and 1) = 1

Работать не будут

[Poma][a]

Ты прав.. Есть идеи как это преодолеть?

[Serge_Bliznykov]

(x and 1) = 1

Работать не будут

достаточно дописать в начале либо

s[0] := #32;

либо

s := '                               ';

и будет работать!

кстати.
TurboProfessional (с) TurboPower Software 1987
модуль TPSTRING.PAS

  function BinaryL(L : LongInt) : string;
    {-Return binary string for LongInt}
  var
    I : LongInt;
    N : Byte;
  begin
    N := 1;
    BinaryL[0] := #32;
    for I := 31 downto 0 do begin
      BinaryL[N] := Digits[Ord(L and LongInt(1 shl I) <> 0)]; {0 or 1}
      Inc(N);
    end;
  end;

[Poma][a]

достаточно дописать в начале либо

А почему же без этой строчки не работает?
P.S. Всех с наступившим

[Serge_Bliznykov]

А почему же без этой строчки не работает?

дык изначально то строка нулевой длины. Потом пиши в неё что хочешь, длина строки от этого НЕ МЕНЯЕТСЯ!

P.S. Всех с наступившим

Взаимно!!
С Днём программиста!
Ура, господа/товарищи!

[Stilet]

От докопались...

var x,i:integer;s:array[1..32] of char;
begin
 readln(x);
 for i:=32 downto 1 do begin
  if (x and 1)=1 then s[i]:='1' else s[i]:='0';
  x:=x shr 1;
 end;
 write(s); readln;
end;