|
FAQ Часто задаваемые вопросы |
31.03.2006, 18:48
|
#16
|
Администратор
Регистрация: 03.09.2005
Сообщений: 2,408
Написано 301 полезных сообщений (для 996 пользователей)
|
Originally posted by [Sp]@31.3.2006, 15:28
Функция преобразования из real в string не работает, нужна функция B*XStepPY.
Дадите?)
|
ты ее сам там в посте несколько раз процитировал
__________________
Как минимум я помог многим (с)
|
(Offline)
|
|
31.03.2006, 19:10
|
#17
|
AnyKey`щик
Регистрация: 30.03.2006
Сообщений: 11
Написано 0 полезных сообщений (для 0 пользователей)
|
Originally posted by SubZer0+31.3.2006, 14:48--><div class='quotetop'>ЦИТАТА(SubZer0 @ 31.3.2006, 14:4</div><div class='quotemain'><!--QuoteBegin-[Sp
,31.3.2006, 15:28]Функция преобразования из real в string не работает, нужна функция B*XStepPY.
Дадите?)
|
ты ее сам там в посте несколько раз процитировал
[/b][/quote]
XStepPY ???... блин, вот хоть убейте, но в упор не вижу ( вижу XStepY
|
(Offline)
|
|
31.03.2006, 19:15
|
#18
|
Администратор
Регистрация: 03.09.2005
Сообщений: 2,408
Написано 301 полезных сообщений (для 996 пользователей)
|
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]
точно... за мной косяк... ща стукну PAX'y в аську...
__________________
Как минимум я помог многим (с)
|
(Offline)
|
|
31.03.2006, 19:24
|
#19
|
AnyKey`щик
Регистрация: 30.03.2006
Сообщений: 11
Написано 0 полезных сообщений (для 0 пользователей)
|
Фух) а я то думал что у мя что то с глазами или головой :o
|
(Offline)
|
|
02.04.2006, 12:27
|
#20
|
Unity/C# кодер
Регистрация: 03.10.2005
Адрес: Россия, Рязань
Сообщений: 7,568
Написано 3,006 полезных сообщений (для 5,323 пользователей)
|
Это я ошибся (точнее переименовать забыл), функция которую вы ищите - под номером 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;
|
(Offline)
|
|
20.02.2007, 15:29
|
#21
|
Нуждающийся
Регистрация: 10.02.2007
Сообщений: 99
Написано 18 полезных сообщений (для 28 пользователей)
|
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.
|
(Offline)
|
|
10.01.2008, 22:03
|
#22
|
ПроЭктировщик
Регистрация: 18.12.2007
Сообщений: 157
Написано 24 полезных сообщений (для 27 пользователей)
|
Ответ: Полезные функции
Как программу splitting сделать функцией? Ведь возвращаемое функцией значение не может быть массивом.
|
(Offline)
|
|
11.01.2008, 00:03
|
#23
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: Полезные функции
Массивом не может быть значение функции в библиотеке
на java, внутри программы это реализовать можно:
type
arr=array[1..255]of string;
function splitting:arr;
begin
...
end;
|
(Offline)
|
|
Эти 2 пользователя(ей) сказали Спасибо ViNT за это полезное сообщение:
|
|
12.01.2008, 11:15
|
#24
|
ПроЭктировщик
Регистрация: 18.12.2007
Сообщений: 157
Написано 24 полезных сообщений (для 27 пользователей)
|
Ответ: Полезные функции
Спасибо. P.S.: как на форуме плюсы ставить?
|
(Offline)
|
|
12.01.2008, 12:39
|
#25
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: Полезные функции
Кнопкой "Полезно".
|
(Offline)
|
|
30.08.2008, 20:12
|
#26
|
Оператор ЭВМ
Регистрация: 30.08.2008
Сообщений: 22
Написано 0 полезных сообщений (для 0 пользователей)
|
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;
|
(Offline)
|
|
22.11.2008, 17:35
|
#27
|
AnyKey`щик
Регистрация: 17.11.2008
Сообщений: 1
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Полезные функции
Преобразует из 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;
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 22:02.
|