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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 16.01.2019, 07:44   #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сс не знаю, там разные типы строк. Программа то запускается, но вот на дроби при расчете выдает ошибку типов интеджер.
ПОЖАЛУЙСТА ХЕЛП ПЛИИИЗ. через неделю сессия уже, а я прост застрял на этом, я уже в отчаянии. Кто реально сможет помочь подкину на чаек с печеньками.

http://www.programmersforum.ru/showthread.php?t=325583

Последний раз редактировалось Аватар; 16.01.2019 в 07:56.
reijii_nia вне форума
Закрытая тема


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

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

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


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