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.
program ma_hoa_va_giai_ma;
uses crt;
var s : string;
i,a : integer;
t : char;
BEGIN
clrscr;
repeat
write('Nhap 1 de ma hoa, 2 de giai ma'); readln(a);
if(a<>1) and (a<>2) then writeln('Moi ban nhap lai');
until (a=1) or(a=2);
if a=1 then
begin
write('Nhap xau can ma hoa: '); readln(s);
write('Xau ket qua la: ');
for i:=1 to length(s) do
begin
t:=upcase(s[i]);
if (ord(t) >= 65) and (ord(t) <= 90) then
write(chr(((ord(t)-58) mod 26)+65)) else write(t);
end;
end
else if a=2 then
begin
write('Nhap xau can giai ma: '); readln(s);
write('Xau ket qua la: ');
for i:= 1 to length(s) do
begin
t:=upcase(s[i]);
if (ord(t) >= 65) and (ord(t) <= 90) then
write(chr(((ord(t)-46) mod 26)+65))
else write(t);
end;
end;
readln;
END.
Chúc em học giỏi
Uses Crt;
Var A:Array[1..20,1..20] Of Word;
n,i,j,k:Word;
Begin
Clrscr;
Write('Nhap N= '); Readln(n);
i:=n DIV 2 + 1;
j:=n DIV 2 + 2;
For k:=1 To n*n Do
Begin
A[i,j]:=k;
If k MOD n=0 Then j:=j+2 Else
Begin
j:=j+1;
i:=i-1;
End;
If j>n Then j:=j MOD n;
If i=0 Then i:=n;
End;
For i:=1 To n Do
Begin
For j:=1 To n Do write(a[i,j]:4);
Writeln;
End;
Readln
End.
Program HOC24;
var i,d1,d2: byte;
s: string;
begin
write('Nhap xau: '); readln(s);
d1:=0; d2:=0;
for i:=1 to length(s) do
begin
if s[i] in ['0'..'9'] then d1:=d1+1;
if s[i] in ['A'..'z'] then d2:=d2+1;
end;
writeln('So ky tu so: ',d1);
write('So ky tu chu cai: ',d2);
readln
end.
Bạn tham khảo chương trình này nhé!
program ma_hoa_va_giai_ma;
uses crt;
var s : string;
i,a : integer;
t : char;
BEGIN
clrscr;
repeat
write('Nhap 1 de ma hoa, 2 de giai ma'); readln(a);
if(a<>1) and (a<>2) then writeln('Moi ban nhap lai');
until (a=1) or(a=2);
if a=1 then
begin
write('Nhap xau can ma hoa: '); readln(s);
write('Xau ket qua la: ');
for i:=1 to length(s) do
begin
t:=upcase(s[i]);
if (ord(t) >= 65) and (ord(t) <= 90) then
write(chr(((ord(t)-58) mod 26)+65)) else write(t);
end;
end
else if a=2 then
begin
write('Nhap xau can giai ma: '); readln(s);
write('Xau ket qua la: ');
for i:= 1 to length(s) do
begin
t:=upcase(s[i]);
if (ord(t) >= 65) and (ord(t) <= 90) then
write(chr(((ord(t)-46) mod 26)+65))
else write(t);
end;
end;
readln;
END.
Cái này giống bảng mã ASCII đó bạn. Bạn chỉ cần sử dụng câu lệnh chr và ord thôi.