Delphi (Kesirli sayılar)

Visual basic , Delphi , C , C++ - Delphi (Kesirli sayılar) Sponsorlu Bağlantılar Slm Arkadaşlar Benim bir proje ödevim var vize yerıne gecicek Biraz yaptım ama T3 de takıldm yardımcı olurmusunuz lütfen ... Proje Sorusu : Dışarıdan girilen N üst sınırına ...

Cevapla
Delphi (Kesirli sayılar)
Teufels isimli Üye şimdilik offline konumundadır

Teufels

Bilg. Teknikeri / İstanbul

Delphi (Kesirli sayılar)

Alt 07-01-2010 #1
Sponsorlu Bağlantılar

Slm Arkadaşlar
Benim bir proje ödevim var vize yerıne gecicek
Biraz yaptım ama T3 de takıldm yardımcı olurmusunuz lütfen ...

Proje Sorusu :

Dışarıdan girilen N üst sınırına göre ;

T1 = 5/3 + 6/4 + 7/5 + 8/6 + ...
T2 = 2/3 - 3/5 + 4/7 - 5/9 +...
T3 = 1/2 + 2/5 + 3/10 + 4/17 + 5/26+....


seri toplamlarını ayrı ayrı hesaplayan Programlarını akıs diagramı...

Kodlar :

procedure TForm1.Button1Click(Sender: TObject);


var
d,x,e,m,n:integer;
t1,t2,a,b:real;

begin
x:=strtoint(inputbox('sayı girişi','sayıyı gir',''));
n:=0;m:=0; t1:=0;t2:=0;
for d:=0 to x do


begin
n:=1+d;
a:=d/n;
t1:=a+t1;

end;

edit1.Text:=floattostr(t1);
for e:=1 to x do

begin

m:=2+m;
b:=e/m;
t2:=b+t2;

end;

edit2.Text:=floattostr(t2);
end;


end.
Bu mesajdan alıntı yap
Sponsor Links

Grafikerler.net Reklamları

Cevapla

Benzer Konular
Konu Konu Bilgileri Forum Cevaplar Son Mesaj
C++,Delphi <tsunami> Visual basic , Delphi , C , C++ 6 19-06-2011 21:53:40
çok güzel harf ve sayılar zbkdygn Psd Dosyaları 5 07-01-2010 18:21:52
Çimden Yapılan Sayılar psevi Psd Dosyaları 5 01-10-2009 11:33:27
Genellikle sayılar için kullanılan fontun adı? Atlanturk Fontlar 8 20-06-2009 10:58:45
Delphi 7 Second Edition v7.2 ozan-tr Visual basic , Delphi , C , C++ 4 06-10-2008 01:33:43

Kapat
Şifremi Unuttum?