delphii acil

Kodla Büyü
D

dilekakka

Üye
Mesajlar
23
iyi günler arkadaşlar..bende delphide yeni sayılırım geliştirmek istiyorum.bu sorulardan 3. soruyu çözemedim..örenek olark çözebilecek olan varmı acaba..çooook rica ediyorumm :shock:
 

Ekli dosyalar

  • Sözleşme2.rar
    128.7 KB · Görüntüleme: 89
ewt banada zor gibi geldi zaten..

BSHARK kod isimli arkadaşım sende delphi ile ilgileniyormuşsun..eğer sesimi duyuyorsan cvvvppp
 
eğer m ve n functiona dışarıdan geliyorsa
function hesapla(m,n:integer)
begin
top:integer;
i:interer;
top:=0;
if m<n then begin
for i:=m to n do begin
top:=top+i*i;
end;
return(top);
end;
else
return(0);
end.

yukarıdaki functionu inceleyin kodu programda kontrol etmeden yazdım

asıl kod ise

begin
sonuc:real;
sonuc:=(hesapla(2,10)*hesapla(5,8))/hesapla(15,18);
end
yazdırma komutuyla sonucu yazdırın

kod kısımları eksik olabilir herhalde mantık yukarıdaki gibidir
 
bahsettiğiniz 3. soru m^2 + (m+1)^2 + .... + n^2 sorusu ise onun çözümü ektedir.
 

Ekli dosyalar

  • soru3.rar
    164.7 KB · Görüntüleme: 45
mustafa hocam benden hızlı çıkmış tabi ben de delphide yazdım kaydettim vs derken oyalandım :) Sonuçta ikimizde aynı şekilde çözmüşüz
 
yine delphiii

mustafa hocam ilginize çok tşkkür ediyorum birşey sormak istiyorum bu cvlandırdığınız 3. soruda function dan yararlanarak (^2+^3+.......^10)* (^5+^6+^7+^8) / (^15+^16+^17+^18 ) sonucunu istiyorya bu hesaplamayı ben göremedim kod içinde..çok özür diliyorum ben daha yeniyimde delphide çözmeye çalışıyorum..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst