Viết cú pháp của câu lệnh lặp với số lần biết trước. Giải thích cú pháp
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.
10 tháng 4 2021
Var dtb:real;
Begin
Repeat
Writeln('Nhap diem trung binh cua ban vao day:'); Readln(dtb);
Until (0<=dtb) and (dtb<=10);
If dtb>=5 then writeln ('Chuc mung,ban da dau!') else if dtb<5 then writeln('Xin chuc mung, ban da tach!');
Readln
End.
*Dòng lệnh in đậm có nghĩa là khi bạn nhập dtb mà không nằm trong phạm vi từ 0->10, nó sẽ bắt bạn phải nhập lại cho đến khi đúng phạm vi. Vd như dưới đây: (Good luck for you :D :D )
10 tháng 4 2021
uses crt;
var lt,th:real;
begin
clrscr;
write('Nhap diem LT:'); readln(lt);
write('Nhap diem TH:'); readln(th);
if (lt+th)/2>=5 then writeln('Dau')
else writeln('Rot');
readln;
end.
10 tháng 4 2021
*Khi A lớn nhất và A >=1500
Var i,A: integer;
Begin
While A<1500 do
Begin
i:=i+1;
A:=A+i;
End;
Write('Tong cua A la: ',A); [Hoặc Write('Tong cua A la:',A,' va can co ',i,' so') {Để in ra màn hình cần bao nhiêu số để có tổng >1500 ]
Readln
End.
10 tháng 4 2021
*Khi A lớn nhất và A<1500
Var i,A:integer;
Begin
i:=0; A:=0;
While A<1500 do
Begin
i:=i+1;
A:=A+i;
End;
A:=A-i;
i:=i-1;
Writeln('Tong A= ',A,' );
Readln;
End.
*Dòng lệnh in đậm mình ghi thêm và khác với bài kia có nghĩa là khi A>1500 thì phải trừ tổng A đi số (hoặc nhiều số) cuối cùng đã cộng cho tổng cho đến khi tổng A<1500. Vd như: A=1+2+3+4+5= 15 (tức A>10; A phải lớn nhất).Muốn cho A=10 thì trừ đi số cuối cùng là 5 = 15-5=10. Còn nếu muốn A<10 thì trừ hai số cuối cùng đi hai số cuối cùng là : 15-5-4=6
Good luck for you! :D
9 tháng 4 2021
Nếu chưa học câu lệnh này thì rep lại cho mình để mình dùng mấy câu lệnh đã học từ b8 trở về trước nhá! Good luck for you :D
BA
9 tháng 4 2021
uses crt;
var i,n: longint;
begin
clrscr;
readln(n);
for i:=1 to n do write(i,' ');
readln
end.
9 tháng 4 2021
Uses crt;
Var a,b,n:integer; {Với a,b phải là số nhỏ thì dùng với kiểu integer}
Begin
Writeln('Nhap so n la:'); Readln(n);
a:=0; b:=0;
While a<=n do
Begin
b:=b+a;
a:=a+1; {Chỉ áp dụng với tổng các số liên tiếp}
end;
Writeln('Vay tong cac so tu 1 -> ',n,' la:',b);
Readln
End.
Bài mẫu của mình đây nhé!
K
9 tháng 4 2021
a) chương trình thực hiện 0 vòng lặp.
Giá trị của T sau vòng lặp laf 2
b) chương trình thực hiện 1 vòng lặp
Giá trị của X sau vòng lặp là 6
9 tháng 4 2021
a) Do không phải thực hiện một vòng lặp nào cả vì T được gán là 2 luôn đúng khi While T<2 do... thì T=1 hay <2 thì mới thực hiện vòng lặp
Nên T=2
b) Thực hiện một vòng lặp và X có gtri = 6
9 tháng 4 2021
Uses crt;
Var a,b,n:integer; {hoặc real,longint {tùy vào đơn vị của các số có nhỏ hay lớn}}
Begin
Writeln('Nhap so n la:'); Readln(n);
a:=0; b:=0;
While a<=n do
Begin
b:=b+a;
a:=a+1; {chỉ áp dụng khi tính tổng liên tiếp từ 1->n, không áp dụng tính tổng các số chẵn}
end;
Writeln('Vay tong cac so tu 1 -> ',n,' la:',b);
Readln
End.
*Nếu bạn muốn giải theo cách for..do hay tính tổng các số chẵn hay gì gì đó liên quan đến Tin học thì bảo mình nhé* Good luck for you :D :D
9 tháng 4 2021
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
*Cú pháp: For < Biến đếm > := < Giá trị đầu > to < Giá trị cuối > do < Câu lệnh >.
*Giải thích cú pháp:
- For, to, do là các từ khóa.
- Biến đếm là biến kiểu nguyên.
- Giá trị đầu, giá trị cuối là các giá trị nguyên.
Good luck for you! :D
Cú pháp: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Giải thích:
For, to, do là các từ khóa
Biến đếm thường là số nguyên hoặc biến kí tự
Giá trị đầu, giá trị cuối thường là số nguyên hoặc kí tự