Viết chương trình pascal tìm giá trị lớn nhất

2019-12-01T01:37:37+11:00 2019-12-01T01:37:37+11:00 Bài 1: Tìm giá trị lớn nhất trong 4 số a, b, c, d.
Bài 2: Tìm giá trị nhỏ nhất trong 4 số a, b, c, d.
[Các số được nhập từ bàn phím] Tìm giá trị lớn nhất, tìm giá trị nhỏ nhất, Lập trình Pascal //baikiemtra.com/uploads/news/2019_11/bai-tap-lap-trinh-pascal.jpg

Bài 1: Tìm giá trị lớn nhất trong 4 số a, b, c, d.

Program TIM_SO_LON_NHAT;
Uses crt;
Var a,b,c,d,max:real;
Begin
Clrscr;
Writeln['TIM SO LON NHAT TRONG BON SO A, B, C, D'];
Writeln['-------------------------------'];
Write['Nhap a=']; Readln[a];
Write['Nhap b=']; Readln[b];
Write['Nhap c=']; Readln[c];
Write['Nhap d=']; Readln[d];
max:=a;
If b>max then max:=b;
If d>max then max:=d;
Writeln['So lon nhat la:',max:4:2];
Readln;
End.

Bài 2: Tìm giá trị nhỏ nhất trong 4 số a, b, c, d.

Program TIM_SO_NHO_NHAT;
Uses crt;
Var a,b,c,d,min:real;
Begin
Clrscr;
Writeln['TIM SO NHO NHAT TRONG BON SO A, B, C, D'];
Writeln['-------------------------------'];
Write['Nhap a=']; Readln[a];
Write['Nhap b=']; Readln[b];
Write['Nhap c=']; Readln[c];
Write['Nhap d=']; Readln[d];
min:=a;
If b 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