UN
1
K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
NB
16 tháng 4 2023
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.
9 tháng 7 2021
Uses crt;
var x:char;
begin
clrscr;
readln(x);
write(chr(ord(x)-32));
readln;
end.
15 tháng 7 2021
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.
DC
31 tháng 10 2019
Ý 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.
ST
31 tháng 10 2019
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.
21 tháng 12 2018
Sử dụng hàm Upcase
Vd
var
s:string;
begin
readln(s);
s:=upcase(s);
write(s);
readln
end.
TN
1 tháng 12 2019
Trong Pascal ko phân biệt chữ viết hoa hay viết thường đâu bạn nhé!
ML
7 tháng 6 2020
Program HOC24;
var s: string;
n,i: integer;
a: array[1..32000] of string;
function chuyen(x: string): string;
begin
x[1]:=upcase(x[1]);
chuyen:=x;
end;
begin
write('Nhap xau : '); readln(s);
while s[1]=#32 do delete(s,1,1);
while s[length(s)]=#32 do delete(s,length(s),1);
while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);
writeln('Xau sau khi xoa dau cach : ',s);
s:=s+' ';
while length(s)<>0 do
begin
st:=copy(s,1,pos(' ',s)-1);
n:=n+1;
a[n]:=st;
delete(s,1,pos(' ',s));
end;
for i:=1 to n do write(chuyen(a[i]),' ');
readln
end.
Để sử dụng phím tắt nhằm thay đổi giữa chữ thường, CHỮ HOA và Viết Hoa Từng Từ. Bạn chọn văn bản >> Nhấn SHIFT + F3 cho đến khi cách viết hoa/thường bạn muốn được áp dụng.