Viết chương trình tìm số lớn nhất trong 4 số abcd được nhập từ bàn phím

Đề 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:

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.

• Tên chương trình : TIM_SO_LON_NHAT
• Thư viện sử dụng : crt
• Biến : a, b, c, d, max

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}

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é !

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.

{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];

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.

Reply: Bài tập Pascal : 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

Giờ học lập trình C/C++ hêt không biết pascal còn phát triển ở VN nữa không

Reply: Bài tập Pascal : 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

Giờ học lập trình C/C++ hêt không biết pascal còn phát triển ở VN nữa không

Reply: Bài tập Pascal : 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

Chương trình tin 11 vẫn phải học Pas bác

Reply: Bài tập Pascal : 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ử hỏi nếu ai dốt Tin và không thể làm được 1 bài Pascal nào, bọn con gái ý, thì có bị tạch môn và đúp lại năm sau không

Môn này nên cất vào Bảo tàng từ lâu rồi.

Reply: Bài tập Pascal : 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

Có nhé, mình là con gái đây đã từng bị rớt môn này và ở lại lớp mấy năm rồi nè

Trên đây là câu chuyện về những anh chàng coder

chưa biết pascal là ntn luôn , chưa từng đc học