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
Bài 7. Câu lênh lặp
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)
viết chương chình tính tổng bình phương các số chẵn từ 1 đến n, với n được nhập từ bàn phím. s = 2^2 + 4^2 + 6^2 +...+ N^2
ví dụ:
nhap n=5
tong la= 20
Uses crt;
var i,n,m: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(i mod 2=0) then m:=m+i*i;
writeln(m);
readln;
end.
Đúng 0
Bình luận (0)
GIÚP EM MN ƠI, MAI EM NỘP R Ạ T-T.
Xoá sạch màn hình kết quả, sử dụng vòng lặp While . do hoặc For..do viết chương trình tính tổng sau: S=1/1*2+1/2*3+1/3*4+.....+1/n*(n+1)
N nhập từ bàn phím
Program HOC24;
uses crt;
var i,n: integer;
s: real;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/(i*(i+1));
write('S= ',s:6:2);
readln
end.
Đúng 1
Bình luận (1)
Program HOC24;
var i,n: integer;
S: real;
begin
write('Nhap N: '); readln(n);
i:=1; s:=0;
while i<=n do
begin
s:=s+i*(i+1);
i:=i+1;
end;
write('S=',S:5:2);
readln
end.
Đúng 1
Bình luận (0)
viết chương chình tính tổng ( ví dụ 20 -> 50)
uses crt;
var i,t,a,b:integer;
begin
clrscr;
readln(a,b);
t:=0;
for i:=a to b do
t:=t+i;
write(t);
readln;
end.
Đúng 0
Bình luận (0)
Nhập vào n số bất kì , in ra màn hình " có bao nhiêu số chẵn" Vd: n=5 ( 2 9 8 6 1 ) có 3 số chẵn
Program HOC24;
var i,n,d: integer;
a: array[1..1000] of integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do read(a[i]); readln;
d:=0;
for i:=1 to n do if a[i] mod 2=0 then d:=d+1;
write('Co ',d,' so chan' );
readln
end.
Đúng 0
Bình luận (0)
Bước 1: s <-- 0; n<--2;
Bước 2: Nếu n>=5 thì chuyển tới bước 4
Bước 3: n<-- n+1; S<-- S+n và quay lại bước 2
Bước 4: In giá trị S và kết thúc thuật toán
a) Em hãy cho biết thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp?
Kết thúc giá trị của S bằng bao nhiêu?
b)Viết chương trình bằng Pascal để mô tả thuật toán đó
a) Thuật toán này sẽ thực hiện 3 vòng lặp và kết thúc với giá trị S = 9
b) Chương trình Pascal:
program vidu;
var
n, s: integer;
begin
n := 2;
s := 0;
while n < 5 do
begin
n := n + 1;
s := s + n;
end;
writeln('S =', s);
end.
Đúng 0
Bình luận (1)
VCT pascal nhập số n0xuất số hoàn toàn từ 0 đến nđếm có bao nhiêu số chính phương (không dùng for..do) chỉ dùng while..do cấp 2 thôi không có cấp 3 được
Đọc tiếp
VCT pascal nhập số n>0xuất số hoàn toàn từ 0 đến nđếm có bao nhiêu số chính phương (không dùng for..do) chỉ dùng while..do cấp 2 thôi không có cấp 3 được
Dùng lệnh for .....to...do tính tổng sau S=1+2+3+...+100 Mn chỉ cần viết cú pháp câu lệnh của câu này thôi ạ 🥺
sau khi thực hiện đoạn chương trình :
Pascal ?
Tong=0
For i =1 to 5 do ,tong =tong+i ;
writeln(' gia tri tong la tong= ,tong);
Sau khi thực hiện đoạn chương trình trên kết quả là( trình bày các bước làm)
giúp tớ với
tong=15
các bước làm:
lần lặp thứ 1: tong = 0 + 1 = 1
lần lặp thứ 2 : tong = 1 + 2 = 3
lần lặp thứ 3 : tong = 3 + 3 = 6
lần lặp thứ 4 : tong = 6 + 4 = 10
lần lặp thứ 5 : tong = 10 + 5 = 15
Đúng 1
Bình luận (0)
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
1:
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
t:=t+i*i;
write(t);
readln;
end.
Đúng 1
Bình luận (0)
2
program bt2;
var i,n,t:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
if i mod 2 = 1 then s:=s+i;
readln;
end.
Đúng 0
Bình luận (0)