Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Функции перевода чисел

Автор: DeIYIoN 5.06.2009 0:47

Нашел на форуме функции перевода из 10-ной СС в любую и наоборот....а как эти функции использовать в одной программе...там ведь переменная "n" разных типов...
Извиняюсь...возможно не там пишу...

Автор: volvo 5.06.2009 1:30

Цитата

там ведь переменная "n" разных типов...

Там не переменная N, а формальный параметр N разных типов. Фактически передавать в процедуру можно просто константу, можно переменную нужного типа (без разницы, как она будет называться). Так что не вижу проблемы. Можешь пояснить, как наличие N тебе мешает?

Автор: DeIYIoN 5.06.2009 1:32

Вобщем вот что получилось... (Показать/Скрыть)


program schisleniya;
uses crt;
label 1,2,3,4;
var
a:char;
i,t:integer;
radix: longint;
n:string;

procedure goto_xy(x,y:byte); assembler;
asm
  mov ah,2
  xor bh,bh
  mov dh,y
  mov dl,x
  dec dh
  dec dl
  int 10h
end;

procedure Zast;
  const
     LU = #218; RU = #191; LD = #192; RD = #217;
     H = #196; V = #179;
     X1 = 6; Y1 = 10; X2 = 83; Y2 = 35;
     Txt = 'Press any key';
  Var
     k : integer;
  begin
     clrscr;
     TextBackground(11);
     clrscr;
     Window(X1, Y1, X2, Y2);
     TextBackground(8);
     TextColor(Yellow);
     Clrscr;

     Writeln('');
     Writeln('                                                                    ');
     Writeln('                                                                    ');
     Writeln('                                                                    ');
     Writeln('        ******  ******  *****   ******  ******     ****     ******');
     Writeln('        *    *  *       *    *  *       *     *   *    *    *    *');
     Writeln('        *    *  *       *    *  *       *     *   *    *    *    *');
     Writeln('        *    *  ****    *****   ****    ******    *    *    *    *');
     Writeln('        *    *  *       *       *       *     *   *    *    *    *');
     Writeln('        *    *  *       *       *       *     *   *    *  **********');
     Writeln('        *    *  ******  *       ******  ******     ****   *        *');
     Writeln('                                                                     ');
     Writeln('                  *    *   *     *   ****   ******     *');
     Writeln('                  *    *   *    **  *    *  *         * *');
     Writeln('                  *    *   *   * *  *       *        *   *');
     Writeln('                  ******   *  *  *  *       ****     *   *');
     Writeln('                       *   * *   *  *       *        *   *');
     Writeln('                       *   **    *  *    *  *        *   *');
     Writeln('                       *   *     *   ****   ******   *   *');
     Writeln('                                                                    ');
     Writeln('                                                                    ');
     Writeln('                                                                    ');
     GotoXY((X2-X1-Length(Txt)) div 2, Y2-Y1-1);
     Write(Txt);
     Readkey;
     TextMode(CO80);
  end;

function FromDec(n, radix:longint):string;
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;
var m, i:longint;
const
digit:string[16]='0123456789ABCDEF';
begin
   m:=0;
   while(n[1]='0') and (length(n)>1) do delete(n,1,1);
   for i:=1 to length(n) do
   m:=m*radix+pos(n[i],digit)-1;
   ToDec:=m;
end;

begin
Zast;

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);
if t=1 then goto 3;
if t=2 then goto 4
else  writeln;
writeln('Takogo punkta v menu net!!!');
ReadKey;
goto 1;

3: clrscr;
writeln('PEREVOD CHISEL IZ 10-nou SISTEMU SCHISLENIYA V "G" SISTEMY SCHISLENIYA');
writeln;

writeln('Vvedite chislo');
read(n);
writeln('Vvedite sistemy schisleniya');
read(radix);
writeln('polychilos ',FromDec(n,radix));
goto 2;

4: clrscr;
writeln('PEREVOD CHISEL IZ "G" SISTEMU SCHISLENIYA V 10-nuy');
writeln;
writeln('Vvedite sistemy schisleniya ');
readln(radix);
writeln('Vvedite chislo ');
readln(n);
writeln('polychilos ',ToDec(n,radix));

2: goto_xy(1,9); write('Џа®¤®«¦Ё¬, (Y/N)? '); read(a);
case a of
'Y','y': goto 1;
'N','n': halt
else goto 2;
end;
End.

Автор: volvo 5.06.2009 1:37

Введи 2 переменные вместо одной 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));

P.S. Зачем Ассемблер? Есть же GotoXY в модуле CRT. От меток я бы тоже посоветовал избавляться...

Автор: DeIYIoN 5.06.2009 1:41

Спасибо...ступил...просто наверно уже мозги кипят...ни чё не соображаю...
а как без меток...можешь помочь...

Автор: volvo 5.06.2009 2:21

Вот так будет выглядеть основная программа:

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.

, и никаких меток...

Автор: DeIYIoN 5.06.2009 2:41

Бальшое спасибо!!!!