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
Những câu hỏi liên quan
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 !
Sử dụng vòng lặp với số lần biết trước (for...to...đo) viết chương trình tính tổng của N số tự nhiên đầu tiên T=1+2+3+...N.N là số nguyên được nhập từ bàn phím Giúp mình với mai mình nộp bài rồi🥺🥺
uses crt;
var i,n,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do t:=t+i;
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình sử dụng lệnh while....do để tính tổng của n số tự nhiên đầu tiên nhập vào từ bàn phím Giải hộ mình cảm ơn bạn..
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
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 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)
Câu 14: (3,0 điểm) Em hãy sử dụng câu lệnh lặp với số lần biết trước viết chương trinh Pascal để giải bài toán sau: Tính tổng S= 1 + 2 + 3 +...+n
Program HOC24;
var i,n: integer;
s: longint;
begin
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s:=s+i;
write('S = ',s);
readln
end.
Đúng 1
Bình luận (0)
Tin Học 8
Sử dụng câu lệnh for...to...do.Viết chương trình tính tổng của N số tự nhiên chẵn đầu tiên và in kết quả ra màn hình, với N được nhập từ bàn phím
Cảm ơn