hayy teman2 jumpa lagi , kali ini saya akan membagikan code perulangan delphi angka ganjil dan genap dan mulai dari 1-10 silahkan lihat codenya
cara ke 1
procedure TForm1.Button1Click(Sender: TObject);
var
q,r : integer;
begin
memo1.clear;
for q := 3 downto 1
do
begin
r:= 0;
while r < 10 do
begin
r:= r + q;
memo1.lines.add(inttostr(r));
end;
end;
end;
end.
cara ke 2
var
q,r,k : integer;
begin
memo1.clear;
q :=3;
while (q>=1) do
begin
r:= 0;
while r < 10 do
begin
r:= r + q;
memo1.lines.add(inttostr(r));
end;
q:=q-1;
end;
end;
EmoticonEmoticon