viết chương trình tính tích n số tự nhiên ( với n được nhập từ bàn phím )
Viết chương trình tính tích của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập vào từ bàn phím.
tham khảo
Đề bài: Viết chương trình tính n! với n là số tự nhiên không âm nhập vào từ bàn phím Để làm được bài này, trước tiên các bạn cần nhớ lại công thức tính n! đã. Theo định nghĩa giai thừa ta có: 0! = 1 n! = 1.2.3…n Vậy là ta có công thức rồi. Nhìn vào công thức ta thấy với n = 0 thì dễ rồi, nếu n > 0 thì nó là tích các số từ 1 đến n.TK
Var i ,n : integer;
S , T : real;
Begin
write ('n=') ; read (n) ;
S:= 0;
T:= 1;
For i:= 1 to n do
S:= S + i;
T:= T * i;
Writeln (' Tong cua ' ,n,' so dau tien la' , S );
Writeln (' Tich của ' ,n,' so dau tien la' , T );
Readln;
End.
Viết chương trình tính tích: S = 1 * 2 * 3 * ... * n với n là số tự nhiên được nhập từ bàn phím.
Program HOC24;
var s: longint;
i,n: integer;
begin
write('Nhap n: '); readln(n);
s:=1;
for i:=1 to n do s:=s*i;
write('S = ',s);
readln
end.
viết chương trình tính n! (n giai thừa: tích của n số tự nhiên đầu tiên ), với n được nhập từ bàn phím
#include <bits/stdc++.h>
using namespace std;
long long n,i,s=1;
int main()
{
cin>>n;
for (int i=1; i<=n; i++)
s=s*i;
cout<<s;
}
Viết chương trình tính tổng của n số tự nhiên bất kì được nhập từ bàn phím bằng lệnh while do với n là số nguyên được nhập từ bàn phím
program TongN;
var
n, i, tong: integer;
begin
tong := 0;
writeln('Nhap so nguyen duong N: ');
readln(n);
i := 0;
while i < n do
begin
i := i + 1;
tong := tong + i;
end;
writeln('Tong cac so tu 1 den ', n, ' la ', tong);
readln;
end.
viết chương trình tính tích của n số tự nhiên đầu tiên,với N số tự nhiên được nhập từ bàn phím(sử dụng câu lệnh While..Do
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
i:=1;
while i<=n do
begin
s:=s*i;
i:=i+1;
end;
writeln(s:0:0);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=1;
for (int i=1; i<=n; i++) t=t*i;
cout<<t;
return 0;
}
2: Viết chương trình sử dụng lệnh lặp để tính trung bình cộng của N số thực. Với số N và các số tính trung bình cộng được nhập vào từ bàn phím. Câu 3: Viết chương trình nhận biết một số tự nhiên N được nhập từ bàn phím có phải là số nguyên tố hay không.
Câu 3:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n>1 then
begin
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' la hop so');
end
else writeln(n,' khong la so nguyen to cung khong la hop so');
readln;
end.
Viết chương trình tính tích n số tự nhiên được nhập từ bàn phím (Sử dụng câu lệnh while... do)
Var i,n,p:longint;
Begin
Write('Nhap n = ');readln(n);
i:=1;
p:=1;
While i<=n do
Begin
i:=i+1;
p:=p*i;
End;
Write('Tich la ',p);
Readln;
End.
Viết chương trình tính:
- Tổng n số tự nhiên đầu tiên với n nhập từ bàn phím bằng câu lệnh với số lần lặp biết trước. (for… do).
- Tích các số từ 5 đến 30.
- Chu vi, diện tích hình chữ nhật, hình tròn, hình thang với các kích thước được nhập từ bàn phím.
Mình đang cần gấp
Tổng n số tự nhiên đầu tiên:
Var i,n,s:integer;
Begin
Write('n = ');
for i:=1 to n do
s:=s+i;
Write('Tong la ',s);
Readln
End.
Tích các số từ 5 đến 30
Var i,p:longint;
Begin
p:=1;
For i:=5 to 30 do
P:=p*i;
Write('Tich la ',p);
Readln
End.
Chu vi, diện tích hình chữ nhật:
var a,b,p,s:real;
begin
write('Chieu dai hcn = ');readln(a);
write('Chieu rong hcn = ');readln(b);
p:=(a+b)*2;
s:=a*b;
writeln('Chu vi hcn la ',p:10:2);
write('Dien tich hcn la ',s:10:2);
readln
end.
------------------------------------------------------------
Chu vi, diện tích hình tròn:
var r,c,s:real;
begin
write('Ban kinh = ');readln(r);
c:=2*3.14*r;
s:=3.14*r*r;
writeln('Chu vi hinh tron la ',c:10:2);
write('Dien tich hinh tron la ',s:10:2);
readln
end.
---------------------------------------------------
Chu vi, diện tích hình thang:
var dl,dn,cb1,cb2,h,p,s:real;
begin
write('Day lon = ');readln(dl);
write('Day be = ');readln(db);
write('Chieu cao = ');readln(h);
write('Canh ben thu nhat = ');readln(cb1);
write('Canh ben thu hai = ');readln(cb2);
p:=dl+db+cb1+cb2;
s:=(dl+db)*h/2;
writeln('Chu vi hinh thang la ',p:10:2);
write('Dien tich hinh thang la ',s:10:2);
readln
end.