Viết chương trình tính tổng số chẵn với số lần lặp chưa biết trước: 2+4+6+...+2n
Những câu hỏi liên quan
Viết chương trình tính tổng số lẻ với số lần lặp chưa biết trước: 1+3+5+...+(2n-1)
uses crt;
var i,t,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
i:=1;
while i<=n do
begin
if i mod 2=1 then t:=t+i;
i:=i+1;
end;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình với số lần lặp chưa biết trước: a) 1+3+5+...+2n b) 2+4+6+...+(2n-1)
a)
program tinh_tong;
uses crt;
var n,i:integer;
tong:longint;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;tong:=0
while i<n do
begin
if i mod 2=1 then tong:=tong+i
else i:=i+1;
end;
tong:=tong+2*n;
writeln('tong la:',tong);
readln;
end.
b)
program tinh_tong;
uses crt;
var n,i:integer;
tong:longint;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;tong:=0
while i<n do
begin
if i mod 2=0 then tong:=tong+i
else i:=i+1;
end;
tong:=tong+(2*n-1);
writeln('tong la:',tong);
readln;
end.
Đúng 0
Bình luận (0)
b) uses crt;
var i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
i:=1;
while i<=2*n-1 do
begin
i:=i+1;
if i mod 2=0 then t:=t+i;
end;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình in ra màn hình tổng các số chẵn từ 1 đến n sử dụng câu lệnh lặp với số lần chưa biết trước
Xem chi tiết
uses crt;
var i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
t:=0;
while i<=n do
begin
if i mod 2=0 then t:=t+i;
i:=i+1;
end;
write(t);
readln;
end.
Đúng 2
Bình luận (0)
Viết chương trình thực hiện tính tổng dãy số S= 11+13+15+...+101 ( sử dụng lệnh lặp với số lần chưa biết trước)
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
i:=11;
while i<=101 do
begin
s:=s+i;
i:=i+2;
end;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình sử dụng câu lệnh lặp với số lần chưa biết trước để tính tổng của 100 số tự nhiên đầu tiên
program tong_100_so_tu_nhien;
uses crt;
var i, S: integer;
begin
S := 0;
for i := 1 to 100 do
S := S + i;
writeln('Tong cua 100 so tu nhien dau tien la ', S);
readln;
end.
Đúng 0
Bình luận (0)
Var i,s:integer;
Begin
i:=1;
s:=0;
While i<=100 do
Begin
s:=s+i;
i:=i+1;
End;
Write('Tong la ',s);
Readln;
End.
Đúng 0
Bình luận (0)
Câu 7: Nêu cú pháp câu lệnh lặp và cú pháp câu lệnh lặp với số lần chưa biết trước.Câu 8: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập từ bàn phím.Câu 9: Viết chương trình sử dụng lệnh lặp While..do để tính trung bình của n số thực x1, x2, x3,… xn. Các số n và x1, x2, x3,… xn được nhập vào từ bàn phím. giupa nha các hảo hán !
Đọc tiếp
Câu 7: Nêu cú pháp câu lệnh lặp và cú pháp câu lệnh lặp với số lần chưa biết trước.
Câu 8: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập từ bàn phím.
Câu 9: Viết chương trình sử dụng lệnh lặp While..do để tính trung bình của n số thực x1, x2, x3,… xn. Các số n và x1, x2, x3,… xn được nhập vào từ bàn phím.
giupa nha các hảo hán !
Viết chương trình sử dụng câu lệnh lặp với số lần chưa biết trước in ra các số lẻ từ 1 đến 10
Xem chi tiết
uses crt;
var i:integer;
begin
clrscr;
i:=1;
while i<=10 do
begin
if i mod 2=1 then write(i:4);
i:=i+1;
end;
readln;
end.
Đúng 1
Bình luận (0)
I. PHẦN LÍ THUYẾTcâu 1:cho đoạn chương trình sau:S:0;For i: 1 to 6 do S:S+i;Tính giá trị của S?II. PHẦN BÀI TẬP:câu 1: Viết chương trình tính tích của 10 số tự nhiên đầu tiên.Câu 2: Hãy phát biểu sự khác biệt giữa câu lệnh lặp với số lần lặp cho trước và câu lệnh lặp với sốlần lặp chưa biết trước.Câu 3: Hãy tìm hiểu đoạn chương trình Pascal sau đây và cho biết với đoạn lệnh đó chương trìnhthực hiện bao nhiêu vòng lặp?S:1; n:0;While S 10 doBeginn:n+1;S:S+n;End;
Đọc tiếp
I. PHẦN LÍ THUYẾT
câu 1:cho đoạn chương trình sau:
S:=0;
For i:= 1 to 6 do S:=S+i;
Tính giá trị của S?
II. PHẦN BÀI TẬP:
câu 1: Viết chương trình tính tích của 10 số tự nhiên đầu tiên.
Câu 2: Hãy phát biểu sự khác biệt giữa câu lệnh lặp với số lần lặp cho trước và câu lệnh lặp với số
lần lặp chưa biết trước.
Câu 3: Hãy tìm hiểu đoạn chương trình Pascal sau đây và cho biết với đoạn lệnh đó chương trình
thực hiện bao nhiêu vòng lặp?
S:=1; n:=0;
While S <=10 do
Begin
n:=n+1;
S:=S+n;
End;
viết chương trình pascal nhập vào đầy đủ n số tự nhiên ( n được nhập từ bàn phím) sử dụng lệnh lặp chưa biết trước số lần lặp để tính tổng các số đó và thông báo kết quả ra màn hìnhIn ra màn hình trung bình của cấc số đã cho ở trên
Xem chi tiết
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 (1)
program tinhtong;
uses crt;
var i,n,t:longint;
a:array[1..100]of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
t:=0;i:=1;
repeat
t:=t+i;
i:=i+1;
until i=n;
writeln('tong cua ca so tren la:',t);
writeln('trung binh cua cac so tren la:',t/n);
readln;
end.
Đúng 0
Bình luận (0)
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac so la: ',t);
writeln('Trung binh cong cac so la: ',t/n:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời