Viết chương trình tìm giá trị lớn nhất trong 4 số thực nhập từ bàn phím

Top 1 ✅ 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]. nam 2022 được cập nhật mới nhất lúc 2021-12-14 03:22:35 cùng với các chủ đề liên quan khác

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].

Hỏi:

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].

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].

Đáp:

truongankim:

Uses crt;
Var a， b， c， d，max:real;

BeginClrscr;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:1:2];

Readln;

End.

truongankim:

Uses crt;
Var a， b， c， d，max:real;

BeginClrscr;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:1:2];

Readln;

End.

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].

Xem thêm : ...

Vừa rồi, seonhé.vn đã gửi tới các bạn chi tiết về chủ đề 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]. nam 2022 ❤️️, hi vọng với thông tin hữu ích mà bài viết "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]. nam 2022" mang lại sẽ giúp các bạn trẻ quan tâm hơn về 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]. nam 2022 [ ❤️️❤️️ ] hiện nay. Hãy cùng seonhé.vn phát triển thêm nhiều bài viết hay về 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]. nam 2022 bạn nhé.

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.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

ProgramMax_Min; Usescrt; Vara,b,c,d:integer; max,min:integer; Begin clrscr; write['nhap so thu nhat :']; readln[a]; max:=a; min:=a; write['nhap so thu hai :']; readln[b]; ifmaxb thenmin:=b; write['nhap so thu ba :']; readln[c]; ifmaxc thenmin:=c; write['nhap so thu tu :']; readln[d]; ifmaxd thenmin:=d; writeln['So lon nhat la :',max]; writeln['So nho nhat la :',min]; readln; End.

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 thì

If 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 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 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 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

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 :

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 :

{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 :

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 !