Помогите пожалуйста

[gamer123]

Помогите пожалуйста. Мне надо сдавать программу по переводу из одной системы счисления в другие. Взял чужой код. Объясните пожалуста, как она работает - мне надо будет преподу объяснить, а я не знаю как и что...третий день сижу...прога на турбо паскале 7

[WittySpark]

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

Помогите пожалуйста. Мне надо сдавать программу по переводу из одной системы счисления в другие. Взял чужой код. Объясните пожалуста, как она работает - мне надо будет преподу объяснить, а я не знаю как и что...третий день сижу...прога на турбо паскале 7

Извините, но не могу не выразится. Программа - пример отвратительного программирования.
Во-первых, что это за бред:
k:= n mod c; // заметьте, c = 2 (основание системы счисления)
...
if k=1 then // если остаток 1, то...
f:= f+'1'
else // иначе
if k=0 then // А ЭТО ЗАЧЕМ??? Бывают ещё какие-нибудь остатки?
f:= f+ '0';
А циклы меня вообще убили.
Нет. Это, безусловно, убожество...
Мой Вам совет: поищите другой исходник. Например, тут http://algolist.manual.ru/.
В разделе "математика" найдёте перевод из одной системы счисления в другую. Там всё подробнейшим образом описано.

[Xardas]

Ищем по форуму

http://www.programmersforum.ru/showthread.php?

[SNUPY]

Вот держи код у меня по ф-иям разбито)))

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Const
    list='0123456789ABSDEF';{Можно продолжить:) }

var Base1, Base2, Number10:Cardinal;
    FirstNumber:String;
Function GetFigure(Number:string; index:Cardinal):Byte;
begin
  Result:=pos(Number[index],list)-1;
end;

Function NumberTo10(Number:String; base:Cardinal):Cardinal;
var
  i:byte;
begin
  Result:=0;
  For i:=1 to length(Number) do
  begin
    Result:=GetFigure(Number,i)*round(Exp((length(Number)-i)*Ln(base)))+Result;
  end;
end;

Function Number10ToBase(Number:Cardinal; base:Cardinal):string;
var
  S:string;
  M:Cardinal;
begin
  s:='';
  Result:='';
  M:=Number;
  While M>=Base do
  begin
    S:=S+List[(M mod base)+1];
    M:=M div base;
  end;
  s:=s+List[M+1];
  For M:=1 to length(s) do
  begin
    Result:=Result+s[length(s)-M+1];
  end;
end;

begin
  Writeln('Система счисления?');
  Readln(base1);
  Writeln('число?');
  Readln(FirstNumber);
  Writeln('К какую?');
  Readln(Base2);
  Write(Number10ToBase(NumberTo10(FirstNumber,base1),base2));
  Readln;
end.

[gamer123]

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

Вот держи код у меня по ф-иям разбито)))

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Const
    list='0123456789ABSDEF';{Можно продолжить:) }

var Base1, Base2, Number10:Cardinal;
    FirstNumber:String;
Function GetFigure(Number:string; index:Cardinal):Byte;
begin
  Result:=pos(Number[index],list)-1;
end;

Function NumberTo10(Number:String; base:Cardinal):Cardinal;
var
  i:byte;
begin
  Result:=0;
  For i:=1 to length(Number) do
  begin
    Result:=GetFigure(Number,i)*round(Exp((length(Number)-i)*Ln(base)))+Result;
  end;
end;

Function Number10ToBase(Number:Cardinal; base:Cardinal):string;
var
  S:string;
  M:Cardinal;
begin
  s:='';
  Result:='';
  M:=Number;
  While M>=Base do
  begin
    S:=S+List[(M mod base)+1];
    M:=M div base;
  end;
  s:=s+List[M+1];
  For M:=1 to length(s) do
  begin
    Result:=Result+s[length(s)-M+1];
  end;
end;

begin
  Writeln('Система счисления?');
  Readln(base1);
  Writeln('число?');
  Readln(FirstNumber);
  Writeln('К какую?');
  Readln(Base2);
  Write(Number10ToBase(NumberTo10(FirstNumber,base1),base2));
  Readln;
end.

При компилции вылетает ошибка "неверная директива комилятора". также, указывает на uses - sysutils - нет файла sysutils.tpu пишет. что такое??

[Stilet]

Это пример для Делфи.
Вот паскалевский:

program Project2;   

Const   
    list='0123456789ABSDEF';{Можно продолжить:) }   
  
var Base1, Base2, Number10:integer;   
    FirstNumber:String;   
Function GetFigure(Number:string; index:byte):Byte;   
begin   
  Result:=pos(Number[index],list)-1;   
end;   
  
Function NumberTo10(Number:String; base:integer):Cardinal;   
var   
  i:byte;   
begin   
  NumberTo10:=0;   
  For i:=1 to length(Number) do   
  begin   
    NumberTo10:=GetFigure(Number,i)*round(Exp((length(Number)-i)*Ln(base)))+NumberTo10;   
  end;   
end;   
  
Function Number10ToBase(Number:Cardinal; base:integer):string;   
var   
  S:string;   
  M:integer;   
begin   
  s:='';   
  Number10ToBase:='';   
  M:=Number;   
  While M>=Base do   
  begin   
    S:=S+List[(M mod base)+1];   
    M:=M div base;   
  end;   
  s:=s+List[M+1];   
  For M:=1 to length(s) do   
  begin   
    Number10ToBase:=Number10ToBase+s[length(s)-M+1];   
  end;   
end;   
  
begin   
  Writeln('Система счисления?');   
  Readln(base1);   
  Writeln('число?');   
  Readln(FirstNumber);   
  Writeln('К какую?');   
  Readln(Base2);   
  Write(Number10ToBase(NumberTo10(FirstNumber,base1),base2));   
  Readln;   
end.

[gamer123]

begin
result - ошибка, неверный идентификатор



Function NumberTo10(Number:String; base:integer):Cardinal; - неверный идентификатор :-(

[Stilet]

GetFigure:=pos(Number[index],list)-1;
В паскале нет типа Cardinal - целое

[gamer123]

Вот другая программа для перевода в системы счисления. Что-то глючит при переводе в 16тиричную. Помогите найти ошибку...

[B_N]

var Ciphers : string;

function Convert(Number : longint; Base : longint) : string;
var
    s : string;
    tmp : longint;
begin
    s := '';
    if ( (Base > 0) and (Base <= 16) ) then begin
        tmp := Number;
        repeat
            s := Ciphers[(tmp mod base) + 1] + s;
            tmp := tmp div base;
        until tmp = 0;
    end;
    Convert := s;
end;

begin
    Ciphers := '0123456789ABCDEF';

    writeln(Convert(256, 10));
    writeln(Convert(256, 16));
    writeln(Convert(256, 5));
    writeln(Convert(256, 8));
    writeln(Convert(256, 2));
end.