Viết giải thuật cho phương trình sau
S=1*1/2*1/4*...*1/2n
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
TH
1
DT
7 tháng 2 2022
Thuật toán: B1: Nhập N;
B2: A <--- 0; i <--- 1;
B3: A <--- A + ((2*i)/(2*i+1));
B4: i <--- i + 1;
B5: Nếu i > N thì thông báo A rồi kết thúc.
B6: Quay lại bước 3;
ML
13 tháng 3 2021
Bài 1:
Thuật toán:
B1: Nhập a,b,c
B2: Tính \(\Delta\) = b2-4ac;
B3: Kiểm tra nếu \(\Delta\) >0 phương trình có 2 nghiệm phân biệt
\(x_1=\dfrac{-b+\sqrt{\Delta}\text{ }}{2a}\)
\(x_2=\dfrac{-b-\sqrt{\Delta}}{2a}\)
B4: Kiểm tra nếu \(\Delta\)<0 thì phương trình vô nghiệm
B5: Kiểm tra nếu \(\Delta\)=0 phương trình có 2 nghiệm kép \(x_1=x_2=-\dfrac{b}{2a}\)
Viết chương trình:
Program HOC24;
var a,b,c: integer;
x1,x2: real;
denta: longint;
begin
write('Nhap a; b; c: '); readln(a,b,c);
denta:=b*b-4*a*c;
if denta>0 then
begin
write('x1= ',(-b+sqrt(denta))/(2*a):1:2);
write('x2= ',(-b-sqrt(denta))/(2*a):1:2);
end;
if denta<0 then write('Phuong trinh vo nghiem');
if denta=0 then write('x= ',-b/2*a:1:2);
readln
end.
ML
13 tháng 3 2021
Bài 2:
Thuật toán:
B1: Nhập a,b
B2: Kiểm tra nếu a=0 và b=0 thì phương trình có vô số nghiệm
B3: Kiểm tra nếu a=0 thì phương trình vô nghiệm
B4: Kiểm tra nếu a khác 0 thì có nghiệm x=-b/a;
Viết chương trình:
Program HOC24;
var a,b: integer;
x: real;
begin
write('Nhap a; b: '); readln(a,b);
if a=0 and b=0 then write('Phuong trinh co vo so nghiem');
if a=0 then write('Phuong trinh vo nghiem');
if a<>0 then write('x=',-b/a:1:2);
readln
end.
20 tháng 2 2022
Thay n = 4 vào pt (1) ta có
\(x^2-6x+5=0\\ ta.có.a+b+c=1-6+5=0\\ Vậy.pt.có.n_o:\\ x_1=1;x_2=\dfrac{c}{a}=5\)
\(Ta.có:\Delta=b^2-4ac=....=-8n+48\\ Để.pt.\left(1\right).có.1.n_o.phân.biệt.thì.\Delta>0\\ \Leftrightarrow n< 6\)
Vậy m < 6 thì pt (1) có nghiệm phân biệt \(x_1;x_2\) nên theo Vi ét ta có
\(x_1+x_2=\dfrac{-b}{a}=6\\ x_1x_2=\dfrac{c}{a}=2n-3\)
Ta có
\(x^2-6x+2n-3=0\\ \Leftrightarrow x^2-5x+2n-4=x-1\)
Vì x1 x2 là nghiệm pt \(x^2-6x+2n-3=0\) nên x1 x2 là nghiệm PT \(x^2-5x+2n-4=x-1\) nên ta có
\(x_1^2-5x+2x-4=x_1-1.và\\ x_2^2-5x_2+2n-4=x_2-1\\ \Rightarrow\left(x_1^2-5x_1+2n-4\right)\left(x_2^2-5x_2+2n-4\right)=\left(x_1-1\right)\left(x_2-1\right)\)
\(Mà\\ \left(x_1^2-5x_1+2n-4\right)\left(x_2^2-5x_2+2n-4\right)=-4\\ Nên\left(x_1-1\right)\left(x_2-1\right)=-4\\ \Leftrightarrow x_1x_2-\left(x_1+x_2\right)+1=-4\\ \Leftrightarrow2n-3-6+1=-4\\ \Leftrightarrow2n=4\Rightarrow n=2\left(tm\right)\\ ......\left(kl\right)\)
8 tháng 3 2023
Câu a:
n = int(input("Nhập số nguyên n: "))
S = 0
for i in range(1, n+1):
S += i
print("Tổng S =", S)
Câu b:
n = int(input("Nhập số nguyên n: "))
S = 0
for i in range(1, n, 2):
S += i
print("Tổng S =", S)
Câu c:
def calc_sum(n):
s=0
for i in range(1,n+1):
s += 2*i
return s
n = int(input("Nhập vào số n: "))
print("Tổng S=2+4+6+...2n là:",calc_sum(n))
9 tháng 3 2023
n = int(input("Nhập số nguyên n: "))
S = 0
for i in range(1, n+1):
S += i
print("Tổng S =", S)
Câu b:
n = int(input("Nhập số nguyên n: "))
S = 0
for i in range(1, n, 2):
S += i
print("Tổng S =", S)
Câu c:
def calc_sum(n):
s=0
for i in range(1,n+1):
s += 2*i
return s
n = int(input("Nhập vào số n: "))
print("Tổng S=2+4+6+...2n là:",calc_sum(n))
H
1
29 tháng 5 2022
uses crt;
var i,n,s:longint;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr((2*i-1));
writeln(s);
readln;
end.
16 tháng 3 2023
program TinhTongWhileDo;
var
n, i: integer;
S: real;
begin
write('Nhap so n: ');
readln(n);
S := 0;
i := 1;
while i <= 2*n do
begin
S := S + 1/i;
i := i + 1;
end;
writeln('Tong S=1/1+1/2+1/3+1/4+...+1/2n la: ', S:0:2);
readln;
end.
22 tháng 2 2022
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
n:=1;
s:=0;
while (n<=10000) do
begin
n:=n+2;
s:=s+1/n;
end;
writeln(s:4:2);
readln;
end.
-Bước 1: nhập n
-Bước 2: i:=1; s:=1;
-Bước 3: nếu i chia hết cho 2 thì s:=s*(1/i);
-Bước 4: i:=i+1;
-Bước 5: Nếu i<=2*n thì quay lại bước 3
-Bước 6: xuất s
-Bước 7: Kết thúc
Phép gán trong thuật toán là : ←