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)

c1: while <điều kiện> do <câu lệnh>;

c3: var <tên biến>:array[<chỉ số đầu>..<chỉ số cuối>]of <kiểu dữ liệu>;

c4: for i:=1 to n do readln(a[i]);

Cú pháp:

Dạng xuôi: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Dạng ngược: For <biến đếm>:=<giá trị cuối> downto <giá trị đầu> to <câu lệnh>;

Hoạt động: 

Bước 1: Biến điều khiển nhận giá trị đầu.

Bước 2: Nếu giá trị biến điều khiển nhỏ hơn giá trị cuối thì chuyển đến bước 4.

Bước 3: {giá trị biến điều khiển bằng giá trị cuối} thực hiện câu lệnh, sau đó dừng lặp, chuyển tới câu lệnh tiếp theo vòng lặp.

Bước 4: Thực hiện câu lệnh sau do và tăng biến điều khiên tới giá trị tiếp theo.

cú pháp: \(for< biếnđếm>:=< giátrịđầu>to< giátrịcuối>do< câulệnh>;\)

Trong đó:\(for,to,do\) là từ khoá.

               biến đếm là biến kiểu số nguyên.

               giá trị đầu, giá trị cuối là giá trị nguyên.

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

Hoạt động:

Bước 1: Kiểm tra điều kiện 

Bước 2: Nếu điều kiện sai, câu lệnh sẽ bị bỏ qua và thực hiện kết thúc câu lệnh và nếu điều kiện đúng thực hiện câu lệnh và quay lại bước 1.

a: 125 mod 5<>0

b: 

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

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

write(t);

readln;

end.

c: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

d: 

Dạng thiếu: if <điều kiện> do <câu lệnh>;

Dạng đủ: if <điều kiện> do <câu lệnh 1> else <câu lệnh 2>;

Cú pháp: while <điều kiện> do <câu lệnh>;

TRong đó: điều kiện thường là phép so sánh

câu lệnh có thể là đơn hoặc ghép

while do là các từ khóa

for i: 1 to n do
đây là câu lênh lặp lại từ 1 đến n 

Dạng xuôi: For <biến đếm>: =<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Dạng ngược: For <biến đếm>: =<giá trị cuối> downto <giá trị đầu> to <câu lệnh>;

Câu lệnh điều kiện:

Dạng thiếu:

If < điều kiện > then < câu lệnh >;

Dạng đầy đủ:

If < điều kiện > then < câu lệnh 1 > else < câu lệnh 2 >;

Lệnh lặp:

Biết trước:

For< Biến đếm > := < Giá trị đầu > to< Giá trị cuối > do < Câu lệnh >;

Chưa biết trước:

while < điều kiện > do < câu lệnh >;

Công thức đọc tên là gì mình ko hiểu @@

Câu 4 đưa ra hình điểm của từ người hs là sao mình ko hiểu nên mình cứ cho là in ra toàn bộ điểm từng người hs nhé, có gì bạn xem xét lại xóa khúc đó:

Bài 4 nữa nhưng muốn nhập nhiêu hs thì tùy(tối đa 100, muốn hơn nữa sữa lệnh khai báo mãng) Khiến khích nên dùng bài này vì nó tiện á: