jak z 'litery' usunąć np. 'b' w trakcie wykonywania programu
litery: array[1..4] of String = ('a','b','c','d');
lub ja wylosować układ z 'litery' bez powtarzania się liter np. abdc lub badc
jak z 'litery' usunąć np. 'b' w trakcie wykonywania programu
litery: array[1..4] of String = ('a','b','c','d');
lub ja wylosować układ z 'litery' bez powtarzania się liter np. abdc lub badc
Wykluczenie b:
var
i : integer;
Literty : array[1..4] of string;
begin
for i:=low(Litery) to high(litery) do
if litery[i]='b' then
litery[i]:='';
end;
Losowanie dwóch róznych kombinacji :
var
i : integer;
Litery1, litery2 : array[1..4] of string;
begin
radnomize;
for i:=low(Litery1) to high(litery1) do
begin
:losowanie;
litery1[i]:=random(255);
litery2[i]:=random(255);
if litery1[i]=litery2[i] then
goto losowanie;
end;
end;
--Pozdrowienia {hello}
Chodek ;)
Delphi 6