Review Viết chương trình so sánh 4 số 2022

Contents

Thủ Thuật Hướng dẫn Viết chương trình so sánh 4 số Chi Tiết

You đang tìm kiếm từ khóa Viết chương trình so sánh 4 số được Cập Nhật vào lúc : 2022-05-05 17:40:18 . Với phương châm chia sẻ Kinh Nghiệm Hướng dẫn trong nội dung bài viết một cách Chi Tiết 2022. Nếu sau khi Read nội dung bài viết vẫn ko hiểu thì hoàn toàn có thể lại phản hồi ở cuối bài để Tác giả lý giải và hướng dẫn lại nha.

211

lý thuyết
trắc nghiệm
hỏi đáp
bài tập sgk

Cho 4 số a, b, c, d. Viết chương trình tìm giá trị lớn số 1 và đưa ra màn hình hiển thị kết quả

Các vướng mắc tương tự

Đề bài: Tìm số lớn số 1 trong những số a, b, c, d được nhập vào từ bàn phím Để thực thi bài tập này khá đơn thuần và giản dị, bạn chỉ việc yêu cầu người tiêu dùng nhập vào 4 số a, b, c, d cần so sánh( hoàn toàn có thể giống nhau) và tiếp theo này sẽ so sánh 4 số này với nhau hoặc giá trị max nào đó và ở đầu cuối đưa ra kết quả. Các bạn hoàn toàn có thể tìm hiểu thêm bài giải đơn thuần và giản dị dưới nhé !

Ta có chương trình tìm hiểu thêm hoàn hảo nhất 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.

Giải thích hướng dẫn rõ ràng
Đầu tiên khai báo những thông tin cơ bản của chương trình như tên, những biến trong chương trình, đó đó là a, b, c, d. You 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 những biến

Phần khai báo và biến thì tùy những bạn thích khai báo ra làm sao cũng khá đượ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 hiển thị 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 hiển thị 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 hiển thị 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 tiêu 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 tiêu dùng nhập xong những số thiết yếu in như WriteLn ở trên vậy. Ta cũng làm tương tự như trên :

yêu cầu người tiêu dùng nhập vào những 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 những 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 những số a,b,c,d mà người tiêu dùng nhập với giá trị max. Cuối cùng in kết quả ra màn hình hiển thị với dòng lệnh writeln(‘So lon nhat la: ‘,max: 4:2); Mở rộng : Các bạn hoàn toàn có thể tìm hiểu thêm cách dưới đây.
Áp dụng câu lệnh if else, so sánh lần lượt những số với nhau để lấy ra kết quả trực tiếp trên màn hình hiển thị. 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 những bạn thành công xuất sắc !

Sửa lần cuối bởi điều hành quản lý viên: 13/12/18

Chủ đề bai tap pascal bai tap pascal 11 giai pascal 11 pascal pascal co ban