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