PH
Những câu hỏi liên quan
Em hãy sử dụng câu lệnh lặp với số lần biết trước biết chương trình pascal để giải bài toán sau:S=1+2+3+...+10
program TinhTong;
var
i, S: integer;
begin
S := 0;
for i := 1 to 10 do
S := S + i;
writeln('Tong cac so tu 1 den 10 la: ', S);
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)
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
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.
Đúng 0
Bình luận (0)
Viết chương trình Pascal có khai báo và sử dụng biếnNhập vào chiều cao, cân nặng của một bạn. Hãy viết chương trình Pascal để tính chỉ số BMI của bạn đó.a. Gõ chương trình, giải thích câu lệnh. Lưu chương trình với tên BMI_TenHS.pas. Dịch và sửa lỗi gõ (nếu có).b.Chạy chương trình với bộ dữ liệu (Cân nặng, Chiều cao) như sau (68; 1.75); (56;1.67; (75; 1.89). Chú ý: khôngsửdụnglệnhclrscr.
Đọc tiếp
Viết chương trình Pascal có khai báo và sử dụng biến
Nhập vào chiều cao, cân nặng của một bạn. Hãy viết chương trình Pascal để tính chỉ số BMI của bạn đó.
a. Gõ chương trình, giải thích câu lệnh. Lưu chương trình với tên BMI_TenHS.pas. Dịch và sửa lỗi gõ (nếu có).
b.Chạy chương trình với bộ dữ liệu (Cân nặng, Chiều cao) như sau (68; 1.75); (56;1.67; (75; 1.89). Chú ý: khôngsửdụnglệnhclrscr.
"Trình bày cấu trúc lặp với số lần biết trước trong pascal Sử dụng câu lệnh lắp tiến và lặp lùi For -Do trong pascal để giải bài toán: Tính n giai thừa (n!), với n là một số nguyên dương lớn hơn 1"
Tham khảo:
* Lặp tiến :
uses crt;
var i, n, P : longint;
begin
clrscr;
P := 1;
write('nhap so n : '); readln(n);
for i := 1 to n do P := P * i;
writeln(n,'! = ', P);
readln
end.
* Lặp lùi :
uses crt;
var i, n, P : longint;
begin
clrscr;
P := 1;
write('nhap so n : '); readln(n);
for i := n downto 1 do P := P * i;
writeln(n,'! = ', P);
readln
end.
Đúng 4
Bình luận (0)
MN
20 tháng 1 2022 lúc 13:57
Hãy viết chương trình Pascal có sử dụng câu lệnh lặp
Yêu cầu:
hãy nhập vào từ bàn phím 6 số tự nhiên đầu tiên
hãy in ra màn hình các số chẵn trong 6 số tự nhiên trên
uses crt;
var a,t,i:integer;
begin
clrscr;
t:=0;
for i:=1 to 6 do
begin
readln(a);
if (a mod 2=0) then t:=t+a;
end;
writeln(t);
readln;
end.
Đúng 0
Bình luận (1)
Bài 1: Viết chương trình pascal thực hiện các yêu cầu sau:
a) Nhập từ bàn phím 1 số nguyên n
b) In ra màn hình kết quả tổng các số nguyên từ 1 đến n
(sử dụng câu lệnh lặp while...do)
Bài 2:
Viết chương trình pascal thực hiện câc yêu cầu sau:
a) Nhập từ bàn phím 1 số nguyên dương n
b) In ra màn hình kết quả tổng các số lẻ từ 1 đến n
(sử dụng câu lệnh lặp while...do
giúp mình với mình đang cần gấp rất gấp luôn
Đọc tiếp
Bài 1: Viết chương trình pascal thực hiện các yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên n b) In ra màn hình kết quả tổng các số nguyên từ 1 đến n (sử dụng câu lệnh lặp while...do) Bài 2: Viết chương trình pascal thực hiện câc yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên dương n b) In ra màn hình kết quả tổng các số lẻ từ 1 đến n (sử dụng câu lệnh lặp while...do giúp mình với mình đang cần gấp rất gấp luôn
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
Đúng 1
Bình luận (0)
Bài 2:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
Đúng 1
Bình luận (0)
MN
10 tháng 3 2022 lúc 19:23
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
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
MN
10 tháng 3 2022 lúc 14:27
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
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)