Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   www.boolean.name > Программирование игр для мобильных телефонов > MidletPascal > FAQ

FAQ Часто задаваемые вопросы

Ответ
 
Опции темы
Старый 31.03.2006, 14:48   #16
SubZer0
Администратор
 
Аватар для SubZer0
 
Регистрация: 03.09.2005
Сообщений: 2,406
Написано 300 полезных сообщений
(для 987 пользователей)
Originally posted by [Sp]@31.3.2006, 15:28
Функция преобразования из real в string не работает, нужна функция B*XStepPY.
Дадите?)
ты ее сам там в посте несколько раз процитировал
__________________
Как минимум я помог многим (с)
(Offline)
 
Ответить с цитированием
Старый 31.03.2006, 15:10   #17
[Sp]
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, 15:15   #18
SubZer0
Администратор
 
Аватар для SubZer0
 
Регистрация: 03.09.2005
Сообщений: 2,406
Написано 300 полезных сообщений
(для 987 пользователей)
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, 15:24   #19
[Sp]
AnyKey`щик
 
Регистрация: 30.03.2006
Сообщений: 11
Написано 0 полезных сообщений
(для 0 пользователей)
Фух) а я то думал что у мя что то с глазами или головой :o
(Offline)
 
Ответить с цитированием
Старый 02.04.2006, 08:27   #20
pax
Unity/C# кодер
 
Аватар для pax
 
Регистрация: 03.10.2005
Адрес: Россия, Рязань
Сообщений: 7,505
Написано 2,960 полезных сообщений
(для 5,247 пользователей)
Это я ошибся (точнее переименовать забыл), функция которую вы ищите - под номером 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;
__________________
Blitz3d to Unity Wiki
(Offline)
 
Ответить с цитированием
Старый 20.02.2007, 12:29   #21
satan
Нуждающийся
 
Регистрация: 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, 19:03   #22
cHeRsAnYa
ПроЭктировщик
 
Регистрация: 18.12.2007
Сообщений: 157
Написано 24 полезных сообщений
(для 27 пользователей)
Ответ: Полезные функции

Как программу splitting сделать функцией? Ведь возвращаемое функцией значение не может быть массивом.
(Offline)
 
Ответить с цитированием
Старый 10.01.2008, 21:03   #23
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
Ответ: Полезные функции

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

function splitting:arr;
begin
...
end;
(Offline)
 
Ответить с цитированием
Эти 2 пользователя(ей) сказали Спасибо ViNT за это полезное сообщение:
cHeRsAnYa (12.01.2008), Skythrone (02.07.2008)
Старый 12.01.2008, 08:15   #24
cHeRsAnYa
ПроЭктировщик
 
Регистрация: 18.12.2007
Сообщений: 157
Написано 24 полезных сообщений
(для 27 пользователей)
Ответ: Полезные функции

Спасибо. P.S.: как на форуме плюсы ставить?
(Offline)
 
Ответить с цитированием
Старый 12.01.2008, 09:39   #25
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
Ответ: Полезные функции

Кнопкой "Полезно".
(Offline)
 
Ответить с цитированием
Старый 30.08.2008, 16:12   #26
Kn793
Оператор ЭВМ
 
Аватар для Kn793
 
Регистрация: 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, 14:35   #27
SkyLine777
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)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Полезные ссылки по PureBASIC'у. Chrono Syndrome PureBasic 12 04.11.2011 13:33
Некоторые полезные функции Данил FAQ и уроки 1 26.10.2007 07:40
Полезные функции: Работа с Углами, Отрезками, Окружностями (Физика) moka 2D-программирование 0 12.06.2007 17:01
Полезные процедуры и функции к MP (СЮДА КИДАЕМ) Kurdt Основной форум 3 28.03.2007 20:26
полезные советы jimon Болтовня 28 23.11.2005 18:31


Часовой пояс GMT +1, время: 08:14.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com