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

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

Trong đó:

While, do là các từ khóa

Điều kiện thường là một phép so sánh

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

program tinhtong;

uses crt;

var i, n, s: integer;

begin clrscr;

Write('N so tu nhien dau tien la: ');

readln(n);

s:=0;

i:=1;

while i<=n do begin

s:=s+i;

i:=i+1;

end;

writeln('Tong cac so la: ',s);

readln

end.

program tinhtong;

uses crt;

var i,n,t:longint;

a:array[1..100]of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do 

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

t:=0;i:=1;

repeat

t:=t+i;

i:=i+1;

until i=n;

writeln('tong cua ca so tren la:',t);

writeln('trung binh cua cac so tren la:',t/n);

readln;

end.

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Tong cac so la: ',t);

writeln('Trung binh cong cac so la: ',t/n:4:2);

readln;

end.

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 á:

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

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

for i:= 1 to n do
begin
  
end;

*Note: i là biến đếm đc khởi tạo với giá trị bắt đầu là 1. Vòng lặp sẽ thực hiện các câu lệnh bên trong begin và end với giá trị của i tăng lên 1 mỗi lần lặp cho đến khi i đạt giá trị n. Sau đó, các câu lệnh bên ngoài vòng lặp sẽ được thực hiện tiếp.

VD: nếu ta muốn in ra một dãy số từ 1 đến 10, ta có thể sử dụng câu lệnh lặp với số lần biết trước như sau:

for i:= 1 to 10 do
begin
  writeln(i);
end;

kết quả sẽ ra từ 1 đến 10

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.