Нашел на форуме функции перевода из 10-ной СС в любую и наоборот....а как эти функции использовать в одной программе...там ведь переменная "n" разных типов...
Извиняюсь...возможно не там пишу...
var
n_str: string;
n_long: longint;
writeln('PEREVOD CHISEL IZ "G" SISTEMU SCHISLENIYA V 10-nuy');и
writeln;
writeln('Vvedite sistemy schisleniya ');
readln(radix);
writeln('Vvedite chislo ');
readln(n_str);
writeln('polychilos ',ToDec(n_str,radix));
writeln('PEREVOD CHISEL IZ 10-nou SISTEMU SCHISLENIYA V "G" SISTEMY SCHISLENIYA');
writeln;
writeln('Vvedite chislo');
read(n_long);
writeln('Vvedite sistemy schisleniya');
read(radix);
writeln('polychilos ',FromDec(n_long,radix));
begin, и никаких меток...
Zast;
repeat
writeln;
writeln('1. PEREVOD CHISEL IZ 10-nou SISTEMU SCHISLENIYA VO VVEDENNYU');
writeln;
writeln('2. PEREVOD CHISEL IZ VVEDENNOY SISTEMU SCHISLENIYA V 10-nuy');
writeln;
write('viberete neobhadimoe deistvie (1/2) '); readln(t);
case t of
1:
begin
clrscr;
writeln('PEREVOD CHISEL IZ 10-nou SISTEMU SCHISLENIYA V "G" SISTEMY SCHISLENIYA');
writeln;
write('Vvedite chislo: '); readln(n_long);
write('Vvedite sistemy schisleniya: '); readln(radix);
writeln('polychilos ',FromDec(n_long,radix));
end;
2:
begin
clrscr;
writeln('PEREVOD CHISEL IZ "G" SISTEMU SCHISLENIYA V 10-nuy');
writeln;
writeln('Vvedite sistemy schisleniya ');
readln(radix);
writeln('Vvedite chislo ');
readln(n_str);
writeln('polychilos ',ToDec(n_str,radix));
end;
else begin
writeln('Takogo punkta v menu net!!!');
ReadKey;
end;
end;
write('once again? (Y/N)'); readln(a);
until not (a in ['Y', 'y']);
End.