22. ноября 19:17
Онлайн: 11

Лучший ответ

Ответы

    •  1 0

    StarControlII (46) 5 (3774)2510 14 лет  

    либо Round (округление) или Int (вернуть целую часть) или Fix или Trunc

    •  0 0

    SAVi4 4 (1220)38 14 лет  

    a: real

    showmessage (a:3:0); //3 - кол-во символов, выделяемое для целой части. 0 - для дробной
    Или ещё посмотри команду round

    •  0 0

    Ph0enix 6 (6390)21729 14 лет  

    round(x) - могу ошибаться

    •  0 0

    Ljolium 6 (19738)453181 14 лет  

    ты когда выводишь переменную икс :   write(x:2:2), пиши :2:2, или вместо 2 нужное кол-во знаков после запятой.

    •  0 0

    Laptop (42) 6 (16930)249 14 лет  

    Round - чтобы округлить (математически).
    Trunc, Int - чтобы получить целое (без округления).

    •  0 1

    Vkusnjashka 5 (3957)513 14 лет  

    ROUND отбрасывает остаток

Похожие вопросы

  • Кто использует программу Delphi 7(см.внутри)?
    ну integer это целые числа. Вот тебе и выдаёт ошибку. Либо округляй, либо переходи на дробные
    var a,b,c:extended;


    вместо StrToInt будет FloatToInt
    аналогично FloatToStr будет вместо IntToStr
  • Вопрос по delphi!
    :)))))) лучше показать на примере

    uses  SysUtils;



    var t:TextFile;
        s:string;
    begin
       AssignFile(t,'1.txt'); Ассоциация файловой переменной t c 1.txt
       Reset(t);   Открываем для чтения
       s:='';
         while not eof(t) do
            ReadLn(t,s);  //чтение из файла t линии в переменную s, пока не наступит конец файла (eof = end of file). С каждым проходом цикла читается следующая строка. Потому что ReadLN :)

    CloseFile(t);  // закрытие файла
    end.


    Ещё посмотри help по Rewrite()  по Seek
  • Какие есть программы похожие на Delphi 7?
    microsoft visual c++
    visual basic
  • Delphi 7
    да кто его с сайтов то качает. Заинсталь dc али revconnect, хаб dchub.hacker.lv:4012
    и качай
  • Путь в базе данных. (Delphi)
    ExtractFileDir (ParamStr (0)) + '\MyDatabase.XXX'
  • Как в Delphi распечатать форму?
    procedure TForm1.Button1Click(Sender: TObject);
    Var p:TextFile;
    f:Integer;
    Begin
    AssignPrn(p);
    Printer.Canvas.Font.Size:=10;
    Printer.Canvas.Font.Name:='Arial';
    Rewrite(p);
    for f:=0 to Memo1.Lines.Count-1 do writeln(p,Memo1.Lines[f]);
    writeln(p,Label1.Caption);
    CloseFile(p);
    End;
  • Как на Delphi принять mms-поток и записать его в файл?
    сходи на delphimaster.ru или sql.ru
    если там не помогут, то тогда только на европейских сайтах и то, если с английским дружешь.
    я не помогу, т.к. не моё направление.
  • как будет выглядить код ? (delphi)
    procedure TFormX.Memo1DblClick(Sender: TObject);
    begin
        <код>
        <код>
        <код>
        <код>
        <код>
        <код>
        <код>
    end;

    можно и без массивов
  • Есть кто нибудь кто хорошо понимает Delphi?
    Походу в закладке Win32 была иконка таймера.
  • А сейчас кто-то пишет какой-либо софт на Delphi? (вн.)
    Delphi это не язык программирования это среда разработки. Язык там Object Pascal. Если разрабатывают, то очень мало.
    Если с программированием основными принципами программирования уже знаком, то изучай C++ или Java.
    На Java чаще всего разрабатываются Enterprise проекты. Для этого одного знания Java не достаточно.
    Сейчас много ещё разрабатывают на C#. Синтаксис очень похож на Java.


Регистрация Забыл пароль

  |   FAQ  |  Связаться с нами  |  Реклама@IRC

SIA "Enio" © 2004-2013  |  Build: 4.20210904.667  |  Зарегистрировано: 479780

Рейтинг@Mail.ru Top.LV PULS.LV Professional rating system