"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"
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
16 tháng 3 2023
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.
13 tháng 9 2023
Trong Scratch:
1. Đúng. Có ba khối lệnh khác nhau để thể hiện cấu trúc lặp trong thuật toán là: "Lặp lại vô hạn", "Lặp lại" và "Lặp từ ... đến ...". Các khối lệnh này được sử dụng để lặp lại một đoạn mã trong chương trình một số lần hoặc vô hạn.
2. Sai. Cấu trúc lặp có thể được sử dụng để lặp lại một đoạn mã trong chương trình một số lần nhất định, hoặc lặp lại vô hạn lần. Ngoài ra, cũng có thể sử dụng biến để điều khiển số lần lặp.
3. Sai. Cấu trúc lặp trong Scratch không chỉ sử dụng để lặp lại một lệnh mà còn để lặp lại một đoạn mã bao gồm nhiều lệnh.
4. Đúng. Điều kiện dừng lặp phải là một biểu thức logic để xác định khi nào cần dừng vòng lặp. Ví dụ, điều kiện có thể là một biến đếm số lần lặp, một biểu thức so sánh hoặc một biểu thức logic phức tạp hơn.
6 tháng 11
Uses Crt;
Var A : array [1..1000] of longint;
n, m, d, t, i, S, k : longint;
Begin
//Phan A
Clrscr;
Writeln(' Phan A ');
Write(' Ban hay nhap 1 so n bat ky: ');
Readln(n);
Write(' Cac so chia het cho ba tu 1 den ',n,' la: ');
For i:=1 to n do
If (i mod 3) = 0 then Write(' ',i);
//Phan B
Writeln;
Writeln(' Phan B ');
Write(' Ban hay nhap 1 so m bat ky: ');
Readln(m);
For i:=1 to m do
Begin
Write(' Ban hay nhap hang tu thu ',i,': ');
Readln(A[i]);
S:= S+A[i];
End;
Write(' Tong cua day so tren la: ',S);
//Phan C
Writeln;
Writeln(' Phan C ');
Write(' Ban hay nhap 1 so d bat ky: ');
Readln(d);
Write(' Ban hay nhap so K: ');
Readln(k);
For i:=1 to n do
Begin
Write(' Ban hay nhap hang tu thu ',i,': ');
Readln(A[i]);
If ((A[i] div k)=1)then t:=t+1;
End;
Write(' Co tat ca ',t,' so giong ',k);
Readln;
End.
TY
1
2 tháng 8 2019
Cú pháp lệnh lặp với số lần chưa biết trước:
while <điều kiện> do <câu lệnh>;
Đáp án: B
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.