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.
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.
