cho số n hãy viết chương trình in ra màn hình chữ số lớn nhất vả chữ số nhỏ nhất của n
m được thành lập bằng cách đổi chữ số đầu và cuỗi cho nhau,in ra màn hình m
pascal nha
Quảng cáo
2 câu trả lời 247
Để giải quyết bài toán này, bạn có thể làm như sau:
1. Chuyển số n thành một chuỗi để dễ xử lý từng chữ số.
2. Tìm chữ số lớn nhất và chữ số nhỏ nhất trong chuỗi chữ số của n.
3. Đổi chỗ chữ số đầu và chữ số cuối của chuỗi.
4. In ra màn hình chữ số lớn nhất và chữ số nhỏ nhất ban đầu, và các chữ số còn lại theo thứ tự ban đầu đã được đổi chỗ.
Dưới đây là một ví dụ về cách thực hiện trong ngôn ngữ Pascal:
program MaxMinSwap;
var
n, m: String;
i, maxDigit, minDigit: Integer;
temp: Char;
begin
Write('Nhập số n: ');
ReadLn(n);
// Tìm chữ số lớn nhất và chữ số nhỏ nhất
maxDigit := Ord(n[1]) - Ord('0');
minDigit := Ord(n[1]) - Ord('0');
for i := 2 to Length(n) do
begin
if Ord(n[i]) - Ord('0') > maxDigit then
maxDigit := Ord(n[i]) - Ord('0');
if Ord(n[i]) - Ord('0') < minDigit then
minDigit := Ord(n[i]) - Ord('0');
end;
// Đổi chỗ chữ số đầu và chữ số cuối
temp := n[1];
n[1] := n[Length(n)];
n[Length(n)] := temp;
// In ra chữ số lớn nhất, chữ số nhỏ nhất và chuỗi số sau khi đổi chỗ
WriteLn('Chữ số lớn nhất: ', maxDigit);
WriteLn('Chữ số nhỏ nhất: ', minDigit);
WriteLn('Sau khi đổi chỗ: ', n);
end.
Lưu ý rằng trong ví dụ này, chúng ta giả sử rằng số n đã nhập là một số nguyên dương. Bạn có thể thêm kiểm tra đầu vào để đảm bảo rằng n là một số hợp lệ và thực hiện xử lý phù hợp nếu n không phải là một số nguyên dương.
Để giải quyết bài toán này, bạn có thể làm như sau:
1. Chuyển số n thành một chuỗi để dễ xử lý từng chữ số.
2. Tìm chữ số lớn nhất và chữ số nhỏ nhất trong chuỗi chữ số của n.
3. Đổi chỗ chữ số đầu và chữ số cuối của chuỗi.
4. In ra màn hình chữ số lớn nhất và chữ số nhỏ nhất ban đầu, và các chữ số còn lại theo thứ tự ban đầu đã được đổi chỗ.
Dưới đây là một ví dụ về cách thực hiện trong ngôn ngữ Pascal:
program MaxMinSwap;
var
n, m: String;
i, maxDigit, minDigit: Integer;
temp: Char;
begin
Write('Nhập số n: ');
ReadLn(n);
// Tìm chữ số lớn nhất và chữ số nhỏ nhất
maxDigit := Ord(n[1]) - Ord('0');
minDigit := Ord(n[1]) - Ord('0');
for i := 2 to Length(n) do
begin
if Ord(n[i]) - Ord('0') > maxDigit then
maxDigit := Ord(n[i]) - Ord('0');
if Ord(n[i]) - Ord('0') < minDigit then
minDigit := Ord(n[i]) - Ord('0');
end;
// Đổi chỗ chữ số đầu và chữ số cuối
temp := n[1];
n[1] := n[Length(n)];
n[Length(n)] := temp;
// In ra chữ số lớn nhất, chữ số nhỏ nhất và chuỗi số sau khi đổi chỗ
WriteLn('Chữ số lớn nhất: ', maxDigit);
WriteLn('Chữ số nhỏ nhất: ', minDigit);
WriteLn('Sau khi đổi chỗ: ', n);
end.
Lưu ý rằng trong ví dụ này, chúng ta giả sử rằng số n đã nhập là một số nguyên dương. Bạn có thể thêm kiểm tra đầu vào để đảm bảo rằng n là một số hợp lệ và thực hiện xử lý phù hợp nếu n không phải là một số nguyên
Quảng cáo
Câu hỏi hot cùng chủ đề
-
4109