Câu 8. Viết thuật toán và chương trình hoàn chỉnh sử dụng câu lệnh For … do để tính tổng của 20 số tự nhiên đầu tiên S=1 2 3 ... 20 (3 điểm)Câu 9 (1 điểm). Cho đoạn chương trình: ...

2

TA

Trần Ái Linh

12 tháng 5 2021

Câu 8.

program im_14424;

uses crt;

var S: byte;

i: byte;

begin

clrscr;

S:=0;

for i:=1 to 20 do

S:=S+i;

writeln('Tong cua 20 so tu nhien dau tien la: ,S);

readln

end.
Câu 9.

j:=2 → Gán j = 2.

for i:=1 to 5 do → lặp lại 5 lần

j:=j+2 →

Lần 1: 4

Lần 2: 6

Lần 3: 10

Lần 4: 12

Lần 5: 14

Đúng(2)

TG

Trúc Giang

12 tháng 5 2021

Câu 1:

uses crt;
var sum,i:longint;
begin
clrscr;sum:=0;
for i:=1 to 20 do sum:=sum+i;
write(sum);
readln
end.

Câu 2:

i = 1; j = 4i = 2; j = 6i = 3; j = 8i = 4; j = 10i = 5; j = 12

LN

Linh Nhi

4 tháng 3 2022

Bài toán tính tổng : S=1+1/2+1/3+...+1/100

a.Nêu thuật toán và viết chương trình sử dụng câu lệnh For...to...do

b.Nêu thuật toán và viết chương trình sử dụng câu lệnh While...do

1

NL

Nguyễn Lê Phước Thịnh

4 tháng 3 2022

a: uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

for i:=1 to 100 do s:=s+1/i;

writeln(s:4:2);

readln;

end.

b:

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

i:=0;

while i<=100 do

begin

inc(i);

s:=s+1/i;

end;

writeln(s:4:2);

readln;

end.

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...

H

huyokkkkk

28 tháng 3 2023

0

TA

Thế anh lã

21 tháng 3 2023

b) Em hãy viết chương trình Tính tổng của 20 số tự nhiên đầu tiên bằng câu lệnh for … do và while… do ?

2

NH

Nguyễn Hoàng Duy

21 tháng 3 2023

Sử dụng vòng lặp while...do:

program TinhTong20SoTNN;
var
i, sum: integer;
begin
i := 1;
sum := 0;
while i <= 20 do
begin
sum := sum + i;
i := i + 1;
end;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.

NH

Nguyễn Hoàng Duy

21 tháng 3 2023

Sử dụng vòng lặp for...do:

program TinhTong20SoTNN;
var
i, sum: integer;
begin
sum := 0;
for i := 1 to 20 do
sum := sum + i;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.

N

Ngân

3 tháng 3 2022

Viết chương trình tính tổng S = 3 +6 +9 + … + 90 Sử dụng câu lệnh for do

Viết chương trình tính tổng S = 3 +6 +9 + … + 90 Sử dụng câu lệnh while do

2

I

ILoveMath

3 tháng 3 2022

For...do:

var s,i: integer;

begin

readln(s,i);

s:=0;

For i:=3 to 99 do

If i mod 3 = 0 do s:=s+i;

write(s)

readln;

end.

while ... do:

Var i,S:integer;

Begin

Readln(i,s);

S:=0;

i:=3;

while i<=99 do

if i mod 3 = 0 then s:=s+i;

write(s);

Readln;

End.

Đúng(2)

I

ILoveMath

3 tháng 3 2022

For...do:

var s,i: integer;

begin

readln(s,i);

s:=0;

For i:=3 to 99 do

If i mod 3 = 0 do s:=s+i;

write(s);

readln;

end.

while ... do:

Var i,S:integer;

Begin

Readln(i,s);

S:=0;

i:=3;

while i<=99 do

if i mod 3 = 0 then s:=s+i;

write(s);

Readln;

End.

Câu 1: Sử dụng vòng lặp for ... do, viết chương trình tính tổng của 10 số tự nhiên đầu tiên ?Câu 2: Viết chương trình tìm xem có bao nhiêu số dương trong N số nhập vào từ bàn phímCâu 3: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan...

MP

Ma Phan Đức

3 tháng 2 2021

1

NL

Nguyễn Lê Phước Thịnh

3 tháng 2 2021

Câu 1:

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do

s:=s+i;

writeln('Tong cua 10 so tu nhien dau tien la: ',s);

readln;

end.

Câu 2:

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do

if a[i]>0 then inc(dem);

writeln('So luong phan tu duong la: ',dem);

readln;

end.

Câu 3:

uses crt;

var i,j:integer;

begin

clrscr;

for i:=1 to 9 do

begin

writeln('Bang nhan ',i,' la: ');

for j:=1 to 10 do

writeln(i,'*',j,'=',i*j);

delay(200);

end;

readln;

end.

MN

Minh Ngọc

10 tháng 3 2022

Hãy viết chương trình Pascal tính tổng của 100 số tự nhiên liên tiếp.

Yêu cầu: Viết 2 chương trình sử dụng 2 dạng câu lệnh for...do và while...do

1

NL

Nguyễn Lê Phước Thịnh

11 tháng 3 2022

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do t:=t+i;

writeln(t);

readln;

end.

MN

Minh Ngọc

10 tháng 3 2022

Hãy viết chương trình Pascal tính tổng của 100 số tự nhiên liên tiếp.

Yêu cầu: Viết 2 chương trình sử dụng 2 dạng câu lệnh for...do và while...do

1

NL

Nguyễn Lê Phước Thịnh

11 tháng 3 2022

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do t:=t+i;

writeln(t);

readln;

end.

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 đó...

N

nguyenhoang

21 tháng 4 2020

#Tiếng anh lớp 8

0

NM

Nguyễn Mai Anh Đào

7 tháng 3 2023

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

2

PS

Phía sau một cô gái

7 tháng 3 2023

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.

KV

Kiều Vũ Linh

7 tháng 3 2023

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.