Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.01.2019, 09:29   #1
reijii_nia
Пользователь
 
Регистрация: 29.03.2014
Сообщений: 19
Печаль Перевод из 10-ной СС в 8-ную СС. Не получается с переводом дробных чисел, на целые код есть. ХЕЛП ПЛИЗ (Язык Delphi)

Доброго времени суток. Взял код, ДА ВЗЯЛ НЕ НАПИСАЛ, так как времени не было, но принцип ее работы понимаю, однако есть загвостка, с переводом из 10сс в 8сс дробной части, то есть по одной процедуре которая есть, дробную часть прога не считает. Знаю что разные типы данных
вот код:

Код:
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    edit1: TEdit;
    button1: TButton;
    label1: TLabel;
    Label2: TLabel;
    procedure button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
    zn : array [0..8] of char = ('0','1','2','3','4','5','6','7','8');
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function Convert(chis:integer):string;
begin
result:='';
repeat
    result:=zn[(chis mod 8)] + result;
        chis:=chis div 8;
until chis=0;
end;
 
procedure TForm1.button1Click(Sender: TObject);
var s,t:string; //число
    intc:integer; //целая и дробная части
    s1,frcc:real;
begin
s:=Edit1.text; //число
if pos(',',s)<>0 then
   begin
    intc:=Strtoint(copy(s,1,pos(',',s)-1)); //целая часть
    s1:=strtofloat(s);
    t:=floattostr(frac(s1));
    frcc:=Strtoint(t); // дробная часть
    Label1.Caption:=Convert(intc)+','+Convert(strtoint(frcc));
   end
else if  pos(',',s)=0 then
Label1.Caption:=Convert(StrToInt(s));
end;
end.
Помогите пожалуйста, перелопатил уже кучу информации, ничего нормально полезного не нашел, только как вытащить с помощью функции Frac дробную часть с нулем, а как это перевести в 8сс не знаю, там разные типы строк. Программа то запускается, но вот на дроби при расчете выдает ошибку типов интеджер.
ПОЖАЛУЙСТА ХЕЛП ПЛИИИЗ. через неделю сессия уже, а я прост застрял на этом, я уже в отчаянии. Кто реально сможет помочь подкину на "чаек с печеньками".
reijii_nia вне форума Ответить с цитированием
Старый 16.01.2019, 09:31   #2
alexcoder
Форумчанин
 
Регистрация: 31.05.2009
Сообщений: 786
По умолчанию

reijii_nia, обращайтесь e-mail: informatik101@mail.ru
Telegram: @alexcoder1
vk.com/alexcoder1
Помощь с программами:
vk.com/alexcoder1
e-mail: informatik101@mail.ru
alexcoder вне форума Ответить с цитированием
Старый 16.01.2019, 09:38   #3
MansMI
Пользователь
 
Регистрация: 04.07.2012
Сообщений: 32
По умолчанию

почта в подписи, пишите
MansMI вне форума Ответить с цитированием
Старый 16.01.2019, 10:19   #4
Fleg
 
Регистрация: 24.05.2011
Сообщений: 3
По умолчанию

если еще актуально пишите на почту alfle@mail.ru
Fleg вне форума Ответить с цитированием
Старый 16.01.2019, 20:11   #5
hunter-12
Новичок
Джуниор
 
Регистрация: 31.12.2018
Сообщений: 0
По умолчанию

Неверно вы дробную часть переводите. Надо умножать ее на восемь в цикле и списывать то, что получилось в целой части. Пишите hunter12677@gmail.com
hunter-12 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевод из 10-ной СС в 8-ную СС. Не получается с переводом дробных чисел, на целые код есть. (Язык Delphi) reijii_nia Помощь студентам 0 16.01.2019 07:44
Перевод из 10-ной СС в 8-ную СС. Не получается с переводом дробных чисел, на целые код есть. (Язык Delphi) reijii_nia Помощь студентам 4 27.12.2018 06:17
Перевод из 16-ной в 2-ную(код в нутри) skanku Общие вопросы C/C++ 1 07.12.2011 19:53
перевод из 4-ной в 3-ную систему счисления Mike07 Помощь студентам 1 07.10.2007 18:53