- 20 Ağu 2016
- 8,754
- 411
Örnek uygulamalarım Delphi'yede sıçradı çözümleriyle birlikte bir konu derlemek istedim;
Aşağıda algoritması verilen programın delphi kodunu yazınız
1. Toplama Sıfır değerini ata
2. Sayaç 1 den 50 ye kadar Tekrar Et
3. Toplama sayacı ekle
4. Sonucu Mesaj olarak göster
Cevap:
Kod:
Toplam:=0;
For sayac:=1 to 50 do
Toplam:=toplam+sayac;
Showmessage(inttostr(toplam));
Aşağıda algoritması verilen programın delphi kodunu yazınız
1.Toplama sıfır değerini ata
2.Sayaca 10 değerini ata
3.Tekrar et
4.toplama sayacı ekle
5.sayacı bir azalt
6.ta ki sayac küçük 1 oluncaya kadar
Cevap
Kod:
Toplam:=0;
Sayac:=10;
Repeat
Toplam:=toplam+sayac;
Sayac:=sayac-1;
Until sayac<1;
Aşağıda verilen Kodun Algoritmasını yazınız
Kod:
Var
Sayac,toplam:integer;
Begin
toplam:=0;
For sayac:=1 to 100 do
Begin
if (sayac mod 2) = 0 then toplam:=toplam+sayac;
listbox1.items.add(inttostr(sayac))
End;
Showmessage(inttostr(toplam))
End;
Kod:
Sayac ve toplam tamsayıdır
Başla
Toplama sıfır değerini ata
Sayacı 1 den 100 e kadar tekrar et
Tekrar başla
Eğer sayac çift sayı(sayacın ikiye bölümünden kalan sıfır) ise toplama sayacı ekle
Liste kutusuna sayacı ekle
Tekrar bitiş
Toplamı mesaj olarak göster
İki tam sayıyı kullanarak bölme işlemini çıkarma yöntemi ile sonucunda bölüm ve kalanı döngü kullanarak hesaplayıp yazan delphi programı yazınız.
Cevap
Kod:
var
bolunen,bolen,bolum,kalan:integer;
begin
bolunen:=strtoint(edit1.Text);
bolen:=strtoint(edit2.Text);
bolum:=0;
while bolunen>bolen do
begin
bolum:=bolum+1;
bolunen:=bolunen-bolen;
end;
kalan:=bolunen;
edit3.Text:=inttostr(kalan);
edit4.Text:=inttostr(bolum);
end;
100 adet asal sayı bulan delphi programını yazınız. Asal sayı 1 ve kendinden başka sayıya bölünmeyen sayıdır. Örnek asal sayılar 1 2 3 5 7 11 13 17 19 23
Kod:
var
adet,sayac,i:integer;
asalmi:boolean;
begin
adet:=0;
sayac:=0;
While adet<100 do // 100 adet asal sayı buluncaya kadar tekrar et
begin
asalmi:=true; // öncelikle asal olduğunu kabul et
sayac:=sayac+1; // kontrol edilecek sayılar için sayacı bir artır
for i:=2 to sayac-1 do // 2 den sayacın bir eksiğine kadar tekrar et
if (sayac mod i) = 0 then asalmi:=false;
// eğer sayacın i ye bölümünden kalan sıfır ise asal değildir
if asalmi = true then // sayac asal ise liste kutusuna ekle
begin
listbox1.Items.Add(inttostr(sayac));
// Liste kutusuna asal sayıyı ekle
adet:=adet+1; // asal sayı adedini bir artır
end;
end;
end;
Umarım Yararı Olmuştur...İyi forumlar Dilerim