program ct_tinh;
uses crt;
var a,b,c:integer;
x,y:real;
begin
clrscr;
write['nhap so a= '];readln[a];
write['nhap so b= '];readln[b];
write['nhap so c= '];readln[c];
x:=a+b+c;
y:=[a+b]*[a+b]/c;
writeln['x= ',x];
writeln['y= ',y];
readln;
end.
Viết chương trình in ra màn hình 10 số tự nhiên đầu tiên.
Viết chương trình tính tổng các số từ 1 đến 100. Viết chương trình tính tổng các số từ 1 đến N.
Viết chương trình tổng các số chẵn từ 1 đến N.
Viết chương trình tính N giai thừa.
Viết chương kiểm tra xem N có phải số nguyên tố hay không.
Viết chương trình ra màn hình các số nguyên tố nhỏ hơn N.
Viết chương trình vẽ ra hình chữ nhật có chiều ngang là W, chiều dọc là H, với W và H là 2 số nguyên nhập từ bàn phím.
Viết chương trình nhập không giới hạn số, kết thúc khi nhập vào số 0.
Viết chương trình tìm số hạng thứ N của dãy Fibonacci: 1 ; 1 ; 2 ; 3 ; 5 ; 8 ; 11 ; . . . {\displaystyle 1;1;2;3;5;8;11;...}
If a>0 then writeln [‘a la so lon hon’];
2. Câu lệnh for…do…
Câu lệnh for…do…. nghĩa là lặp với số lần biết trước, nếu ta biết được số lần lặp lại của một dãy số, một tổng,… thì ta sẽ sử dụng for…do….
For := to do
Trong đó:
- Biến có kiểu số nguyên integer
- Giá trị cuối phải lớn hơn giá trị đầu và là kiểu số nguyên.
- Câu lệnh có thể là câu lệnh đơn [một lệnh] hay lệnh ghép [nhiều lệnh]
Ví dụ: Tính tổng từ 1 tới 10 bằng Pascal
3. Câu lệnh while…do…
Câu lệnh while… do… nghĩa là lặp với số lần chưa biết trước và phụ thuộc vào một điều kiện cụ thể và chỉ dừng lại khi điều kiện đó sai.
Trong Pascal câu lệnh lặp với số lần chưa biết trước là:
while do ;
Ví dụ: Tính S là tổng các số tự nhiên sao cho số S nhỏ nhất để S > 1000
III. Những cấu trúc trong chương trình pascal lớp 11
1. Cấu trúc rẽ nhánh
Cấu trúc rẽ nhánh có dạng:
- Dạng thiếu: If then [đã được học ở lớp 8]
-Dạng đủ If then else
Ở dạng đủ câu lệnh được hiểu như sau: Nếu đúng thì được thực hiện, ngược lại thì được thực hiện.
Ví dụ: Nếu x