Viết chương trình nhập vào số nguyên n sau đó tính tổng và tích từ 1 đến n bằng hàm while
Bài 8. Lặp với số lần chưa biết trước
program tinhtong;
uses crt;
var i,n,s: integer;
begin
clrscr;
readln(n);
i:=0;
s:=0;
while i<= n do
begin
s:=s+i;
i:=i+1;
end;
Write('tong s la',s);
readln
end.
Đúng 0
Bình luận (1)
program tinhtich;
uses crt;
var i,n,tich: integer;
begin
clrscr;
readln(n);
i:=1;
tich:=1;
while i<=n do
begin
tich:= tich * i;
i:=i +1;
end;
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 1 số nguyên n,sau đó xuất ra màn hình từ n xuống 1
uses crt;
var
n:integer;
begin
clrscr;
write('Nhap vao so n: ');readln(n)
for i:=n downto 1 do
writeln(i);
readln;
end.
Đúng 0
Bình luận (0)
1. Viết chương trình tính tổng
T = 1 + 1/2 + 1/3 +... + 1/100
2. Viết chương trình tính tích
P = 1 × 1/2 × 1/3... 1/3
var n,t:integer;
begin
t:=0;
for i:=1 to 100 do t:=t+(1/i);
write(' Tong la: ',t)
readln;
end.
2) var i:integer;
p:real;
begin
p:=1;
for i:=1 to 3 do p:=p*(1/i);
write(' Tich la: ',p:1:1);readln;
end.
Đúng 0
Bình luận (0)
bài 1 thì chắc thế này là đúng vì lâu rồi mình làm lại dạng này :)
var i,T:real;
begin
T:=0;
for i:=1 to 100 do
T:=T+1/i;
writeln('T=',T);
readln
end.
chúc may mắn, à, có j thử lại xem mình làm có đúng hem hộ mình nhé, cám ơn :)
Đúng 0
Bình luận (0)
var n,t:integer;
begin
t:=0;
for i:=1 to 100 do t:=t+(1/i);
write(' Tong la: ',t)
readln;
end.
2) var i:integer;
p:real;
begin
p:=1;
for i:=1 to 3 do p:=p*(1/i);
write(' Tich la: ',p:1:1);readln;
end.
Đúng 0
Bình luận (0)
Giả sử điểm thi môn học của một lớp có n học sinh được cho bởi n biến số thực A1,A2,A3,....,An trong đó i=1,2,3,..,n.Hãy tính điểm trung bình môn tin học của cả lớp đó(viết CT bằng ngôn ngữ lập trình pascal)
uses crt;
var
a:array[1..50] of integer;
i,n,tong:integer;
begin
write('So hoc sinh trong lop: ');readln(n);
for i:=1 to n do
begin
write('Diem kiem tra cua ban thu ',i,' la: ');readln(a[i]);
tong:=tong+a[i]
end;
b:=tong/n
write('Diem trung binh tin hoc cua ca lop la: ',b:2:1);
readln;
end.
CT này mình chưa test nên có thể có 1 số loại nhỏ
Đúng 0
Bình luận (1)
Viêt chương trình bao gồm câu lện lặp for do và while do
mình viết chương trình tính tổng nha!
1. for...do
program tinhtong;
var n,i:integer;
s:longint;
begin
write (' nhap so n='); readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('tong cua ',n,' so tu nhien dau tien s=',s);
readln
end.
2. while .... do
var i,n:integer;
s:longint;
begin
write('nhap so n='); readln(n);
i:=1;
s:=0;
while i<= n do
begin
s:=s+i; i:=i+1;
end;
write('tong cua ',n,' so tu nhien dau tien la',s);
readln
end.
Đúng 0
Bình luận (0)
Cho 2 số x, y
Viết chương trình kiểm tra xem y có là ước chung của x hay không hoặc ngược lại
nếu ước chung thì phải là "y có cùng ước chung" ? chứ sao "y có là ước chung của x" ?
Đúng 0
Bình luận (0)
Cho đoạn chương trình sau:
i:=1, T:=0;
While T<10 do
T:=T+i;
i:=i+9
Kết thúc chương trình, in ra kết quả T=?, i=?
- Lần thứ nhất: T<10=> Thực hiện lệnh
T:=T+i=0+1=1
i:=i+9=1+9=10
-Lần thứ hai: T<10=> Thực hiện lệnh
T:T+i=1+10=11
i:=i+9=10+9=19
-Lần thứ ba: T>10=> Không thực hiện lệnh
Vậy kết thúc chương trình T=11, i=19
Đúng 0
Bình luận (2)
Viết chương trình kiểm tra một số có phải số nguyên tố hay không? Dùng câu lệnh lặp với số lần chưa biết trc
program kiem_tra_nguyen_to;
uses crt;
var n,i:integer; bl:boolean;
begin
clrscr;
bl:=true;
write('nhap vao so can kiem tra tinh nguyen to: '); readln(n);
if n<=1 then bl:=false;
for i:=2 to trunc(sqrt(n)) then
if n mod i=0 then bl:=false;
if bl=true then write('so vua nhap nguyen to.')
else write('so vua nhap khong nguyen to.');
readln;
end.
Đúng 0
Bình luận (0)
Var n.i:integer;
begin
readln(n);
i:=2;
while ( i <= n) and ( n mod i <>0) do
i:=i+1;
if i=n then writeln('n la so nguyen to')
else writeln('n khong la nguyen to');
readln;
end.
Đúng 0
Bình luận (0)
var n,dem:integer;
begin
readln(n);
if n<=1 then write(' n khong la so nguyen to');
else
begin
dem:=2;
while (n mod dem <> 0) do dem:=dem+1;
if dem=n then write (' n la so nguyen to') else write(' n khong la so nguyen to');
end;
end.
Đúng 0
Bình luận (0)
Viết chương trình Pascal tính tổng N số tự nhiên đầu tiên sử dụng câu lệnh lặp với số lần chưa biết trước.
Mọi người giúp mình với nha, mình cảm ơn !!!
- Mình dốt tin lắm
program tinhtong;
uses crt;
var i, n, s: integer;
begin
clrscr;
Write('N so tu nhien dau tien la: '); readln(n);
s:=0; i:=1;
while i<=n do begin
s:=s+i; i:=i+1;
end;
writeln('Tong cac so la: ',s);
readln
end.
Đúng 0
Bình luận (0)
uses crt;
var i,s,n: integer;
begin
clrscr;
write('Nhap vao so n = ');readln(n);
i:=1;
s:=0;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln('Tong cua ',n,' so tu nhien dau tien la ',S);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình tính tổng S=1+1/2+1/3+......+1/n (Sử dụng lênh lặp while...do)
CT đây nhé!:
program tinhtong;
uses crt;
var i, n : integer; S : real;
begin
clrscr;
writeln('Nhap so thu n: '); readln(n);
S:=0; i:=1;
while i<=n do begin
S:=S+1/i; i:=i+1;
end;
writeln('Tong la: ',S:2:3);
readln
end.
Đúng 0
Bình luận (0)
program tinhtong;
uses crt;
var i, n : integer; S : real;
begin
clrscr;
writeln('Nhap so thu n: '); readln(n);
S:=0; i:=1;
while i<=n do begin
S:=S+1/i; i:=i+1;
end;
writeln('Tong la: ',S:2:3);
readln
end.