VTC nhập 1 số thực a từ bàn phím và tìm 1 stn n nhỏ nhất sao cho \(1+\dfrac{1}{2}+\dfrac{1}{3}+...+\dfrac{1}{n}>a\)
giúp em vs ạ :((( Viết chương trình nhập vào từ bàn phím số nguyên dương N(N chia hết cho 3) a là số bất kì .Tính và đưa ra màn hình tổng T.
\(T=\dfrac{a+5}{1+5}+\dfrac{a+3}{1+3}+\dfrac{a+6}{1+6}+\dfrac{a+9}{1+9}+...+\dfrac{a+N}{1+N}\)
tức là từ a cộng mấy đến a+n vậy bạn?
Tính tổng A sau đây (n được nhập vào từ bàn phím):
A = \(\dfrac{1}{1.3}+\dfrac{1}{2.4}+\dfrac{1}{3.5}+...+\dfrac{1}{1\left(n+2\right)}\)
Sửa lại đề bài : \(A=....+\dfrac{1}{n\left(n+2\right)}\)
Program HOC24;
var i,n: integer;
a: real;
begin
write('Nhap n: '); readln(n);
a:=0;
for i:=1 to n do a:=a+1/(n*(n+2));
write('A = ',a:6:2);
readln
end.
Bài 1: Tính tổng ( Sử dụng lệnh while....do )
A=1+\(\dfrac{1}{2}\) +\(\dfrac{1}{3}\) +.......+\(\dfrac{1}{n}\) ( n được nhập từ bàn phím )
Bài 2: Tính tổng ( Sử dụng lệnh while....do )
T=1+\(\dfrac{1}{3}\) +\(\dfrac{1}{5}\) +........+\(\dfrac{1}{n}\) ( n nhập từ bàn phím )
Bài 3: Tính tổng ( Sử dụng lệnh while....do )
A=\(\dfrac{1}{1\cdot3}\) + \(\dfrac{1}{2\cdot4}\) + \(\dfrac{1}{3\cdot5}\) +.........+\(\dfrac{1}{n\left(n+2\right)}\) ( n nhập từ bàn phím )
Giúp với mai mink ktra rồi!
Bài 1:
uses crt;
var a:real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
a:=0;
i:=1;
while i<=n do
begin
a:=a+1/i;
i:=i+1;
end;
writeln(a:4:2);
readln;
end.
1. Viết chương trình yêu cầu nhập số nguyên N từ bàn phím. Tính tổng các số nguyên đầu tiên của N theo công thức S= \(\dfrac{1}{3}+\dfrac{1}{5}+\dfrac{1}{7}...+\dfrac{1}{2N+1}\)(với N \(\ge\)1). Sau đó in kết quả ra màn hình.
2. Cho dãy số sau: 2; 5; 8; 11. Viết chương trình yêu cầu nhập số nguyên N từ bàn phím. Tính tích E, sau đó in ra màn hình.
E= 2.5.8.11.. } N số nguyên
Bài 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(2*i+1);
writeln(s:4:2);
readln;
end.
1. Viết chương trình tính tổng sau:
a) S = \(1+\dfrac{1}{2}+\dfrac{1}{3}+...+\dfrac{1}{n}\)
b) S = \(1+\dfrac{1}{3}+\dfrac{1}{5}+...+\dfrac{1}{n}\)
2. Viết chương trình nhập 2 số nguyên a và b. Tìm bội chung nhỏ nhất
3. Cho một dãy số gồm N phân tử:
- Tính tổng các phân tử trong dãy số
- Tìm phân tử lớn nhất
- In ra màn hình các số nguyên tố có trong dãy
BÀI 3
uses crt;
var a: array[1..100] of integer;
i,n,max,s,j: integer;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);
for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
max:=a[1];
s:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
s:=s+a[i];
end;
writeln('so lon nhat trong day tren la:',max);
writeln('tong bang:',s);
writeln('so nguyen to trong mang la:');
j:=1;
for i:=1 to n do
if a[i]>1 then
begin
repeat
inc(j);
until (a[i] mod j=0);
if j>(a[i] div 2) then writeln(a[i]);
j:=1;
end;
readln
end.
Hãy viết chương trình tìm giá trị của N thỏa mãn biểu thức sau:
1+ \(\dfrac{1}{2}\)+\(\dfrac{1}{3}\)+...+\(\dfrac{1}{N}\) >a
Biết a được nhập từ bàn phím.
Giúp mình với.
uses crt;
var s:real;
a,n:integer;
begin
clrscr;
write('Nhap a='); readln(a);
n:=0;
s:=0;
while s<=a do
begin
n:=n+1;
s:=s+1/n;
end;
writeln(n);
readln;
end.
Bài 1: Cho hàm số f(x)=x7 + 53\(\sqrt[]{x^5+3\cdot x^3+2}+12\) Viết phương trình nhập vào 3 số thực a,b,c và đưa ra trung bình của f(a),f(b),f(c).
Bài 2: Nhập x vào từ bàn phím và tính giá trị của biểu thức \(A=\dfrac{\cos3a+^5\sqrt{2X^3+x+1}}{\log_7\left(3^{x^2}+2.14b\right)}\)
trong đó \(a=\sqrt{2^x+\pi}\)
và \(b=\ln\left(e^{x+1.23}+1\right)\)
Lập trình ngôn ngữ C
Em đang cần gấp ạ tại bài kiểm tra xin mn giúp đỡ
Bài 1: viết chương trình nhập dãy số nguyên A gồm N phần tử. Với N được nhập từ bàn phím. Tìm và in kết quả ra màn hình phân tử nhỏ nhất của dãy số.
Bài 2:viết chương trình nhập dãy số nguyên A gồm N phần tử. Với N được nhập từ bàn phím. Tìm và in kết quả ra màn hình phân tử lớn nhất của dãy số
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
Câu 1; Viết chương trình cho phép người dùng nhập 1 số nguyên từ bàn phím, chương trình sẽ cho biết số đó là số chẵn hay lẻ.
Câu2. Viết các biểu thức toán sau đây dưới dạng biểu thức trong Pascal
a. \(\dfrac{15}{2+3}\) - \(\dfrac{8}{x^3}\) +y b. \(\dfrac{\left(10+x\right)^2}{3+y}\)- \(\dfrac{18}{5+y}\)
Câu 3. Bạn Tuấn viết chương trình như sau:
1. program Tinh toan
2 uses crt;
3. var
4. x, y : integer;
5. tb = real;
6. thongbao : integer;
7. const a := 2;
8. begin
9. clrscr;
10. thongbao := ‘Trung binh cong cua hai so x va y la: ‘;
11. write(‘Nhap gai tri cho x = ‘); readln(x);
12. write(‘Nhap gia tri cho y = ‘); readln(y);
13. tb = (x+y)/a;
14.writeln(thongbao, tb:2:1);
15. readln;
16. end.
a) Có một vài câu lệnh bạn Tuấn viết sai, em hãy viết lại cho đúng
b. ) Hãy phân biệt tên biến, tên hằng trong chương trình trên
HELD ME !!!!!!!!!!