Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Uses crt;
var x:char;
begin
clrscr;
readln(x);
write(chr(ord(x)-32));
readln;
end.
uses crt;
var n:string;
i,l:longint;
begin
clrscr;
read(n);
for i := 1 to length(n) do
case n[i] of
'A'..'Z' : n[i]:=chr(ord(n[i])+32);
end;
write(n);
end.
để hoàn tất việc thêm văn bản vào ảnh, ta có thể thực hiện những việc nào sau đây?
program ChuyenXauSangChuThuong;
var
str: string;
i: integer;
begin
write('Nhap mot xau ky tu: ');
readln(str);
for i := 1 to Length(str) do
str[i] := LowerCase(str[i]);
writeln('Xau ky tu chuyen thanh chu thuong la: ', str);
end.
Trong Pascal ko phân biệt chữ viết hoa hay viết thường đâu bạn nhé!
Ý tưởng:
Trong bảng mã ASCII, số thứ tự của chữ cái hoa nhỏ hơn số thứ tự của chữ cái thường là 32. Vì vậy ta có thể dùng 2 hàm CHR và ORD để chuyển đổi.
Uses crt;
Var ch:Char;
Function LOWCASE (c:Char):Char;
Begin
If c IN [‘A’..’Z’] Then LOWCASE:=CHR(ORD(c)+32)
Else LOWCASE:=c;
End;
Begin
Write(‘Nhap ký tu ch=’); Readln(ch);
Writeln(‘Ky tu hoa la: ‘, LOWCASE(ch));
Readln;
End.
Mik sai một lỗi nhỏ bạn thông cảm
Program Sara_Trang2;
use crt;
Var ch:Char;
Function LOWCASE(c:Char):Char;
Begin
If c IN [‘A’..’Z’] Then LOWCASE:=CHR(ORD(c)+32)
Else LOWCASE:=c;
End;
Begin
Write(‘Nhap ky tu ch=’); Readln(ch);
Writeln(‘Ky tu hoa la: ‘, LOWCASE(ch));
Readln
End.
đẩy tương tác cho câu này đi ae ơi
hổng bt lm :((