Работа с функцией. Делфи.

[GRYZZY]

помогите переделать код в функцию.

const
    cifry:string='0123456789ABCDEF';
var
    c:byte;
    chislo:integer;
    osnovanie:byte;
    otvet:string;
begin

     write('chislo CC 10 = ');
      readln(chislo);
       repeat
       write('osnovanie CC  2 - 16 = ');
       readln(osnovanie);
       until osnovanie in [2..16];
 otvet:='';
 while chislo>osnovanie do
           begin
           otvet:=cifry[(chislo mod osnovanie)+1] + otvet;
           chislo:=chislo div osnovanie;
           end;
              if chislo=osnovanie then otvet:=cifry[chislo] + otvet
              else otvet:=cifry[chislo + 1] + otvet;
write('otvet ',otvet);
readln

end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

давайте начнём со следующего.
1) код (алгоритм) явно имеет косяки. попробуйте 16 перевести в 16-ю систему, поймёте, что я имею в виду.
Может стоит его сначала правильно написать?

2) что нужно вынести в функцию? Перевод числа в заданную систему счисления?



Режим ТЕЛЕПАЦИИ включён.
если я правильно понял, что Вам надо, то вот код:

function ConvertToNewBase(N : integer; Base:byte):string;
const
  cifry:string='0123456789ABCDEF';
var
  tmp : integer;
  //  Result : string; // для Delphi не нужно
begin
  Result := '';
  tmp := abs(N);
  repeat
    Result := cifry[(tmp mod Base)+1] + Result;
    tmp := tmp div Base;
  until tmp=0;
  // ConvertToNewBase := Result // для Delphi не нужно
end;
    
var
    chislo:integer;
    osnovanie:byte;
begin
   write('chislo CC 10 = ');
   readln(chislo);
   repeat
      write('osnovanie CC  2 - 16 = ');
      readln(osnovanie);
   until osnovanie in [2..16];
   write('otvet ', ConvertToNewBase(chislo, osnovanie));
   readln
end.

[GRYZZY]

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

давайте начнём со следующего.
1) код (алгоритм) явно имеет косяки. попробуйте 16 перевести в 16-ю систему, поймёте, что я имею в виду.
Может стоит его сначала правильно написать?

2) что нужно вынести в функцию? Перевод числа в заданную систему счисления?

1) не обращайте внимания на косяки.))
2) да. функция должна давать переведённое число

[Serge_Bliznykov]

я выше привёл код.
Проверяйте!
к сожалению, я исправил ваши косяки (упростил и изменил алгоритм перевода).

[GRYZZY]

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

я выше привёл код.
Проверяйте!
к сожалению, я исправил ваши косяки (упростил и изменил алгоритм перевода).

после исправления косяков в 16 в 16-ю систему стал неправильно переводить.до этого было всё норм. сейчас скрины приложу)

[GRYZZY]

[Serge_Bliznykov]

скриншот у Вас не получился...

[GRYZZY]

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

скриншот у Вас не получился...

вижу..... жал...

[Serge_Bliznykov]

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

вижу..... жал...

Мне тоже жаль...

после исправления косяков в 16 в 16-ю систему стал неправильно переводить

Простите, что куда перестало переводить?!
У Вас код переводит числа из десятичной в заданную СС (с основанием от 2 до 16)
Что не работает?

[GRYZZY]

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

Мне тоже жаль...


Простите, что куда перестало переводить?!
У Вас код переводит числа из десятичной в заданную СС (с основанием от 2 до 16)
Что не работает?

при переводе 16 в 16-ричную СС выдаёт 10 вместо F