Viết chương trình số sánh a và b in ra màn hình số nhỏ hơn

I. Các bài tập viết chương trình tìm giá trị nhỏ nhất, giá trị lớn nhất.

1. Viết chương trình tìm giá trị nhỏ nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn phím).

2. Viết chương trình tìm giá trị lớn nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn phím).

3. Viết chương trình tìm giá trị lớn nhất, nhỏ nhất trong 4 số a, b, c, d.

4. Viết chương trình nhập vào một dãy số nguyên có n phần tử. In ra màn hình phần tử nhỏ nhất, phần tử lớn nhất và giá trị trung bình của danh sách ra màn hình

II. Các dạng câu lệnh trong chương trình Pascal

1. Câu lệnh if…then…

Nếu <Điều Kiện> thì

If <Điều kiện> then

Nếu điều kiện true thì biểu thức sẽ được thực hiện, còn nếu điều kiện false thì biểu thức sẽ không được thực hiện.

Câu lệnh if… then…. được dùng trong trường hợp để so sánh các phép toán hoặc các phép toán có điều kiện.

Ví dụ:So sánh hai số a, b

Nếu a>b thì in số a ra màn hình

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 <điều kiện> 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 <điều kiện> then (đã được học ở lớp 8)

-Dạng đủ If <điều kiện> then else

Ở dạng đủ câu lệnh được hiểu như sau: Nếu <điều kiện> đúng thì được thực hiện, ngược lại thì được thực hiện.

Ví dụ: Nếu x <= 200 thì số tiền phải trả là x*300 đồng. Nếu không thì số tiền phải trả là x*280 đồng

Đưa vào ngôn ngữ pascal là:

If x<=200 then

Writeln (‘So tien phai tra la ’, x*300, ‘dong’)

else

Writeln (‘So tien phai tra la ’, x*280, ‘dong’);

2. Cấu trúc lặp

Trong cấu trúc lặp có 2 dạng:

-Lặp dạng tiến:

For := to do ;

Ví dụ:

For i:=1 to 5 do writeln(‘i= ’,i);

Ta được kết quả như sau:

-Dạng lặp lùi

For := to do ;

For i:=10 downto 1 do if sqrt(i)>2 then s:=s+i;

Ta được kết quả như sau:

BÀI TẬP ÔN TẬP KIỂM TRA THỰC HÀNH 1 TIẾTCâu 1: Cho hai số thực a và b. Hãy cho biết kết quả so sánh hai số đó dưới dạng: “a lớn hơn b”, “b lớn a”, “ hai số bằng nhau”. a.Viết thuật toán b.Viết chương trình bằng ngôn ngữ pascal. Câu 2: Cho trước ba số dương a,b,c. Hãy mô tả thuật toán và viết chương trình pascal xem ba số đó có thể là độ dài ba cạnh của một tam giác hay không. Câu 3:Viết chương trình nhập chiều cao hai bạn Long và Trang, in ra màn hình kết quả so sánh chiều cao của hai bạn, vd như: “Ban Long cao hon”, “Ban Trang cao hon”, “hai ban bang nhau”a.Viết thuật toán.b.Viết chương trình. Câu 4: Cho trước ba số dương a,b,c. Hãy mô tả thuật toán và viết chương trình pascal xem ba số đó phải là bộ số piatgo hay không.*Gợi ý: Bình phương độ dài một cạnh bằng tổng bình phương h ai cạnh góc vuông. Câu 5: Cho điểm số các môn Văn, Toán, Lý, Hóa, anh văn nhập vào từ bàn phím. Viết thuật toán và viết chương trình pascal tính điểm trung bình, xếp loại học học sinh dưới dạng giỏi, khá, trung bình, yếu.BÀI LÀMCâu 1: Cho hai số thực a và b. Hãy cho biết kết quả so sánh hai số đó dưới dạng: “a lớn hơn b”, “b lớn a”, “ hai số bằng nhau”. a.Viết thuật toánXác định bài toán: Input: cho hai số a,bOutput: kết quả so sánh hai số a,bThuật toán: B1: Nhập hai số a,bB2: Nếu a>b thì kết quả là “a lớn hơn b” và chuyển bước b4.B3: Nếu ab then writeln(‘a lon hon b’); If ab then writeln(‘a lon hon b’)else if ac và b+c> a và a+c>b thì kết quả độ dài ba cạnh của một tam giác ngược lại, không phải độ dài ba cạnh của một tam giácB3: Kết thúc thuật toán. b.Viết chương trìnhProgram ba_canh_tam_giac;Uses crt;Var a,b,c: integer;BeginWrite(‘nhap so a =’); readln(a);Write(‘nhap so b =’); readln(b);Write(‘nhap so c =’); readln(c);If (a+b>c) and (b+c> a) and (a+c>b) then writeln(‘a,b,c la do dai ba canh cua mot tam giac’) else writeln(‘ a,b,c, khong phai do dai ba canh cua mot tam giac’); Readln;End.Câu 3:Viết chương trình nhập chiều cao hai bạn Long và Trang, in ra màn hình kết quả so sánh chiều cao của hai bạn, vd như: “Ban Long cao hon”, “Ban Trang cao hon”, “hai ban bang nhau”a.Viết thuật toán.Xác định bài toán: Input: cho chiều cao hai bạn Long, TrangOutput: kết quả so sánh chiều cao hai bạn Long, TrangThuật toán: B1: Nhập hai số Long, TrangB2: Nếu Long>Trang thì kết quả là “Long cao hon Trang” và chuyển bước b4.B3: Nếu LongTrang then writeln(‘Long cao hon Trang’); If LongTrang then writeln(‘Long cao hon Trang’); else if Long