Soru = Girilen sayının tek ve çift olan sayılarını toplayan programı fonksiyonda yapınız.
Şekli :
Kodları :
Function tek(n:integer; var top:integer):integer;
var
k:integer;
begin
top := 0;
For k := 1 To n do
if k Mod 2 = 1 Then
top := top + k ;
end;
Function cift(n:integer; var toplam:integer):integer;
var
k:integer;
begin
toplam := 0;
For k := 1 To n do
If k Mod 2 = 0 Then
toplam := toplam + k;
end;
Procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
son:integer;
sonuc:integer;
begin
x:=strtoint(edit1.text);
tek(x,son);
cift(x,sonuc);
label1.caption:= inttostr(son);
label2.caption:= inttostr(sonuc);
end;
Procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit1.SetFocus;
label1.Caption:='';
label2.Caption:='';
end;
Procedure TForm1.Button3Click(Sender: TObject);
begin
halt;
end;
Çalışma Şekli :
 
Bu son örnekte ise klavyeden girdiğimiz sayıları tek ve çift diye kendi içinde ayırdıktan sonra tek sayıların ayrı çift sayıların toplanmış haline bulur. Temizle butonu ise edit ve labelleri sıfırlar. Çıkış ise program çıkmak için kullanılır.
|
