vct tinh 1+1/2+1/3+...+1/N ... cho den khi 1/n <= 0.01
Những câu hỏi liên quan
vct s:=1/1!+2^2/2!+3^3/3+...+n^n/n!
tính giúp mình mai ktra rồi!!
uses crt;
var n,i:integer;
s:real;
//chuongtrinhcon
function gthua(n:integer):real;
var gt:real;
i:integer;
begin
gt:=1;
for i:=1 to n do
gt:=gt*i;
gthua:=gt;
end;
//chuongtrinhcon
function lthua(n,x:integer):real;
var lt:real;
i:integer;
begin
lt:=1;
for i:=1 to x do lt:=lt*x;
lthua:=lt;
end;
//chuongtrinhchinh
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+(lthua(i,i)/gthua(i));
writeln(s:4:2);
readln;
end.
Đúng 1
Bình luận (0)
VCT pascal tính
A=1+2+3+....+n
B=1+3+5+....+n (n là số lẻ)
C=2+4+6+....+n (n là số chẵn)
S=1+1/2+1/3+....+1/n
Giúp e với ak, e cảm ơn
VCT pascal tính
A=1+2+3+....+n
B=1+3+5+....+n (n là số lẻ)
C=2+4+6+....+n (n là số chẵn)
S=1+1/2+1/3+....+1/n
Giúp e với ak, e cảm ơn
1. VCT nhập vào độ dài 3 cạnh của 1 tam giác. Kiểm tra xem tam giác đó có phải là tam giác vuông không?
2. VCT nhập vào độ dài 3 cạnh của 1 tam giác. Kiểm tra xem tam giác đó có phải là tam giác đều không?
3. VCT nhập vào 1 số nguyên bất kì, kiểm tra xem số đó có chia hết cho 4 và 5 hay không?
4. VCT nhập vào 2 số nguyên bất kì, kiểm tra xem 2 số đó có chia hết cho nhau hay ko?
5. VCt nhập vào 4 số nguyên bất kì, in ra màn hình số lớn nhất trong 4 số?
6. VCt nhập vào 2 số nguyên khác nhau t...
Đọc tiếp
1. VCT nhập vào độ dài 3 cạnh của 1 tam giác. Kiểm tra xem tam giác đó có phải là tam giác vuông không?
2. VCT nhập vào độ dài 3 cạnh của 1 tam giác. Kiểm tra xem tam giác đó có phải là tam giác đều không?
3. VCT nhập vào 1 số nguyên bất kì, kiểm tra xem số đó có chia hết cho 4 và 5 hay không?
4. VCT nhập vào 2 số nguyên bất kì, kiểm tra xem 2 số đó có chia hết cho nhau hay ko?
5. VCt nhập vào 4 số nguyên bất kì, in ra màn hình số lớn nhất trong 4 số?
6. VCt nhập vào 2 số nguyên khác nhau từ bàn phím, sắp xếp 2 số đó theo thứ tự giảm dần
7. VCT nhập vào 2 số nguyên khác nhau từ bàn phím, sắp xếp 2 số đó theo thứ tự tăng dần
8. VCT nhập vào 1 số nguyên bất kỳ, kiểm tra và thông báo ra màn hình số đó là số chẵn hay không?
Vct tính n! Vd ( 3!=1×2×3)
a) sử dụng hàm
b) sử dụng thủ tục
Câu 4:
a)
uses crt;
var n:integer;
{---------------------ham-tinh-giai-thua-----------------------}
fucntion gt(x:integer):real;
var i:integer;
begin
gt:=1;
for i:=1 to x do
gt:=gt*i;
end;
{--------------------chuong-trinh-chinh---------------------}
begin
clrscr;
write('Nhap n='); readln(n);
writeln(gt(n):0:0);
readln;
end.
Đúng 0
Bình luận (0)
b)
uses crt;
var n:integer;
{-------------------thu-tuc-tinh-giai-thua------------------------}
procedure gt(x:integer);
var i:integer;
begin
gt:=1;
for i:=1 to x do
gt:=gt*i;
writeln(gt);
end;
{-----------------chuong-trinh-chinh--------------------------}
begin
clrscr;
write('Nhap n='); readln(n);
gt(n);
readln;
end.
Đúng 0
Bình luận (0)
1.vct nhập vào 1 dãy số nguyên gồm n phần tử (n>=10). tính tích các phần tử trong mảng chỉ 1 đến 8
2. vct nhập vào 1 dãy số nguyên gồm n phần tử (n>=10). tính tổng các phần tử trong mảng chỉ 1 đến 5
USES CRT;
VAR A:ARRAY[1..100] OF INTEGER;
N,I:INTEGER;
S:LONGINT;
BEGIN
CLRSCR;
WRITE('NHAP SO PHAN TU: ');
READLN(N);
FOR I:=1 TO N DO
BEGIN
WRITE('A[',I,']=');
READLN(A[I]);
END;
S:=1;{VI KHI NHAN VOI 1 THI MOI RA KET QUA NHA BAN}
FOR I:=1 TO 8 DO S:=S*A[I];{CO THE THAY 8 THANH 5 DE LAM CAU 2}
WRITELN('TONG CAC PHAN TU TRONG MANG TU 1 DEN 8 LA: ',S);
READLN
END.
Đúng 0
Bình luận (0)
1 nguoi di bo tu a den b voi van toc 4,5 km/h.sau khi di bo duoc 3 gio thi 1 nguoi di xe dap cung di tu a den b voi van toc 12km/h. 2 nguoi den b cung 1 luc. tinh thoi gian de nguoi di bo den b
Bài 1: VCT đếm các phần tử là số nguyên âm chẵn của dãy n số nguyên từ bàn phím. Sau đó in kết quả ra màn hình Bài 2:VCT tính tổng các phần tử chia hết cho 5 của dãy n số nguyên nhập từ bàn phím. Sau đó in dãy số và kết quả r màn hình Bài 3: VCT tính tích các phần tử là số chẵn của dãy n nhập từ bàn phím và in kết quả r màn hình (Giúp mik vs ạ)
Bài 1:
Program HOC24;
var a: array[1..1000] of integer;
i,n,d: integer;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
for i:=1 to n do if (a[i]<0) and (a[i] mod 2=0) then d:=d+1;
write('Co ',d,' so nguyen am chan trong day so');
readln
end.
Đúng 1
Bình luận (0)
Bài 2:
Program HOC24;
var a: array[1..1000] of integer;
i,n: integer;
t: longint;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0;
for i:=1 to n do if a[i] mod 5=0 then t:=t+a[i];
write(Tong la: ',t);
readln
end.
Đúng 1
Bình luận (0)
Bài 3:
Program HOC24;
var a: array[1..1000] of integer;
i,n: integer;
t: longint;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=1;
for i:=1 to n do if (a[i] mod 2=0) then t:=t*a[i];
write('Tich la: ',t);
readln
end.
Đúng 1
Bình luận (0)
viet chuong trinh nhap vao tu ban phim so nguyen duong N , tinh tong gia tri chia het cho 3 trong pham vi tu 1 den N , sau do in ra man hinh
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 3=0 then t:=t+i;
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)