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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
Bảng xếp hạng
Tất cả
Toán
Vật lý
Hóa học
Sinh học
Ngữ văn
Tiếng anh
Lịch sử
Địa lý
Tin học
Công nghệ
Giáo dục công dân
Âm nhạc
Mỹ thuật
Tiếng anh thí điểm
Lịch sử và Địa lý
Thể dục
Khoa học
Tự nhiên và xã hội
Đạo đức
Thủ công
Quốc phòng an ninh
Tiếng việt
Khoa học tự nhiên
- Tuần
- Tháng
- Năm
-
DHĐỗ Hoàn VIP60 GP
-
50 GP
-
41 GP
-
26 GP
-
119 GP
-
VN18 GP
-
14 GP
-
N12 GP
-
LD10 GP
-
10 GP
REFER
*Dạng thiếu:
if <điều kiện> then <câu lệnh>;
VD: if a>b then write(a);
HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì kết thúc.
*Dạng đủ:
if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
VD: if a>b then write(a) else write(b);
HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh 1 ngược lại thực hiện câu lệnh 2 và kết thúc.
For <biến điếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
– Hoạt động: câu lệnh lặp sẽ thực hiện câu lệnh nhiều lần, mỗi lần là một vòng lặp. Số vòng lặp là biết trước và bằng giá trị cuối – giá trị đầu+1. Khi thực hiện, ban đầu biến đếm sẽ nhận giá trị đầu, sau mỗi vòng lặp, biến đếm được tự động tăng thêm 1 đơn vị cho đến khi bằng giá trị cuối.
Vd:
program ct;
uses crt;
var i,n,s:integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(‘tong cua n do tu nhien dau tien la:’,s);
readln
end.
* cú pháp while:
While <điều kiện> do<câu lệnh>;
– hoạt động:
B1:kiểm tra điều kiện
B2: nếu điều kiện sai, câu lệnh sẽ bị bỏ qua và việc thực hiện lệnh lặp kết thúc. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại bước 1.
Vd:
T:=0;
i:=1;
while i<=100 do begin T:=T+1/i; i:=i+1; end;
writeln(T)