forum.boolean.name
Страница 2 из 2 < 1 2
Показывать 64 сообщений этой темы на одной странице

forum.boolean.name (http://forum.boolean.name/index.php)
-   FAQ (http://forum.boolean.name/forumdisplay.php?f=48)
-   -   Полезные функции (http://forum.boolean.name/showthread.php?t=425)

SubZer0 31.03.2006 18:48
Цитата:
Originally posted by [Sp]@31.3.2006, 15:28
Функция преобразования из real в string не работает, нужна функция B*XStepPY.
Дадите?)
ты ее сам там в посте несколько раз процитировал ;)

[Sp] 31.03.2006 19:10
Цитата:
Originally posted by SubZer0+31.3.2006, 14:48--><div class='quotetop'>ЦИТАТА(SubZer0 @ 31.3.2006, 14:48)</div><div class='quotemain'><!--QuoteBegin-[Sp
,31.3.2006, 15:28]Функция преобразования из real в string не работает, нужна функция B*XStepPY.
Дадите?)
ты ее сам там в посте несколько раз процитировал ;)
[/b][/quote]
XStepPY ???... блин, вот хоть убейте, но в упор не вижу :(( вижу XStepY

SubZer0 31.03.2006 19:15
Цитата:
Originally posted by [Sp]+31.3.2006, 16:10--><div class='quotetop'>ЦИТАТА([Sp] @ 31.3.2006, 16:10)</div><div class='quotemain'>
Цитата:
Originally posted by SubZer0@31.3.2006, 14:48
<!--QuoteBegin-[Sp
Цитата:

,31.3.2006, 15:28]Функция преобразования из real в string не работает, нужна функция B*XStepPY.
Дадите?)


ты ее сам там в посте несколько раз процитировал ;)
XStepPY ???... блин, вот хоть убейте, но в упор не вижу :(( вижу XStepY
[/b][/quote]

точно... за мной косяк... :pardon: :pardon: ща стукну PAX'y в аську... :)

[Sp] 31.03.2006 19:24
Фух) а я то думал что у мя что то с глазами или головой :o

pax 02.04.2006 12:27
Это я ошибся (точнее переименовать забыл), функция которую вы ищите - под номером 3, только сокращенная (хотел повысить быстродействие).
Код:
Function XStepPY(X:Integer;Y:Integer):Integer;
var i,s:integer;
Begin
s:=1;
If Y>0 then
 for i:=1 to Y do s:=s*x
else
 If Y=0 then s:=1;

XStepPY:=s;
End;

satan 20.02.2007 15:29
Re: Полезные функции
 
Продолжу тему, мож пригодица, разбиение строки по определённому символу( в данном случае по ',')

Код:

program Splitting;
var
  StrArr : array[1..255] of string;
  str, smb : string;
  n, i: integer;
 
begin
 
 str := 'Вася,Петя,Коля';
 n := 1;
 
 for i := 0 to Length(str) -1 do
begin
 smb := GetChar(str,i);
 
 if smb <> ',' then
 begin
    StrArr[n] := StrArr[n] + smb;
end
else
begin
 n := n + 1;
end;
end;
 
for i:=1 to n do drawText(StrArr[i],0,i*10 -10);
 
repaint;
delay(5000);
end.

cHeRsAnYa 10.01.2008 22:03
Ответ: Полезные функции
 
Как программу splitting сделать функцией? Ведь возвращаемое функцией значение не может быть массивом.

ViNT 11.01.2008 00:03
Ответ: Полезные функции
 
Массивом не может быть значение функции в библиотеке
на java, внутри программы это реализовать можно:
Код:
type
arr=array[1..255]of string;

function splitting:arr;
begin
...
end;

cHeRsAnYa 12.01.2008 11:15
Ответ: Полезные функции
 
Спасибо. P.S.: как на форуме плюсы ставить?

ViNT 12.01.2008 12:39
Ответ: Полезные функции
 
Кнопкой "Полезно".

Kn793 30.08.2008 20:12
FloatToStr
 
Преобразует из real в string нормально(без нулей в конце)
Код:
function FloatToStr(r:Real):String;
var
        s:string;
begin
        s := '' + r;
        If pos(s,'.') <> - 1 then while getchar(s,length(s)-1) = '0' do s := copy(s,0,length(s)-1);
        FloatToStr := s;
end;

SkyLine777 22.11.2008 17:35
Ответ: Полезные функции
 
Преобразует из real в string ещё нормальней(без нулей и точек в конце)


function FloatToStr(r:Real):String;
var
s:string;
begin
s := '' + r;
If pos(s,'.') <> - 1 then while getchar(s,length(s)-1) = '0' do s := copy(s,0,length(s)-1);
FloatToStr := s;


if pos(s,'.')=length(s)-1 then FloatToStr:=copy(s,0,length(s)-1);
end;


Часовой пояс GMT +4, время: 07:40.
Страница 2 из 2 < 1 2
Показывать 64 сообщений этой темы на одной странице

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot