Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

{Zn-значение; Kol_Zn-Кол-во знаков после запятой}

Var

snl,s,s0,s1,s2: String;

n,n1:Real;

nn,i:Integer;

begin

s:=FloatToStr(Zn);

if(Pos(',',s)>0) and(Zn>0) and(Length(Copy(s,Pos(',',s)+1,length(s)))>kol_zn) then begin

s0 := Copy(s,1,Pos(',',s)+kol_zn-1);

s1 := Copy(s,1,Pos(',',s)+kol_zn+2);

s2 := Copy(s1,Pos(',',s1)+kol_zn,Length(s1));

n := StrToInt(s2)/100;nn := Round(n);

ifnn >= 10 then begin

snl := '0,';

Fori := 1 tokol_zn - 1 dosnl := snl + '0';

snl := snl+'1';

n1 := StrToFloat(Copy(s,1,Pos(',',s)+kol_zn))+StrToFloat(snl);

s := FloatToStr(n1);

ifPos(',',s) > 0 thens1 := Copy(s,1,Pos(',',s)+kol_zn);

end elses1 := s0 + IntToStr(nn);

ifs1[Length(s1)]=',' thens1 := s1 + '0';

Result := StrToFloat(s1);

end elseResult := Zn;

end;

Все-таки работа со строками здесь излишество -

functionRoundEx( X: Double; Precision : Integer ): Double;

{Precision : 1 - до целых, 10 - до десятых, 100 - до сотых...}

var

ScaledFractPart, Temp : Double;

begin

ScaledFractPart := Frac(X)*Precision;

Temp := Frac(ScaledFractPart);

ScaledFractPart := Int(ScaledFractPart);

ifTemp >= 0.5 thenScaledFractPart := ScaledFractPart + 1;

ifTemp <= -0.5 thenScaledFractPart := ScaledFractPart - 1;

RoundEx := Int(X) + ScaledFractPart/Precision;

end;

Мне необходима программа, которая генерировала бы еженедельные списки задач. Программа должна просто показывать количество недель в списке задач и организовывать мероприятия, не совпадающие по времени. В моем текущем планировщике у меня имеется 12 групп и планы на 11 недель.

Мне нужен простой алгоритм, чтобы решить эту проблему. Какие идеи?

Вот рабочий код (но вы должны просто понять алгоритм работы):

unitUnit1;

interface

usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

typeTForm1 = class(TForm)

ListBox1: TListBox;

Edit1: TEdit;

Button1: TButton;

procedureButton1Click(Sender: TObject);

private{ Private declarations }

public{ Public declarations }

end;

varForm1: TForm1;

implementation

{$R *.DFM}

constmaxTeams = 100;

var

Teams: Array[1..maxTeams] ofinteger;

nTeams, ix, week, savix: integer;

functionWriteBox(week: integer): string;

var

str: string;

ix: integer;

begin

Result := Format('Неделя=%d ',[week]);

forix := 1 tonTeams do begin

ifodd(ix) thenResult := Result+' '

elseResult := Result+'v';

Result := Result+IntToStr(Teams[ix]);

end;

end;

procedureTForm1.Button1Click(Sender: TObject);

begin

nTeams := StrToInt(Edit1.Text);

ifOdd(nTeams) theninc(nTeams); {должны иметь номера каждой группы}

ListBox1.Clear;

forix := 1 tonTeams doTeams[ix] := ix;

ListBox1.Items.Add(WriteBox(1));

forweek := 2 tonTeams-1 do begin

Teams[1] := Teams[nTeams-1]; {используем Teams[1] в качестве временного хранилища}

forix := nTeams downto2 do if notOdd(ix) then begin

savix := Teams[ix];

Teams[ix] := Teams[1];

Teams[1] := savix;

end;

forix := 3 tonTeams-1 do ifOdd(ix) then begin

savix := Teams[ix];

Teams[ix] := Teams[1];

Teams[1] := savix;

end;

Teams[1] := 1; {восстанавливаем известное значение}

ListBox1.Items.Add(WriteBox(week));

end;

end;

end.

The_Sprite советует:

Вам понадобилось, чтобы Ваше приложение само создавало пароли ? Возможно данный способ Вам пригодится. Всё очень просто: пароль создаётся из символов, выбираемых случайным образом из таблицы.

Совместимость: Delphi 5.x (или выше)

Собственно сам исходничек: Пароль создаётся из символов, содержащихся в таблице.

Внимание: Длина пароля должна быть меньше, чем длина таблицы!

// запускаем генератор случайных чисел (только при старте приложения).

procedureTForm1.FormCreate(Sender: TObject);

begin

Randomize;

end;

functionRandomPwd(PWLen: integer): string;