ödev döngü komutu kullanarak 1 den 10 a kadar sayı yazdırma

[poyraz0]

ödev döngü komutu kullanarak 1 den 10 a kadar sayı yazdırma bunu nasıl yapabilirim arkadaşlar yardımcı olabilirmisiniz.

[greenegitim]

pascalda

Kod: Tümünü seç

uses crt;
var
i:byte;
begin

for i:= 1 to 10 do
     begin
                 write(i); writeln(' sayı ')
     end;
end.

delphide memo ve button konarak

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
i:byte;
begin
           for i := 1 to 10 do
           begin
                      Memo1.Lines.Add(IntToStr(i))  ;
           end;

end;

[poyraz0]

teşekkür ederim.