Đề bài: Tìm số lớn nhất trong các số a, b, c, d được nhập vào từ bàn phím
Để thực hiện bài tập này khá đơn giản, bạn chỉ cần yêu cầu người dùng nhập vào 4 số a, b, c, d cần so sánh( có thể giống nhau) và sau đó sẽ so sánh 4 số này với nhau hoặc giá trị max nào đó và cuối cùng đưa ra kết quả. Các bạn có thể tham khảo bài giải đơn giản dưới nhé !
Ta có chương trình tham khảo hoàn chỉnh như sau:
Mã:
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 c>max then max:=c;
if d>max then max:=d;
Writeln('So lon nhat la: ',max: 4: 2);
Readln;
END.
Giải thích hướng dẫn chi tiết
Đầu tiên khai báo các thông tin cơ bản của chương trình như tên, các biến trong chương trình, chính là a, b, c, d. Bạn khai báo như sau:
- Tên chương trình : TIM_SO_LON_NHAT
- Thư viện sử dụng : crt
- Biến : a, b, c, d, max
Mã:
Program TIM_SO_LON_NHAT; { Khai báo tên chương trình}
Uses crt; { Sử dụng thư viện crt}
Var a,b,c,max: real; { khai báo các biến}
Phần khai báo và biến thì tùy các bạn thích khai báo như thế nào cũng được.
Tiếp theo ta là phần chính của chương trình này, hai đoạn BEGIN và END. Luôn bắt buộc trong một chương trình Pascal.
Trong đoạn này, ta sẽ làm sạch màn hình bằng câu lệnh Clrsrc;. Nhớ khi viết lệnh luôn kết thúc bằng dấu chấm phẩy như trong PHP nhé !
Sau đó, in ra màn hình dòng thông báo TIM SO LON NHAT TRONG BON SO A, B, C, D và dòng kẻ ngang bằng câu lệnh Writeln() như sau :
Mã:
BEGIN
Clrsrc;
Writeln(‘TIM SO LON NHAT TRONG BON SO A,B,C,D’); {In ra màn hình dòng thông báo TIM SO LON NHAT TRONG BON SO A, B, C, D}
Writeln(‘------------------------------------------------------------------‘);
END.
Dòng lệnh yêu cầu người dùng nhập vào 4 số a,b,c,d và câu lệnh ReadLn sẽ làm con trỏ xuống dòng khi người dùng nhập xong các số cần thiết giống như WriteLn ở trên vậy. Ta cũng làm tương tự như trên :
Mã:
{yêu cầu người dùng nhập vào các số a,b,c,d}
Write('Nhap a=');
Readln(a);
Write('Nhap b=');
Readln(b);
Write('Nhap c=');
Readln(c);
Write('Nhap d=');
Readln(d);
max:=a;
{Thực hiện phép so sánh các giá trị và đưa ra kết quả}
If b>max then max:=b;
If c>max then max:=c;
if d>max then max:=d;
Writeln('So lon nhat la: ',max: 4: 2);
Ta sẽ set giá trị cho biến max là a, khi đó chương trình lần lượt so sánh các số a,b,c,d mà người dùng nhập với giá trị max. Cuối cùng in kết quả ra màn hình với dòng lệnh writeln(‘So lon nhat la: ‘,max: 4:2);
Mở rộng :
Các bạn có thể tham khảo cách dưới đây.
Áp dụng câu lệnh if else, so sánh lần lượt các số với nhau để đưa ra kết quả trực tiếp trên màn hình. Nếu 4 số giống nhau thì thông báo 4 số bằng nhau :
Mã:
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);
if (a>b) and (a>c) then writeLn('a la so lon nhat')
else if (b>a) and (b>c) and (b>d) then writeln('b la so lon nhat')
else if (c>a) and (c>b) and (c>d) then writeln('c la so lon nhat')
else if (d>a) and (d>b) and (d>c) then writeln('d la so lon nhat')
else writeln ('a=b=c=d')
readln;
END.
Chúc các bạn thành công !
Để thực hiện bài tập này khá đơn giản, bạn chỉ cần yêu cầu người dùng nhập vào 4 số a, b, c, d cần so sánh( có thể giống nhau) và sau đó sẽ so sánh 4 số này với nhau hoặc giá trị max nào đó và cuối cùng đưa ra kết quả. Các bạn có thể tham khảo bài giải đơn giản dưới nhé !
Ta có chương trình tham khảo hoàn chỉnh như sau:
Mã:
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 c>max then max:=c;
if d>max then max:=d;
Writeln('So lon nhat la: ',max: 4: 2);
Readln;
END.
Giải thích hướng dẫn chi tiết
Đầu tiên khai báo các thông tin cơ bản của chương trình như tên, các biến trong chương trình, chính là a, b, c, d. Bạn khai báo như sau:
- Tên chương trình : TIM_SO_LON_NHAT
- Thư viện sử dụng : crt
- Biến : a, b, c, d, max
Mã:
Program TIM_SO_LON_NHAT; { Khai báo tên chương trình}
Uses crt; { Sử dụng thư viện crt}
Var a,b,c,max: real; { khai báo các biến}
Phần khai báo và biến thì tùy các bạn thích khai báo như thế nào cũng được.
Tiếp theo ta là phần chính của chương trình này, hai đoạn BEGIN và END. Luôn bắt buộc trong một chương trình Pascal.
Trong đoạn này, ta sẽ làm sạch màn hình bằng câu lệnh Clrsrc;. Nhớ khi viết lệnh luôn kết thúc bằng dấu chấm phẩy như trong PHP nhé !
Sau đó, in ra màn hình dòng thông báo TIM SO LON NHAT TRONG BON SO A, B, C, D và dòng kẻ ngang bằng câu lệnh Writeln() như sau :
Mã:
BEGIN
Clrsrc;
Writeln(‘TIM SO LON NHAT TRONG BON SO A,B,C,D’); {In ra màn hình dòng thông báo TIM SO LON NHAT TRONG BON SO A, B, C, D}
Writeln(‘------------------------------------------------------------------‘);
END.
Dòng lệnh yêu cầu người dùng nhập vào 4 số a,b,c,d và câu lệnh ReadLn sẽ làm con trỏ xuống dòng khi người dùng nhập xong các số cần thiết giống như WriteLn ở trên vậy. Ta cũng làm tương tự như trên :
Mã:
{yêu cầu người dùng nhập vào các số a,b,c,d}
Write('Nhap a=');
Readln(a);
Write('Nhap b=');
Readln(b);
Write('Nhap c=');
Readln(c);
Write('Nhap d=');
Readln(d);
max:=a;
{Thực hiện phép so sánh các giá trị và đưa ra kết quả}
If b>max then max:=b;
If c>max then max:=c;
if d>max then max:=d;
Writeln('So lon nhat la: ',max: 4: 2);
Ta sẽ set giá trị cho biến max là a, khi đó chương trình lần lượt so sánh các số a,b,c,d mà người dùng nhập với giá trị max. Cuối cùng in kết quả ra màn hình với dòng lệnh writeln(‘So lon nhat la: ‘,max: 4:2);
Mở rộng :
Các bạn có thể tham khảo cách dưới đây.
Áp dụng câu lệnh if else, so sánh lần lượt các số với nhau để đưa ra kết quả trực tiếp trên màn hình. Nếu 4 số giống nhau thì thông báo 4 số bằng nhau :
Mã:
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);
if (a>b) and (a>c) then writeLn('a la so lon nhat')
else if (b>a) and (b>c) and (b>d) then writeln('b la so lon nhat')
else if (c>a) and (c>b) and (c>d) then writeln('c la so lon nhat')
else if (d>a) and (d>b) and (d>c) then writeln('d la so lon nhat')
else writeln ('a=b=c=d')
readln;
END.
Chúc các bạn thành công !